把这个数据文件读到一个数组中？

Question

这个问题不是被回答过了吗？idx=0
open f for input as #1
while not eof(1)
  line input #1,t
  b=split(t)
  for i=0 to 4
     englose(idx,i)=b(i)
  next
  idx=idx+1
wend
close #1

Answer 1

我是这样写的：
    Dim b As Single, englose(10, 2) As Single, i As Integer
    i = 1
    Open "f:\ndate.dat" For Input As #1
loop1:
    Input #1, englose(i, 1), b, b, b, englose(i, 2) 'b 为无效数
    Print englose(i, 1), englose(i, 2)
    i = i + 1
    GoTo loop1
可运行时提示Input #1, englose(i, 1), b, b, b, englose(i, 2) 这句下标越界，大虾们，指点指点呀。

Answer 2

Chice_wxg(VS.NET = 光驱烤肉，我也入网了) 
是呀，可就是编译不通过，我也实在没办法。