一个关于Redim的简单基础问题，谢了，急

来源：百度知道 编辑：UC知道 时间：2024/05/24 19:50:35
Private Sub Command1_Click()
Dim a() As Integer
ReDim a(3)
For i = 0 To 3
a(i) = i
Next i
x = 12
ReDim a(4)
a(4) = x
Print a(1)；a(3)
End Sub

这是一道题，我把它简化了，主要想知道最后a(3)的值的情况，能告诉我为什么吗？简单解释即可！

a(1),a(3)都是0，a(4)是12

执行ReDim a(4) 后就把数组里的内容清空了，重新分配数组a（）。
要保留以前的数据，要这样：
redim Preserve a(4)

ReDim a(3) 表示数组有3个元素
For i = 0 To 3 这里却有4个循环，会发生错误吧。
a(i) = i
Next i