Question

VB关于数组的问题

Dim c() As Long
Private Sub Form_Load()
For i = 1 To 10
ReDim c(i)
c(i) = i
Next
For Each a In c
Print a
Next

End Sub
我想动态加载数组
并且 把值全部赋到数组里
可是 每次动态加载数组 前面的值都会被清空
希望大家帮我看看 ，，，

Answer 1

我想动态加载数组
并且 把值全部赋到数组里

在redim之前 把 C数组 复制给 d数组保存 需要的时候从d读取即可。

redim c c数组初始化，会清空所有数组内容

Answer 2

改一下程序就好了：
Option Base 1 '让数组下标从1开始
Dim c() As Long
Private Sub Form_Load()
For i = 1 To 10
ReDim Preserve c(i) '保存前面的元素
c(i) = i
Next
For Each a In c
Print a
Next
End Sub

Answer 3

ReDim c(i)
改为
ReDim Preserve c(i)
可以保留数组以前的值

Answer 4

ReDim c(i)改成ReDim c(i+1)试试
注意数组长度和下标的关系
下标是以0开头的