Dim a(5, 5) As Integer
Dim b(5) As Integer
Dim c(5) As Integer
Private Sub Command1_Click()
    N = 5
    For i = 1 To N
'===============考生编写程序开始======================
???
'===============考生编写程序结束======================
    Next i
    Save
End Sub
Private Sub Form_Load()
    read
End Sub
Public Sub read()
    Open App.Path & "\Data5.txt" For Input As #1
    Do While Not EOF(1)
        For i = 1 To 5
            For j = 1 To 5
                Input #1, a(i, j)
            Next j
        Next i
    Loop
    Close #1
End Sub
Public Sub Save()
    Open App.Path & "\out5.txt" For Output As #1
    For i = 1 To 5
        Print #1, b(i), c(i)
    Next i
    Close #1
End Sub