12.txt数据内容如下：
12 58 69 88
74 56 96 98
12 58 64 32
48 59 23 56
54 56 13 12
Private Sub dakai_Click()
Dim a(1 To 5, 1 To 4) As String, i As Integer, j As Integer
Open "d:\12.txt" For Input As #1
For i = 1 To 5
For j = 1 To 4
Input #1, a(i, j)
Print a(i, j)
Next j
Next i
End Sub
为什么回出错？怎么才能把12.txt中的数据一个一个的读到二维数组中？

Private Sub dakai_Click()
Dim a(5, 4) As String, i As Integer, j As Integer
Open "d:\12.txt" For Input As #1
For i = 0 To 4
Input #1, a(i, 0), a(i, 1), a(i, 2), a(i, 3)
Next i
End Sub

Private Sub dakai_Click() ← 这里应该用command1_click()吧,似乎没有dakai这个对象吧
Dim a(5, 4) As String, i As Integer, j As Integer
Open "d:\12.txt" For Input As #1
For i = 0 To 4
Input #1, a(i, 0), a(i, 1), a(i, 2), a(i, 3)
Next i
End Sub

Private Sub dakai_Click()
Dim a(1 To 5, 1 To 4) As String, i As Integer, j As Integer
Dim TempSTR as string,TSTRS() as string
Open "d:\12.txt" For Input As #1
For i = 1 To 5
Line Input #1,TempSTR
TSTRS=Split(TempSTR, " ")
For j = 1 To ubound(TSTRS)
if j<5 then
a(i,j)=TSTRS(j-1)
Print a(i, j)
end if
Next j
Next i
End Sub