题目

输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.
输出一个5×5的矩阵,其中元素是随机生成的1-100的整数.求出
(1) 对角线上元素的和
(2) 对角线上元素的积
(3) 矩阵中最大的元素

提问时间：2022-01-07

答案

Private Sub Command1_Click()
Randomize
Form1.Cls
Dim c,e As Integer
c = 0
e = 0
Dim d As Double
d = 1
Dim a(4,4) As String
For i = 0 To 4
For j = 0 To 4
f = Format(Int(Rnd * 100 + 1),"0,0")
If i = j Or i + j = 4 Then c = c + f:d = d * f
If f > e Then e = f
a(i,j) = f
Next
Print a(i,0) & " " & a(i,1) & " " & a(i,2) & " " & a(i,3) & " " & a(i,4)
Next
Print "对角线的和为：" & c
Print "对角线的积为：" & d
Print "最大的元素为：" & e
End Sub