记事本变身超级计算器

    Windows XP自带的计算器的确很好用，尤其是点击“查看→科学型”之后，它的功能会更强大。但是，在涉及更复杂一些的计算时它就无能为力了，更糟的是它无法解决先乘除后加减这样简单的运算顾序问题。大家莫急，今天教你们如何将Windows记事本程序变身为超级计算器，不但能进行简单的四则运算，还可以帮你解复杂的数学方程呢!

    轻松解决四则运算

    启动Windows记事本后，随便输入一个字母(这里为了贴近数学就用X了，X将代表要计算的式子的解)，紧跟着输入“=”号，然后在等号后输入要计算的式子，最后换行输入“msgbox X”即可。具体如下所示：

    X=3+4*56/3*3

    msgbox X

    将以上内容保存为扩展名是vbs的文件(如：计算器.vbs)，双击运行这一文件，在弹出的对话框中，就是你要计算的“3+4*56/3*3”的值了(“*”代表乘号，“/”代表除号)。哈哈，大家可能看出点门道了，这里其实运用的是VBS脚本进行计算的。那如果要计算新的数学式怎么办?右击“计算器.vbs”，选择“编辑”，即可以记事本打开这一文件(此时千万不要双击运行哦)，将等号后面换成新的数学式就可以啦。

    待计算的数学式会遵守先乘方再乘除后加减的原则，并且遵守括号优先的原则，这样，简单的加减乘除四则运算就解决了。

    巧解数学方程

    除了四则运算，函数运算外，还可以通过VBS计算数学方程呢。在记事本中输入以下内容，并保存为“计算一元二次方程.vbs”(懒得输入的朋友，可从http://work.newhua.com/cfan/200814/fc.rar处下载)：

    dim a,b,c,d,e,xl,x2

a=inputbox("请输入一元二次方程中a的值")

b=inputbox("请输入一元二次方程中b的值")

c=inputbox("请输入—元二次方程中c的值")

d=b＾2-4*a*c计算△

if d=0 then 判断△是否大于或等于0

e=sqr(d)

xl=(-b+e)/(2*a)

msgbox("xl值为"&xl)

x2=(-b-e)/(2*a)

msgbox("x2的值为"&x2)

else

msgbox("方程无解)

end if

    只要将上面的代码当成英文来读，意义很容易理解。双击运行后，按提示分别输入一元二次方程的系数值就可以了。怎么样。这个“记事本计算器”够强大的吧，你也来试试吧。