你可以将行列算出的值用一个数组接收,这里是采用变量接收的方式.
Option Compare Database
Private Sub aa()
Dim h1, h2, h3, l1, l2, l3, l4, i, j As Integer
Dim a(2, 3) As Integer
For i = 0 To 2
For j = 0 To 3
a(i, j) = Int(InputBox("输入a(" & i & "," & j & ")的值", "输入"))
Next
Next
For i = 0 To 3
h1 = h1 + a(0, i) '计算第一行
h2 = h2 + a(1, i) '计算第二行
h3 = h3 + a(2, i) '计算第三行
Next
For j = 0 To 2
l1 = l1 + a(j, 0) '计算第一列
l2 = l2 + a(j, 1) '计算第二列
l3 = l3 + a(j, 2) '计算第三列
l4 = l4 + a(j, 3) '计算第四列
Next
Print h1, h2, h3, l1, l2, l3, l4
End Su
