VBS基础教程
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ...then...end if 这三个关键部分不要掉了. OK, 我出一个题, 输入一个数, 如果小于100就输出"错误", 如果大于100就输出"正确", 我这里有两个程序版本: 复制代码 代码如下: dim a a=inputbox("请输入一个大于100的数") a=int(a) ''inputbox返回的是字符串, 我们把他变成整数 : ) if a>100 then msgbox "正确" if a<100 then msgbox "错误" 还有一个更简单的 复制代码 代码如下: dim a a=inputbox("请输入一个大于100的数") a=int(a) ''inputbox返回的是字符串, 我们把他变成整数 if a>100 then msgbox "正确" else msgbox "错误" end if 看到多了一个else了吧, else的作用就是当要判断的表达式为false时执行的. 这样程序就可以处理两种不同的情况了. 不要忘了用end if结尾 嘿嘿, 我是“变态者”, 现在我要你处理三种情况, <100,=100,>100, 还要写在一个if结构里, 你怎么办, 我给你答案: 复制代码 代码如下: dim a a=inputbox("请输入一个大于100的数") a=int(a) ''inputbox返回的是字符串, 我们把他变成整数 if a>100 then msgbox "正确" else if a=100 then msgbox "老大, 你耍我?" else msgbox "错误" end if end if 这次输入100看看, 是什么? else if语句可以在if结构中多次出现, 以灵活判断不同的情况 (如果你要判断得太多, 就请使用"选择结构", 过会儿就讲), 当所有elseif都处理完了,而没有符合情况的时候再执行else中的语句.另一个例子: 复制代码 代码如下: Dim a,b,c,d a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") d=Inputbox("答案:","输入答案") c=a*2+b*2 ''这里没有问题, 会自动转换 if d=c then msgbox "你好聪明" else msgbox "你好猪头 自己的题还不会!" end if 哈哈, 无论你回答得多么正确你都是猪头, 不是我耍你, 还是文章开始时候的inputbox的返回类型在耍你, d是inputbox的返回值, 他是一个字符串, 而c是一次整数计算的结果, 他是一个整数. 一个字符串无论如何也不等于一个整数, 尽管他们字面上是一样的:"8"<>(不等于号)8 所以if的判断式的值永远是false, 总是执行else部分的语句. 我们可以这么修改 复制代码 代码如下: Dim a,b,c,d a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") d=Inputbox("答案:","输入答案") d=int(d) ''在这里我们取出了d的值, 变成整数, 再放回"d"这个盒子里 c=a*2+b*2 if d=c then msgbox "你好聪明" else msgbox "你好猪头 自己的题还不会!" end if 这样就成功了. 这也是Inputbox函数的一个讨厌的地方, 没办法, vbs没有其他好的输入方式了. 说到if, 我们不得不说一说逻辑运算符, 今天介绍两种, "and" 和 "or" 学会了if语句之后, 我举一个例子, 你一看就明白了. 复制代码 代码如下: dim a,b a=inputbox("输入一个数 >10") b=inputbox("输入另一个数 >10") a=int(a) b=int(b) if a>10 and b>10 then msgbox "正确" else msgbox "错误" end if 这段程序让你输入两个值, 必须都大于10, 只要有一个不大于, 就输出错误 复制代码 代码如下: dim a,b a=inputbox("输入一个数 >10") b=inputbox("输入另一个数 >10") a=int(a) b=int(b) if a>10 or b>10 then msgbox "正确" else msgbox "错误" end if 这段程序让你输入两个值, 只要有一个大于10, 就返回成功. 其实and和or很好 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS 硬盘读写统计(分区读写统计)下一篇: VBS For Next循环的一些细节
关于VBS基础教程的所有评论
