[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]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

评分人数

返回列表