UC知道vb运算问题
来源：百度知道 编辑：UC知道 时间：2024/05/11 04:07:08
Dim a(3, 3) As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 3
a(i, j) = i * j + i
Next j
Next i
Sum = 0
For i = 1 To 3
Sum = Sum + a(i, 4 - i)
Next i
Print Sum
End Sub
请问这段代码中的显示出的结果是如何算出来的..请指点一下
1楼的的13么可别人说的16啊
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 3
a(i, j) = i * j + i
Next j
Next i
Sum = 0
For i = 1 To 3
Sum = Sum + a(i, 4 - i)
Next i
Print Sum
End Sub
请问这段代码中的显示出的结果是如何算出来的..请指点一下
1楼的的13么可别人说的16啊
我刚才给你放在程序中算了，是16，错了找我好了
sum=a(1,3)+a(2,2)+a(3,1)=16
a
2 3 4
3 5 7
4 7 10
sum=4+5+4=13
也就是对角线的和
2 3 4
4 6 8
6 9 12
= 4 +6 +6=14