Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileOpen(1, "C:\Users\Administrator\Desktop\实验8\容易题2 陈雨制作\容易题2 陈雨制作\bin\Debug\student.txt", OpenMode.Append)
WriteLine(1, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
FileClose(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
FileOpen(1, "C:\Users\Administrator\Desktop\实验8\容易题2 陈雨制作\容易题2 陈雨制作\bin\Debug\student.txt", OpenMode.Input)
Dim name, sex, telephone, school As String
TextBox5.Text = ""
name = TextBox1.Text
sex = TextBox2.Text
telephone = TextBox3.Text
school = TextBox4.Text
Do While Not EOF(1)
Input(1, name)
Input(1, sex)
Input(1, telephone)
Input(1, school)
TextBox5.Text &= name & Space(2) & sex & Space(2) & telephone & Space(2) & school & vbCrLf
Loop
FileClose()
End Sub
End Class
可是按了“读取数据”后就成了这样啊
这怎么回事？？
