菜鸟问问题，如何定义动态数组？

Question

我自己编一个小程序，主要是从多个文件里读出所有的记录，将记录存到数组里，文件里记录个数都不一样，我想定义动态数组，但不知怎么定义亚？

Answer 1

dim myarray()redim myarray(100)

Answer 2

建议你用 collection 对象更好一些

Answer 3

要看情况。如果是放一大堆东西，用Collection。如果是一串或者是一列，用数组。不知能否明白

Answer 4

Collection 怎么用啊？
我用的是
Dim i As IntegerDim sar
Dim string1 As StringDim output1()
Dim mystring() As String
Dim temp()  As StringDim output2()
ReDim mystring(0)
ReDim output1(0)
ReDim output2(0)sar = FreeFile()
Dim Ans As String
      Ans = GetOpenFileNameDLG("需要修改的文件 *.*|*.*", "请选择一个文件", "", Me.hwnd)    If Ans <> "" Then
       Text1.Text = Ans
    End If
       Text1.SetFocus
         Open Ans For Input As #sar
    
Do
          ReDim Preserve output1(LBound(output1) To UBound(output1) + 1)
    ReDim Preserve output2(LBound(output2) To UBound(output2) + 1)
     Line Input #sar, string1
    
    
    temp = Split(string1, ",")
    
          output1(UBound(output1)) = temp(0)
           
          output2(UBound(output2)) = temp(1)
  Loop Until EOF(1) Close #sar
     
  For i = 1 To UBound(output1)
     Print output1(i), Tab(20), output2(i)
     
   Next i

Answer 5

Dim C As New CollectionC.Add 元素, Key 添加新项
C.Remove Index  移除指定项
C.Count 获取集合元素数。集合的概念