VB中如何输入任意数学公式可以被识别并可以赋值计算

Question

我想到的是利用编写出一个科学计算器的方法，把所有的运算符进行按钮化，具体怎么能实现呢？  有没有大神求教。。

Answer 1

简单点，就使用Microsoft Scripting Control计算。
Private Sub Command3_Click()
    Dim cs As New ScriptControl
    Dim t As String
    t = Text1.Text
    cs.Language = "VBScript"
    cs.AddCode t
    Dim r As String
    r = cs.Run
End Sub

Answer 2

我想说的是。。  能够输入像比较复杂的函数   比如说sin(x^2+5*x)+e^(y+2)+5,  类似这样的复杂的公式  ，   可以解决吗 ？  麻烦了

Answer 3

Private Sub Command1_Click()
    Set ms = CreateObject("MSScriptControl.ScriptControl")
    ms.Language = "JScript"
    ms.AddCode "x=3.1;y=4.2;e=2.71828182845905;z=Math.sin(Math.pow(x,2)+5*x)+Math.pow(e,(y+2))+5;"
    Debug.Print ms.Eval("z")    x = 3.1
    y = 4.2
    e = 2.71828182845905
    g = Sin(x ^ 2 + 5 * x) + e ^ (y + 2) + 5
    Debug.Print g
End Sub

Answer 4

可以。再复杂的都可以。
vbscript,jscript的代码都可以执行出来。

Answer 5

ms script control控件