[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

这两天刚学VBS,今天终于在论坛管理人员的帮助下写出了一个最简单的VBS,请大家指教!
  1. do
  2. a=inputbox("乘法按1,加法按2,除法按3,减法按4","计算器")
  3. if a="1" then
  4. b=inputbox("请输入第一个数字","乘法")
  5. c=inputbox("请输入第二个数字","乘法")
  6. d=b*c
  7. msgbox(d)
  8. end if
  9. if a="2" then
  10. e=inputbox("请输入第一个数字","加法")
  11. f=inputbox("请输入第二个数字","加法")
  12. g=int(e)+int(f)
  13. msgbox(g)
  14. end if
  15. if a="3" then
  16. l=inputbox("请输入第一个数字","除法")
  17. m=inputbox("请输入第二个数字","除法")
  18. n=l\m
  19. msgbox(n)
  20. end if
  21. if a="4" then
  22. h=inputbox("请输入第一个数字","减法")
  23. i=inputbox("请输入第二个数字","减法")
  24. j=h-i
  25. msgbox(j)
  26. end if
  27. loop
复制代码
1

评分人数

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

TOP

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


在loop前加以下


if a = ""  then
wscript.quit
end if

TOP

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

TOP

挺好,学习liao~~

TOP

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

TOP

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

TOP

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

TOP

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

TOP

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

TOP

返回列表