请问大神如何用VB将文本文件的数据存入二维数组

你每组数据的中间没有换行的吧？比如第一行的 .4000 和 .4250 之间。如果有的话，自己修改数据或代码。
用一个数组保存全部数据，其中第一个元素表示你所要求的数组的编号，你可以按需提取。数组数据结构为
（1,.1000，.01917）（1,.2000，.01994）...（1,.8000，.04849）
（2,.1000，.01920）（2,.2000，.01998）...（2,.8000，.04861）
代码如下：
Dim Arr() As Double
Dim num As Integer
Private Sub Command1_Click()
Dim tmpArr() As String, Arr1() As String
Dim tmp As String, i As Integer
Open "D:\1.txt" For Input As #1
num = 0
Do Until EOF(1)
Line Input #1, tmp
If tmp <> "" Then
tmpArr = Split(Replace(tmp, "/", ""), " ")
If num = 0 Then
Arr1 = Split(Replace(tmp, "/", ""), " ")
Else
ReDim Preserve Arr(3, (UBound(tmpArr) + 1) * num - 1)
For i = 0 To UBound(tmpArr)
Arr(0, (UBound(tmpArr) + 1) * (num - 1) + i) = num
Arr(1, (UBound(tmpArr) + 1) * (num - 1) + i) = Val(Arr1(i))
Arr(2, (UBound(tmpArr) + 1) * (num - 1) + i) = Val(tmpArr(i))
Next
End If
num = num + 1
End If
Loop
Close #1
End Sub