Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = ""
Dim b As Integer
FileOpen(1, "z:\test.txt", OpenMode.Input)
Do While Not EOF(1)
Input(1, a)
b = b + 1
If b = 1 Then
TextBox1.Text = a
ElseIf b = 2 Then
TextBox2.Text = a
End If
Loop
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024