用VBS做的超简单计算器!

a888888

这两天刚学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

复制代码

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：无法退出……只能强制结束进程……