我想到的是利用撰寫出一個科學計算器的方法，把所有的運算子進行按鈕化，具體怎么能實作呢？ 有沒有大神求教。。
uj5u.com熱心網友回復：
任意到什么程度，包括微積分？uj5u.com熱心網友回復：
不用微積分，就初等的，能夠包括加減乘除，正負數，三角函式，對數，任意次方的代數式就行了uj5u.com熱心網友回復：
那你分門別類些代碼就可以了。uj5u.com熱心網友回復：
初學者不怎么會。。。大哥能不能具體點嗎。。。 謝謝了。。uj5u.com熱心網友回復：
簡單點，就使用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
uj5u.com熱心網友回復：
+10086
uj5u.com熱心網友回復：
我想說的是。。 能夠輸入像比較復雜的函式 比如說sin(x^2+5*x)+e^(y+2)+5, 類似這樣的復雜的公式 ， 可以解決嗎 ？ 麻煩了。。。uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
可以。再復雜的都可以。
vbscript,jscript的代碼都可以執行出來。
uj5u.com熱心網友回復：
ms script control控制元件uj5u.com熱心網友回復：
每種方法一個函式。。。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/92484.html
標籤：資源
上一篇：怎么用對話框打開特殊檔案