首先lineinput 赋值给字符串s,然后从s中提取即可，可参考以下语句
for i= 1 to 3
lineinput #1,s
for j=1 to 6
x(i,j)=int(val(mid(s,2*j-1,1)))
next j
next i
Dim x(0 To 2, 0 To 5)
Private Sub Command1_Click()
i = 0
Open "d:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
t = Split(a, " ")
For j = 0 To 5
x(i, j) = t(j)
Next
i = i + 1
Loop
End Sub
LineInput
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024