Dim a(7, 7) As Integer
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 7
            For j = 1 To 7
                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
    Print #1, lblFirst.Caption, lblSecond.Caption
  Close #1
End Sub
Private Sub Command1_Click()
    Dim Sum As Long
    N = 7
    Counter = 0
    Sum = 0
'===============考生编写程序开始======================
???
    '===============考生编写程序结束======================
    Save
End Sub