UC知道一道VB填空题,关于数组的
来源：百度知道 编辑：UC知道 时间：2024/06/11 21:48:32
Private Sub Command1_Click()
Dim A(2 To 7) As Integer
Dim b As Integer
For b = 2 To 7
A(b) = b
Next b
Text1.Text = A(b - 2)
End Sub
这个程序的运行结果为什么是6
Dim A(2 To 7) As Integer
Dim b As Integer
For b = 2 To 7
A(b) = b
Next b
Text1.Text = A(b - 2)
End Sub
这个程序的运行结果为什么是6
现在假设循环运行到b=7了，然后a(7)=7,然后next b也就是b=8，然后检查发现b=8>7，已经超出了范围，所以循环不执行而是结束循环。
此时b=8，所以a(8-2)=a(6)=6
第一次:a(2)=2
第二次:a(3)=3
.
.
.
.
.
第七次:a(7)=7
再加上跳出循环b=8
所以a(8-2)=6
所以你的机器出问题了
因为当跳出FOR循环时B=8
所以text1.text=a(8-2)