生成一个（0，10）之间的随机整数构成的5行5列的矩阵，要求： （1）计算该矩阵的主、副对角线之和，并输出

计算该矩阵的四周元素之和，并输出。

Private Sub Command1_Click()
Dim temp%, s1&, s2&, s3&: Cls
For i = 1 To 5
For j = 1 To 5
temp = Int(Rnd * 10)
If i = j Then s1 = s1 + temp
If i = 6 - j Then s2 = s2 + temp
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then s3 = s3 + temp
Print temp & " ";
Next
Print
Next
Print "主对角线和:" & s1
Print "副对角线和:" & s2
Print "四周边界和:" & s3
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/sfp878qs8.html