题目内容：

比如 有1.txt内容：1.52,2.58,2.59 1.56,3.52,1.4 1.55,2.589,3.3 将第一个逗号前的数据赋给a(i) 比如a(1

优质解答

Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1,z
t = Split(z,",")
n = n + 1
a(n) = t(0)
b(n) = t(1)
c(n) = t(2)
Loop
End Sub