7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
temp = CalcStr("sqr(2+3)-cos(30*3.1415926/180)")
Debug.Print temp
End Sub
Function CalcStr(StrNum As String) As Double
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
CalcStr = MSSC.Eval(StrNum)
Set MSSC = Nothing
End Function