Private Sub Command1_Click()
Open "c:/1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
x = x + 1
If x = 3 Then Print temp
Loop
Close #1
Print x & "行"
End Sub
读取后使用split函数切割成数组,可以直接使用
Q:What do you prefer?,A:apple,B:orange,C:suggar,D:banana,R:A,Explain:An apple everyday keep the doctor away!