标题: [原创] 用VBS做的超简单计算器! [打印本页]
作者: a888888 时间: 2009-1-11 23:59 标题: 用VBS做的超简单计算器!
这两天刚学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 时间: 2009-1-14 22:52
提些小建议:变量名尽量要标识其含义，重复代码应减少
作者: zjhuzi 时间: 2009-1-15 10:05
点击取消不能退出啊,是BUG吗?
作者: gobat 时间: 2009-1-28 18:58
提示什么找不到脚本啊???
作者: defanive 时间: 2009-1-28 19:04
这个的确简单，用switch case（还是select case？）可能好点，输入第二个数的环节都是不变的，共用一个代码就可以了。输入完再来处理。。。
作者: 心愿怕人 时间: 2009-2-8 15:33
我的也是，是不是缺少文件？提是找不到脚本？什么意思
作者: dodoro 时间: 2009-2-19 23:06
挺好，学习liao~~
作者: youxi01 时间: 2009-2-19 23:13
呵呵，支持
不过泼点冷水，设置这么麻烦，还不如让用户直接输入计算式，这样还可以大大缩减代码
作者: descartes 时间: 2010-1-12 20:51
原帖由 zjhuzi 于 2009-1-15 10:05 发表 
点击取消不能退出啊,是BUG吗?
在loop前加以下
if a = "" then
wscript.quit
end if
作者: xlw542350190 时间: 2010-3-16 19:48
的确只是一个超简单的计算器，连小数点都无法计算……还有一个BUG：无法退出……只能强制结束进程……
| 欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |