初学者：关于隔行读取txt文件中的数据到数组

15个参数
Dim S(30) As String
I = 1
Open "C:\Users\Administrator\Desktop\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, S(I)
I = I + 1
Loop
Close #1

一行行读取，不要的行不赋值给数组

15个参数
Dim S(30) As String
I = 1
Open "C:\Users\Administrator\Desktop\1.txt" For Input As #1
Do While Not EOF(1)
For J=1 to 2
Line Input #1, S(I)
Next J
I = I + 1
Loop
Close #1
这样就是S1到S15了...