Option Explicit

Private Sub Command1_Click()
Randomize
Cls

Dim Mat(5, 5) As Integer
Dim i As Integer, j As Integer

For i = 0 To 4
For j = 0 To 4
Mat(i, j) = Rnd * 100 '//生成随机数
Next
Next

For i = 0 To 4
For j = 0 To 4
Print Mat(i, j); '//输出这些随机数
Next
Print
Next

Dim RowsCount(5) As Integer '//各行的总和
Dim ColsCount(5) As Integer '//各列的总和

For i = 0 To 4
For j = 0 To 4
RowsCount(i) = RowsCount(i) + Mat(i, j) '//循环求出各行的总和
Next
Next

For i = 0 To 4
For j = 0 To 4
ColsCount(j) = ColsCount(j) + Mat(i, j) '//循环求出各列的总和
Next
Next

For i = 0 To 4
Print "第" & i & "行的和是：" & RowsCount(i) '//输出各行的和
Next

For i = 0 To 4
Print "第" & i & "列的和是：" & ColsCount(i) '//输出各列的和
Next
End Sub