一维数组转为二维数组

 

真是应该补一补数据结构，真高这个程序！

 Do While Not EOF(1)
*********************连续读入一个txt文件到inputdata中*********   

Line Input #1, inputdata
    If inputdata <> "" Then

*********************分割为一维数组splitdata（）*********
        SplitData = Split(inputdata, ",")
    End If

*********************计算1维数组最大下标n（从0开始）*********
          n = UBound(SplitData) + 1
Loop

Close #1

*********************每40个数为一行*********
    For i = 1 To （n+1） / 40
*********************j为列的个数40列*********           

            For j = 1 To 40
                CurData(i, j) = SplitData((i - 1) * 3 + (j - 1))
            Next
  Next