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

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

9 个解决方案

#1

要用到正则表达式，有点复杂。

#2

搞几个文本框,然后进行相关公式操作..............

#3

正则表达式？能不能具体一点？

#4

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

#5

同意楼上的。用ScriptControl

#6

Microsoft Script Control 1.0
在引用中查找一下并钩上

然后用of123()的方法。

#7

那带参数的计算公式怎么办，有怎么输出？

#8

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

#9

//那带参数的计算公式怎么办，有怎么输出？

传入前先用Replace替换处理，用值把参数替换掉

#1