求编写如EXCEL般的计算公式

[ykwang]

EXCEL里面有一个很有用的计算结果重用功能:

如A=1+2+3
B=A+12
C=B+11
D=A+B+10

如果如上公式写全就要:A=1+2+3
B=1+2+3+12
C=1+2+3+12 +11
D=1+2+3 + 1+2+3+12 +10
另一种方法是，先计算出A=6
然后：B=6+12
C=B + 11
D=6+ B+10
然后再计算出 B 再以此类推


有可能重用的变量会很多
公式可能还有 D=A+C+10 这样的

这样A计算出来，还要C计算出来，才能得到D的值。

请问各位高手，如上功能的实现该用什么方法好。

[SYSSZ]

写一函数就可以.

[SYSSZ]

Function XX(ByVal X As Integer, ByVal Y As Integer, ByVal Z As Integer) As Integer
A = X + Y + Z
  B = A + 12
  C = B + 11
  D = A + B + 10
XX = D
End Function

Private Sub Form_Load()
MsgBox XX(1, 2, 3)
End Sub