Question

vb关于redim的一个题目

单击命令按钮command1的输出结果是
Dim a() As Integer
Private Sub command1_click()
ReDim a(1 To 5)
For i = 1 To 5
a(i) = i
Next i
ReDim a(1 To 10)
For i = 6 To 10
a(i) = 2 * i
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub

我有答案，但是看不太懂，请帮我逐步分析，谢谢
我作出来的是0，0，0，0，0，0，0，0，0，20
第7行不是又redim了那么i=6 to 9时应该也是零啊

那么以下代码的结果是5，0 该怎么解释
Private sub form_click()
Dim I as integer, a() as integer,sum as integer
For i=1 to 5
Redim a(i)
A(i)=i
Next i
For i=1 to 5
Sum=sum+a(i)
Next i
Print sum,a(2)
End sub
End sub

Answer 1

Dim a() As Integer '定义不定长数组
Private Sub command1_click()
ReDim a(1 To 5) '重新定义数组数目,下界为1,上界为5
For i = 1 To 5
a(i) = i '初始化数组数据
Next i
ReDim a(1 To 10) '重新定义数据数据,下界为1,上界为10
For i = 6 To 10
a(i) = 2 * i '初始化元素6~10的数据
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
=================================
第8至10行代码给第6至10个元素初始化数据，值为循环数的2倍
=====================================
因为redim是在循环里定义的，因此，只有最后一个循环的redim a(5)定义没有被修改，而在该次循环中初始化的是a(5)=5，因此，当循环结束时，数组a(1)到a(4)中的值是0，a(5)中的值是5，也就有了SUM的值是5，而A（2）的值是0的输出结果了。

Answer 2

Dim a() As Integer
Private Sub command1_click()
ReDim a(1 To 5) '重新定义动态数组，下标范围1到5
For i = 1 To 5
a(i) = i '赋初值=下标值
Next i
ReDim a(1 To 10) '重新定义动态数组，清除原来的数组值，下标范围1到10
For i = 6 To 10
a(i) = 2 * i '赋初值=下标值*2
Next i
For i = 1 To 10
Print a(i) '在屏幕上打印数组，由于1到5的已经清除，所以均为0，6到10的为12、14、16、18、20
Next i
End Sub

Answer 3

其实不用这么写

就是循环给前五个数和后五个数赋不同的值

redim的意思是重新定义数组的长度