VB如果定义动态数组？

Question

形如：Dim newfrm(1000) As Form
但就算定义1000，也有可能超越，我希望定义一个不定的，也就是就算它到10000000000也行，这如何定义呢？

Answer 1

Private Sub Form_Load()Dim arr()
For i = 0 To 10000 '这个10000根据你的需要临时指定的
ReDim Preserve arr(i)
arr(i) = i
Next
MsgBox arr(UBound(arr))
End Sub

Answer 2

也可以
Private Sub Form_Load()
Dim arr()
ReDim arr(i)
End Sub

Answer 3

VB有没有ArrayList？如果有，如何用于上面这个问题？

Answer 4

Dim a()
ReDim Preserve a(i)
a(i) = i
i=i+1

Answer 5

Private Sub Form_Load()
Dim n as integer
Dim arr()
n=inputbox("数组元素个数”）'这个n根据你的需要临时指定的For i = 0 To n 
ReDim Preserve arr(i)
arr(i) = i
Next
MsgBox arr(UBound(arr))
End Sub

Answer 6

Private Sub Form_Load() 
Dim arr() 
ReDim arr(i) 
End Sub 

Answer 7

dim col as new Collection
随便加多少..

Answer 8

dim a(),n as integer
n=100000
redim a(n)
'这样动态数组就被定义了100000个单位的内存空间可使用