随机产生25个1~9的整数放入5×5的二维数组中并输出，且统计出 1.边界元素之和 2.

Private Sub Command1_Click()
Dim a(5, 5) As Integer
Dim sum As Integer, i As Integer, j As Integer
Dim S As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 9 + 1)
Print a(i, j);
Next j
Print
Next i
For i = 1 To 5
For j = 1 To 5
sum = sum + a(i, j)
Next j
Next i
Print sum
For i = 1 To 5
S = a(i, i)
Next i
S = S + a(1, 5) + a(2, 4) + a(4, 2) + a(5, 1)
Print S
End Sub

随机产生25个1~9的整数放入5×5的二维数组中并输出，且统计出 1.边界元素之和