Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open"C:/dat dat" For Random As #1 Put #1, 1, p Close #1 End Sub Private Sub Command1_Click() Dim p As Person name=Text1.Text major=Text2. Text Open"C:/dat dat" For Random As #1 Get #1, 1, p Close #1 End Sub Private Sub Command1_Click() Dis p As Person name=Text1. Text major=Text2. Text open "C:/dat dat" For Random As #1 Len=Len( Put #1, 1, p Close #1 End Sub Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open "C:/dat dat" For Random As #1=Len( Get #1, 1, p Close #1 End Sub
Private Sub Command1_Click()
Dim p As Person
p. name=Text1. Text
p. major=Text2. Text
Open"C:/data. dat" For Random As #1
Put #1, 1, p
Close #1
End Sub Private Sub Command1_Click()
Dim p As Person
p. name=Text1.Text
p. major=Text2. Text
Open"C:/data. dat" For Random As #1
Get #1, 1, p
Close #1
End Sub Private Sub Command1_Click()
Dis p As Person
p. name=Text1. Text
p. major=Text2. Text
open "C:/data. dat" For Random As #1 Len=Len(p)
Put #1, 1, p
Close #1
End Sub Private Sub Command1_Click()
Dim p As Person
p. name=Text1. Text
p. major=Text2. Text
Open "C:/data. dat" For Random As #1=Len(p)
Get #1, 1, p
Close #1
End Sub
湘公网安备 43130202000226号