Question

VB TXT 三列数据 导入数组 在线等 怎样将 “d:\data.text”中的三列数据 分别导入到三个数组中去？谢谢啦

各位大侠，怎样将 “d:\data.text” 中的三列数据 分别导入到三个数组中去？谢谢啦
0 539.2 96
539.2 0 72
39.5 511.5 98.5
160 394 142.5
304.1 463.8 143
430.3 559.5 142.5
475.5 497 134
253.8 297.7 138
366.3 396.3 136
212 338.8 102.5
317.5 225 96.5
420.7 119.5 96.5
496.5 46 93
511.7 121.7 90.8
567.6 115.5 91
导入到 数组 a（），b（），c（）

最好能用 for-next 实现。在线等
回答者： xiaoyuemt
运行了之后 只有最后一行显示在结果里
是不是什么地方错了啊？

Answer 1

Private Sub Command1_Click()
Dim a(), b(), c()
Dim aa As String
Open "d:\data.txt" For Input As #1
i = 1
Do While Not EOF(1)
ReDim Preserve a(i), b(i), c(i)
Line Input #1, aa
s = Split(aa, " ")
a(i) = s(0)
b(i) = s(1)
c(i) = s(2)
'Print a(i), b(i), c(i)
Loop
Close #1
End Sub
因为要执行到文件结束，还是用do while....loop比较好一些。

Answer 2

用随机文件或者顺序文件方式打开，定义变量N，N>0并且N<记录总数
用for 循环N。step是1
对于记录数是3N+1的存在A中
对于记录数是3N+2的存在B中
对于记录数是3N的存在C中就可以了

Answer 3

Dim a(), b(), c()
Private Sub Command1_Click()
Open "d:\data.txt" For Input As #1
Do Until EOF(1)
Line Input #1, z
x = x & Space(1) & z
Loop
Close
y = Split(x, " ")
For i = 1 To UBound(y) Step 3
n = n + 1
ReDim Preserve a(n)
ReDim Preserve b(n)
ReDim Preserve c(n)
a(n) = y(i)
b(n) = y(i + 1)
c(n) = y(i + 2)
Next
End Sub