Question

求VB编程。设计一个5*5的方阵，其中的元素由计算机随机产生小于100的整数，请求出：1，对角线上元

元素之和2,…之积3,方阵中最大的元素和它的位置

Answer 1

Private Sub Command1_Click()
Dim a(1 To 5, 1 To 5) As Integer
Dim sum, cj, wx, wy, max
Randomize
cj = 1
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 100)
If i = j Then
sum = sum + a(i, j)
cj = cj * a(i, j)
End If
If a(i, j) > max Then
max = a(i, j)
wx = j: wy = i
End If
Print a(i, j); Tab(5 * j);
Next j
Print
Next i
Print "对角线上元素之和"; sum
Print "对角线上元素之积"; cj
Print "方阵中最大的元素和它的位置"; max, wx; wy
End Sub