求助}VB编程实现加法运算

Question

F5   A5  B5    C5           F4   A5   B4    C4          F3   A3   B3   C3F2   A2   B2   C2F1   A1   B1    C1
我想进行几组加法运算，结果放在一个框内。如斜线三个数A3+b4+C5，A2+B3+C4，A1+B2+C3. 三个结果用逗号隔开，

Answer 1

将这些数据放入数组，如果维数固定，可以放入固定维数数组。
否则用[x, y, data]表示。
所谓斜线相加，就是
data(startX, startY) + data(startX + 1, startY - 1) + ... data(startX + n, startY - n) 直到 startY - n = 0

Answer 2

定义二维数组nums(x,y)
A3+B4+C5可以用
for x = 3 to 5
y=5-x
sum=sum+nums(x,y)
next x

Answer 3

Private Sub Command1_Click()
  Dim a(1 To 5, 1 To 4), i As Integer, j As Integer
  Dim tmp1, tmp2, tmp3
  For i = 1 To 5
      For j = 1 To 4
          If j = 1 Then
             a(i, j) = "F" & (6 - i)
          Else
             a(i, j) = Chr(63 + j) & (6 - i)
          End If
      Next
  Next
  j = 1
  For i = 5 To 1 Step -1
      j = j + 1
      If i >= 3 Then tmp1 = tmp1 + a(i, j)
      If i < 5 And i >= 2 Then tmp2 = tmp2 + a(i, j - 1)
      If i < 4 And i >= 1 Then tmp3 = tmp3 + a(i, j - 2)
  Next
  Text1 = tmp3 & "," & tmp2 & "," & tmp1
End Sub