Question

vb 动态数组问题

Dim a() As Integer
a(1) = 3
a(3) = 4
ReDim Preserve a(5) As Integer
MsgBox a(1)
请问上面的代码我执行的时候为什么提示“下标越界”
请问我错在哪里，请指教！谢谢

Answer 1

Dim a() As Integer
只是 定义 a 是一个数组，没有分配 内存
redim a（1）
定义 a 是个数组，并且 a 的长度是2，并且 分配了 内存，最关键的是 ，这个是 分配了内存的，就可以 赋值，上一个知识说明他是个数组，没有说好长 也没有分配内存，内存都没有分配 ，怎么 赋值

Answer 2

Dim a() As Integer
ReDim Preserve a(5) As Integer
a(1) = 3
a(3) = 4
MsgBox a(1)
这样子就可以了，注意一定要把 ReDim Preserve a(5) As Integer这一句放在赋值语句a(1) = 3
前面。

Answer 3

把redim放到赋值之前

追问

请问把redim放到赋值之前那还是直接用redim定义好不是吗，我问一下a()这个不也是定义动态数组吗，请问有什么用？

追答

就是在赋值的前面加一句：redim a(3)
dim a()的时候数组是没有长度的，必须先给它一个长度才能赋值