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

[liudai123]

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

[of123]

任意到什么程度，包括微积分？

[liudai123]

不用微积分，就初等的，能够包括加减乘除，正负数，三角函数，对数，任意次方的代数式就行了

[of123]

那你分门别类些代码就可以了。

[liudai123]

初学者不怎么会。。。大哥能不能具体点吗。。。 谢谢了。。

[VBToy]

简单点，就使用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

[vansoft]

引用 5 楼 VBToy 的回复:

简单点，就使用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

+10086

[liudai123]

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

[蓝天630902]

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

[vansoft]

引用 7 楼 liudai123 的回复:

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

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

[worldy]

ms script control控件

[楚狂歌]

每种方法一个函数。。。