Question

用vb求5行5列的数组每行的和

Answer 1

Private Sub Command1_Click()
Dim a(4, 4) As Integer
'----------以下为对这个5行5列数组赋值并显示出来----------
For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(Rnd * 90) + 10
Print a(i, j);
Next
Print
Next
'----------以上为对这个5行5列数组赋值并显示出来----------
Print
Dim b(4) As Integer
For i = 0 To 4
For j = 0 To 4
b(i) = b(i) + a(i, j)
Next
Print "第" & i + 1 & "行的和为" & b(i)
Next
End Sub

Answer 2

用for循环累加