Dim a(4) As String
a(0)="1" 'A
a(1)="2" 'B
a(2)="3" 'C
a(3)="4" 'D
Dim b(4) As String
b(0)="+"
b(1)="-"
b(2)="*"
b(3)="/"
x="A+B*C/D" 'x="A+B*(C/D)"
Msgbox "x?" '能不能使x里的符号都是可变的而且最终能计算出结果,用函数也行
其实就是在ls里实现Excel 里的给定计算公式进行四则计算。
望大家给思路,有具体例子参考更好
------解决方案--------------------
这样写即可:
x=Evaluate(a(0)+b(0)+"*"+c(0)+"/"+d(0)}), 其实就是在LotusScript里调用公式语言,公式语言里本身就是有四则计算的。
------解决方案--------------------
改正:
x=Evaluate(a(0)+"+"+b(0)+"*"+c(0)+"/"+d(0)})