vb 单击输入按钮，输入整数N,产生N*N个随机数存入二维数组x中，单击求和按钮，求出副对角线元素之和

Question

如题所述

Answer 1

Dim a() As Integer, n As Integer
Private Sub Command1_Click()
n = InputBox("请输入n：")
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
Randomize
a(i, j) = Int(Rnd * 90) + 10
Print a(i, j);
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
For i = 1 To n
For j = 1 To n
If i + j = n + 1 Then
s = s + a(i, j)
End If
Next j
Next i
Text1.Text = s
End Sub