Office VBA中计算数学表达式

可能俺的word版本太老了，office 2003, 

他的VBA连个eval函数都没有。

只好借用VBScript或Javascript达到目标，

M$的东西还不错。。

    

Dim sc: Set sc = CreateObject("MSScriptControl.ScriptControl")

'借用vbs的Eval
sc.Language = "VBScript"
MsgBox sc.Eval("333 * sin(4)")

'借用js的Eval
sc.Language = "Javascript"
MsgBox sc.Eval("333 * Math.sin(4)")