[原创] 用VBS做的超简单计算器!

a888888

这两天刚学VBS,今天终于在论坛管理人员的帮助下写出了一个最简单的VBS,请大家指教!

do
a=inputbox("乘法按1,加法按2,除法按3,减法按4","计算器")
if a="1" then
b=inputbox("请输入第一个数字","乘法")
c=inputbox("请输入第二个数字","乘法")
d=b*c
msgbox(d)
end if
if a="2" then
e=inputbox("请输入第一个数字","加法")
f=inputbox("请输入第二个数字","加法")
g=int(e)+int(f)
msgbox(g)
end if
if a="3" then
l=inputbox("请输入第一个数字","除法")
m=inputbox("请输入第二个数字","除法")
n=l\m
msgbox(n)
end if
if a="4" then
h=inputbox("请输入第一个数字","减法")
i=inputbox("请输入第二个数字","减法")
j=h-i
msgbox(j)
end if
loop
复制代码

rat

提些小建议:变量名尽量要标识其含义，重复代码应减少

zjhuzi

点击取消不能退出啊,是BUG吗?

gobat

提示什么找不到脚本啊???

defanive

这个的确简单，用switch case（还是select case？）可能好点，输入第二个数的环节都是不变的，共用一个代码就可以了。输入完再来处理。。。

心愿怕人

我的也是，是不是缺少文件？提是找不到脚本？什么意思

dodoro

挺好，学习liao~~

youxi01

呵呵，支持
不过泼点冷水，设置这么麻烦，还不如让用户直接输入计算式，这样还可以大大缩减代码

descartes

原帖由 zjhuzi 于 2009-1-15 10:05 发表
点击取消不能退出啊,是BUG吗?

在loop前加以下


if a = ""  then
wscript.quit
end if

xlw542350190

的确只是一个超简单的计算器，连小数点都无法计算……还有一个BUG：无法退出……只能强制结束进程……