Dim a(100) As Integer
Private Sub Command1_Click()
    Dim k As Integer
    Open App.Path & "\in3.dat" For Input As #1
    For k = 1 To 100
        Input #1, a(k)
    Next k
    Close #1
End Sub
Private Sub Command2_Click()
  '考生编写
===================
????
===================
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out3.dat" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub