求助vb 一段程序解答

来源:百度知道 编辑:UC知道 时间:2024/05/04 21:43:21
Private Sub Command1_Click()
Dim arr(3) As Integer
For i = 1 To 3
For j = 1 To 3
arr(j) = arr(i) + 1
Next j
Next i
Print arr(3)

End Sub
每一步什么意思,希望详细解答。我看不出他能运算出结果。

程序里嵌套了2个循环,详细运算步骤如下:
I=1时,J=1时,arr(j)=arr(i)+1=arr(1)+1=1+1=1
I=1时,J=2时,arr(j)=arr(i)+1=arr(1)+1=1+1=2
I=1时,J=3时,arr(j)=arr(i)+1=arr(1)+1=1+1=2
I=2时,J=1时,arr(j)=arr(i)+1=arr(2)+1=2+1=3
I=2时,J=2时,arr(j)=arr(i)+1=arr(2)+1=3+1=3
I=2时,J=3时,arr(j)=arr(i)+1=arr(2)+1=3+1=4
I=3时,J=1时,arr(j)=arr(i)+1=arr(3)+1=4+1=5
I=3时,J=2时,arr(j)=arr(i)+1=arr(3)+1=4+1=5
I=3时,J=3时,arr(j)=arr(i)+1=arr(3)+1=5+1=5
此时arr(3)的值为5,
所以print出的结果是5

结果是5.
里面嵌套了2个循环。

Private Sub Command1_Click() '按钮事件
Dim arr(3) As Integer '定义一个数组,数组长度为3
For i = 1 To 3 '循环
For j = 1 To 3 '嵌套循环
arr(j) = arr(i) + 1 '把相应的值相加
Next j
Next i
Print arr(3) '把结果打印到窗体

End Sub

这是两个循环的嵌套,具体功能楼上的已经解释得很清楚了,我就不多说了.我认为改为这样嵌套就很清楚地体现出来了!:
Private Sub Command1_Click()
Dim arr(3) As Integer
For i = 1 To 3
For j = 1 To 3
arr(j) = arr(i) + 1
Nex