新手求助，请各位前辈们解答，非常感谢！

Question

我有个随机的文件，文件的内容如下：
100     25     60    114      1     20      1 
11 9 12 9 3 59 73   488      1    1.430   -2.740  236.900   25.410 
-32768  -32768  -32768  -32768     0.00   117.58     0.00    10.09     5.95     6.85     6.55     6.25 
0.00         0.00         0.00         0.00         0.00
29.7891067   107.4435733  -32768   -32768          0.0
0.0           0.0           0.0           0.0          24.0           0.0           9.0  0.00   0.00我想把文件的数据一个一个读入到一个二维数组中，然后对这些数据进行运算，不知道怎么弄，请各位前辈教教，谢谢!

Answer 1

如果是顺序文件,文件名为k:\aa.txt:
Private Sub Command1_Click()
Dim a(100) As Single, i As Integer
i = 1
Open "k:\aa.txt" For Input As #1
Do While Not EOF(1)
  Input #1, a(i)
  Print a(i)
  i = i + 1
Loop
Close #1
End Sub