Option Base 1
Dim a(4, 4) As Integer
Private Sub Command1_Click()
'====考生编写程序开始====
  （1）
    '====考生编写程序结束====
    '不得修改以下部分
    save Label3
End Sub
Private Sub Command2_Click()
'====考生编写程序开始====
（2）
    '====考生编写程序结束====
    '不得修改以下部分
    save Label4
End Sub
Private Sub Form_Load()
    Open App.Path & "\in5.txt" For Input As #1
    For i = 1 To 4
        For j = 1 To 4
            Input #1, a(i, j)
        Next j
    Next i
    Close #1
End Sub