UC知道VB数组问题请高手指教
来源：百度知道 编辑：UC知道 时间：2024/07/04 11:00:48
Private Sub Form_Click()
Dim a(1 To 3) As Integer
For i = 1 To 3 '如果改成两次循环，结果是0
a(i) = InputBox("请输入")
Next
Print a(i)
End Sub
怎么会越界了？
我刚学VB,请高手指教
Dim a(1 To 3) As Integer
For i = 1 To 3 '如果改成两次循环，结果是0
a(i) = InputBox("请输入")
Next
Print a(i)
End Sub
怎么会越界了？
我刚学VB,请高手指教
next
最后的i值会在加1
print a(i-1)就对了
改成下面的看看
Private Sub Form_Click()
Dim a(1 To 3) As Integer
For i = 1 To 3 '如果改成两次循环，结果是0
a(i) = val(InputBox("请输入"))
Print a(i)
Next
End Sub