求解一道VB题目

来源：百度知道 编辑：UC知道 时间：2024/05/31 06:57:29
编写一个程序：随机产生一个矩阵，求其两条对角线元素之和
2日18点后回答无效
再次声明，是两条对角线之和，不是一条

Private Sub Form_Load()
Dim a()
Me.Show
n = Val(InputBox("请输入矩阵的阶数"))
Max = Val(InputBox("元素的最大值"))
Min = Val(InputBox("元素的最小值"))
ReDim a(n, n)
Dim sum, sum2
Randomize
For i = 0 To n - 1
For j = 0 To n - 1
a(i, j) = Int(Min + Rnd * (Max - Min + 1))
If i = j Then sum = sum + a(i, j)
Print a(i, j),
Next j
Print
Next i
For i = 0 To n - 1
For j = n - 1 To 0 Step -1
If j = n - 1 - i Then sum2 = sum2 + a(i, j)
Next j

Next i

Print "'\'向对角线元素和为:" & CStr(sum)
Print "'/'向对角线元素和为:" & CStr(sum2)
End Sub

Private Sub Form_Load()
Dim a()
Me.Show
n = Val(InputBox("请输入矩阵的阶数"))
Max = Val(InputBox("元素的最大值"))
Min = Val(InputBox("元素的最小值"))
ReDim a(n, n)
Dim sum
Randomize
For i = 0 To n - 1
For j = 0 To n - 1