急！！！用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

上一篇:c語言實驗題有關星星的怎麽做啊求大神幫忙啊

下一篇:XSTEEL如何修改默認坐標原點