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

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

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

2025-02-28 15:54:31

推荐回答（1个）

回答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

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

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