急!!!用VB做一个3*3矩阵题

来源:百度知道 编辑:UC知道 时间:2024/07/13 10:52:57
先用VB随机产生一个3*3的矩阵,然后求出它的下三角的所有数的和

Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As Integer, A(2, 2) As Integer
For i = 0 To 2
For j = 0 To 2
Randomize
A(i, j) = Int(Rnd * 100)
Print A(i, j);
If j <= i Then s = s + A(i, j)
Next j
Print
Next i
Print "S="; s
End Sub

用多维矩阵. 是每个元随机?没有范围吗?