VB编一个表达式计算器

2024-12-28 08:02:50
推荐回答(2个)
回答1:

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

回答2:

买一个