这个VB程序怎么弄的？看不明白~~~

Private Sub Command1_Click()

Dim a

a = Array(1, 2, 3, 4, 5)

For i = 1 To UBound(a)

a(i) = a(i) + i - 1

Next i

Print a(3)

End Sub

结果为什么是6？可不可以给解释下~~~~

a = Array(1, 2, 3, 4, 5)给数组赋值了，但数组下标仍然是0，1，2，3，4

For i = 1 To UBound(a)从1开始循环到4

a(i) = a(i) + i - 1当a(3)=4+3-1=6

它只给数组赋值了，没改变数组的下标，是吧

command1单击时 定义局部变量a 赋值a 变成含有1，2,3,4,5的一维数组 ’Array（arglist）函数返回一个包含数组的数据类型。所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。 a则变成含有1，2,3,4,5的一维数组 进入循环i UBound（）返回一个 Long 型数据，其值为指定的数组维可用的最大下标。 数组a的最大下标 由于下标都是默认从零开始算起 5个元素也就是最大下标是4 a(0)=1 a(1)=2 ... a(4)=5 以a（3）为例 循环前数值为4 循环块公式 则a（3） = 4+3-1 输出 a（3） 肯定返回等于6了