Option Base 1
Dim s As String
Private Sub Command1_Click()
    Open App.Path & "\in5.dat" For Input As #1
    s = Input(LOF(1), #1)
    Close #1
End Sub
Private Sub Command2_Click()
' 考生编写
？？？？？？
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out5.dat" For Output As #1
    Print #1, Text1.Text, Text2.Text
    Close #1
End Sub