Option Base 1
Dim a(20, 5) As Integer
Private Sub Command1_Click()
    Open App.Path & "\in5.dat" For Input As #1
    For i = 1 To 20
      For j = 1 To 5
          Input #1, a(i, j)
          Text1 = Text1 + Str(a(i, j)) + Space(2)
      Next j
      Text1 = Text1 + Chr(13) + Chr(10)
    Next i
    Close #1
End Sub
Private Sub Command2_Click()
‘考生编写
=============
???
=============
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out5.dat" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub