vb
Private Sub Command1_Click()
save Label3
Dim max As Integer
Dim i As Integer, j As Integer
max = a(1, 1)
For i = 1 To 4
For j = 1 To 4
If a(i, j) > max Then
max = a(i, j)
End If
Next
Next
Label3.Caption = max
End Sub
Private Sub Command2_Click()
save Label4
Dim sum As Integer
Dim i As Integer
For i = 1 To 4
sum = sum + a(i, i)
Next
Label4.Caption = sum
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
vb不能运行成功，求帮助！！！！
