Set sc = CreateObject("ScriptControl")sc.Language = "VBScript"s = InputBox("请输入表达式")MsgBox sc.Eval(s) '函数要加括号,还要把角度转换成弧度。'计算30度的正弦值,输入 Sin(30 * Atn(1) / 45)
买一个