先用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
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
Next i
Print "S="; s
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2009-04-08
用多维矩阵. 是每个元随机?没有范围吗?