A.Private Sub Command1_Click()
Open “out.txt” For Inpit As#1
Print#1,Text1.Text
C.lose#1
E.nd Sub
B.Private Sub Command1_Click()
Open “out.txt” For Outpit As#1
Print#1,Text1.Text
C.lose#1
E.nd Sub
C.Private Sub Command1_Click()
Open “out.txt” For Append As#1
Print#1,Text1.Text
C.lose#1
E.nd Sub
D.Private Sub Command1_Click()
Open “out.txt” For Random As#1
Print#1,Text1.Text
C.lose#1
E.nd Sub