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