Private Sub Command1_Click()
Open "C:\123.txt" For Input As #1
n = 0
Do While Not EOF(1)
Line Input #1, a
n = n + 1
If n = 3 Then
Text1.Text = a
Exit Do
End If
Loop
Close #1
End Sub
这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024