求简单算法？？

Question

我有一些二维数组 num[1,1]=1;num[2,1]=2;num[1,2]=3;num[3,1]=2;num[2,3]=2 .....
                 我现在需要得到    
                 num1＝num[1,1]＋num[1,2]    ----> 4
                 num2＝num[2,1]＋num[2,3]    ----> 4
                 num3＝num[3,1]              ----> 2
这个算法怎么实现啊？？？？？

Answer 1

不太明白你的意思,你看看是不是这样?Option ExplicitPrivate Sub Form_Load()
    Dim NUM(1 To 3, 1 To 3) As Integer
    Dim A(1 To 3) As Integer
    Dim Val_1 As Integer
    Dim Val_2 As Integer
    Dim i As Integer
    
    NUM(1, 1) = 1
    NUM(1, 2) = 3
    NUM(2, 1) = 2
    NUM(2, 3) = 2
    NUM(3, 1) = 2
    
    For i = 1 To 3
        Val_1 = NUM(i, 1)
        If i + 1 > UBound(NUM) Then
            Val_2 = 0
        Else
            Val_2 = NUM(i, i + 1)
        End If
        A(i) = Val_1 + Val_2
        Debug.Print "A(" & i & ")=" & A(i)
    NextEnd Sub

Answer 2

我们只研究vb不研究c，进错专栏了

Answer 3

请详细说明你的目的。右边相加的是根据什么规律？为什么num3又只等于num[3,1] 而没有其它数相加？