Question

随机产生25个两位的整数，组成5行5列的方针，求对角线上元素之和

Answer 1

点击【生成方阵】按钮的效果。

点击【对角线求和】按钮的效果。

需要源文件给地址。

Answer 2

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As Integer
Dim k(1 To 5, 1 To 5) As Integer
Randomize
For i = 1 To 5
For j = 1 To 5
k(i, j) = Int(90 * Rnd + 10)
Print k(i, j);
Next
Print
Next
For i = 1 To 5
s = s + k(i, i)
Next
Print "对角线上的元素和是：" & s;
s = 0
For i = 1 To 5
s = s + k(i, 6 - i)
Next
Print "和" & s
End Sub

Answer 3

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As Integer
Dim k(1 To 5, 1 To 5) As Integer
Randomize
For i = 1 To 5
    For j = 1 To 5
        k(i, j) = Int(90 * Rnd + 10)
        Print k(i, j);
    Next
    Print
Next
For i = 1 To 5
    s = s + k(i, i)
Next
Print "对角线上的元素和是：" & s;
s = 0
For i = 1 To 5
    s = s + k(i, 6 - i)
Next
Print "和" & s
End Sub