Question

VB编程用redim preserve重新定义数组维数，为什么会产生错误？一定要用array函数定义原数组么？

Private Sub Form_Click()
Dim a(), i%
a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
ReDim Preserve a(10)
a(10) = 10
For i = 0 To 10
Print a(i);
Next i
End Sub=================以上这样运行正确 =================以下是产生错误的代码Private Sub Form_Click()
Dim a(), i%
for i=0 to 9a(i)=inext i
ReDim Preserve a(10)
a(10) = 10
For i = 0 To 10
Print a(i);
Next i
End Sub小白菜求高人详解。。。。

Answer 1

Private Sub Form_Click()
Dim a(), i%
Redim a(9)'在这里加上这一句
for i=0 to 9
a(i)=i
next i
ReDim Preserve a(10)
a(10) = 10
For i = 0 To 10
Print a(i);
Next i
End SUB