Private Sub Command1_Click() '读txtOpen "c:\1.txt" For Binary As #1Text1.Text = Input(LOF(1), 1)Close #1End SubPrivate Sub Command2_Click() '写入,覆盖原来的Open "c:\1.txt" For Output As #1Print #1, Text1.TextClose #1End SubPrivate Sub Command3_Click() '写入,写入原来的后面Open "c:\1.txt" For Append As #1Print #1, Text1.TextClose #1End Sub'也可以是 "c:\1.dat"或其它