Private Sub Command1_Click()
Dim a(6, 6) As Integer
Randomize
For i = 1 To 5 '生成5*5数组
For j = 1 To 5
a(i, j) = Int(Rnd * 10)
Next j
Next i
For i = 1 To 5 '求每行每列的和
For j = 1 To 5
a(i, 6) = a(i, 6) + a(i, j)
a(6, j) = a(6, j) + a(i, j)
Next j
Next i
For i = 1 To 6 ‘输出
For j = 1 To 6
Print Format(a(i, j), "@@@");
If j = 5 Then Print " ";
If i = 6 And j = 5 Then Exit For
Next j
Print
If i = 5 Then Print
Next i
End Sub
?