Question

vb数组下标越界问题

Private Sub Form_click()
Dim a() As Integer
For i = 0 To 9
a(i) = i
Print a(i)
Next i
End Sub
编译错误 提示下标越界 我想问的是为什么会下标越界 而定义为定长数组就不会了这又是为什么，谢谢了

Answer 1

 动态数组
在很多情况下，数组的长度事先是无法预测的，而且有时可能需要在程序中改变数组的长度以适应新的情况，因此出现了动态数组。动态数组是在定义数组只指定数组名及其类型，等以后知道数组的长度或需要改变数组长度时再用“ReDim”指定它的长度。   

Private Sub Form_Click()
Dim a() As Integer
ReDim a(10) '重定义动态数组
For i = 0 To 9
a(i) = i
Print a(i)
Next i
End Sub

Answer 2

你连For的基本原理都不懂么？
For就是给I赋个初始值，即1
Next就是：I=I+步长，你这里也就是1，
然后判断I是否超过循环终止值，如果不超过则跳转到For的下一条语句

所以：
你的代码中最后要打印的a(i)当然越界了，这时候i=5啊
你是不是应该把那句Print挪到next前面去啊

Answer 3

数组定义时要指定数组大小，Dim a() As Integer这样不行的，改成
Dim a(10) As Integer这样就可以了。

追问

这是动态数组 - -，不能用动态数组吗

Answer 4

这是对数组的定义错误，按此种定义方式，a随后的括号内必须有元素个数，即a(n)。

下面提供简单便捷一次性初始化方法。

Private Sub Form_Click()
Dim a As Variant
a = Array(0,1,2,3,4,5,6,7,8,9)
For i=0 To 9
Print a(i)
Next i
End Sub