最简单的方法应该是用函数EVAL了吧,它直接可以把包含四则运算和基本数学函数（如对数,指数,三解函数等）的表达式计算为数值:
方法如下:
打开记事本：输入下面代码：
on error resume next
do
s=eval(s)
s=inputbox("结果:"&s&chr(13)&chr(10)&"请输入表达式,为空则退出")
loop until s=""
然后保存为AAA.VBS,然后运行这个文件!
这就是一个简单的计算器了,但功能是很强大的!
表达式格式说明:
指数:用^符号,如,12^6表示12的6次方,3^0.5表示根号3
三角函数:SIN(12),注意度数的格式为弧度
对数:LOG(12)(以自然对数为底)
VB中使用该函数需要先声明一下,然后还要设置一下语言
Set a = CreateObject("ScriptControl")
a.Language = "vbscript"
MsgBox a.Eval("3+2")