输入一个计算公式，怎样让vb计算出结果？

Question

我现在想在一个文本框中输入一各数学计算式，比如((A+B)-C)/D+E（这里A,B,C,D,E可能使参数，也可能是数值），通过点击“计算”按钮在另外一个文本框中显示计算的结果，请问高手如何实现？最好有源码！谢谢各位！

Answer 1

Private Sub Command2_Click()
    Dim s
    
    If Text1 = "" Then Exit Sub
    On Error GoTo errHandler    Set s = CreateObject("ScriptControl")
    s.Language = "VBScript"
    Text1 = s.Eval(Text1)
    Set s = Nothing
    flag = True
    Exit Sub
errHandler: Text1 = "E"
End Sub

Answer 2

Microsoft Script Control 1.0
在引用中查找一下并钩上然后用of123()的方法。

Answer 3

http://expert.csdn.net/Expert/topic/2315/2315157.xml?temp=.2299005

Answer 4

//那带参数的计算公式怎么办，有怎么输出？传入前先用Replace替换处理，用值把参数替换掉