VBS编程教程

第三篇（共六篇）： 首先, 我来解决一下上次课程的几个疑问 第一, 那个余数问题, 16 / 5 = 3...1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思. 第二, 请看一下程序清单: 1) Dim a,b,c a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") c=a*2+b*2 Msgbox(c) 这个 输入1、2时是6 2) Dim a,b,c a=inputbox("a是:","输入半径") b=Inputbox("b是:","输入半径") c=(a+b)*2 Msgbox(c) 这个输入1、2时是24 　 为什么会不一样呢? 在数学上c=(a+b)*2 和 c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" have you understood? 你还记得InoutBox函数的返回值吗? 是字符串! 这就看出问题了吧, 在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数, 所以a,b都是字符串变量, "1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样, 我们总是笑着说"错啦,应该是11".但为什么, a可以*2却不发生错误呢? 这时VBS比较智能的一个表现, 如果这个字符串的内容是一个数且对他进行数学运算, 则把字符串强制转换成数参与运算, 如果字符串代表一个数, 但不参加数学运算, 而是参加字符串运算(合并)则当作字符串处理, 所以你看到a+b=12, 这时候a+b的结果(12)是一个字符串, 当它要乘以2的时候就被强制转换成了数字12, 这样我就得到了结果24. 　　怎么修改这个程序呢? 我们需要用到另一个内建的函数:int, int函数的功能是将输入值转化成整数值, 我们这样修改: c=(int(a)+int(b))*2 　　这个意思就是把a作为参数传递给int函数, int函数就会返回那个整数(你的输入值), 然后让返回值参与运算, 这样就得到了正确答案.所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c) ’c是你自己的变量 　　大家是不是觉得这个课程有点枯燥, 呵呵, 变量和运算符部分的确是这样的, 不过多多练习也就好了, 这次, 我们写写真正好玩的东西: 流程控制语句. 这个部分开始才是真正的编程. 　　首先介绍判断结构. 　　在此之前, 我们先介绍一种简单的变量类型:布尔值(Boolean), 这种变量只有两个可能值:True,Flase,即真或假. 这种变量在某些情况下很有用(比如"开关"). 我们定义一个bool变量的方法和其他变量一样, 赋值也一样, 例如: dim a,b a=true b=false 　　注意,true和"true"是不一样的, "true"是字符串,true是布尔值, 千万不能混淆. 　　回到if语句上来, 我们先来看看简化版的if语句:if 判断式 then 语句体　我们来看一个例子: dim a,b a=12 b=13 if b>a then msgbox("B大于A") 　　我们只看最后一行, a>b这个式子(表达式)有一个返回值, 是bool型的. 因为这个式子只有两种可能:b大于a, b不大于a, 所以这个式子也只有两种可能性, 即真或者假. if语句判断这个表达式的返回值是真还是假, 如果是真(true)则执行then后面的语句, 如果是假, 则不执行, 你把a的值改成14看看还会不会弹出对话框? 　　当我们要在判断之后执行多行语句怎么办呢, 我们需要用语句块来解决, 在这里可以叫块if dim a,b a=12 b=13 if a<b then msgbox("A小于B") msgbox("B大于A") end if 　　两个msgbox函数夹在if和end if之间, 这个部分就是语句块, 块里的每一条语句之前请空出4--8(一个<Tab>键)个格, 这不是必需的, 但是是一个好习惯, 以便看清楚程序的结构. 这样我们就能运行多于一个的语句, 请注意if...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("正确") elseif a=100 then msgbox("老大, 你耍我?") else msgbox("错误") 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很好理解, 我读"if a>10 or b>10 then" 这一句, 用华语是这样:"如果a大于10或者b大于10, 那么...". 这样是不是就很好理解了呢. 　　OK, 我们再来看一种新结构, 今天的课就结束, 已经午夜了, 我都累死了. 　　当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱, 所以就有了一种select case结构专门对付这种情况, select case的语法结构很简单: select case 变量名 case 值 语句 case 值 语句 case else 语句 end select 　　我们举个例子就能很简单的说明： dim a a=inputbox("输入一个1--3的值") a=int(a) ’处理inputbox返回字符串的问题 select case a case 1 msgbox("壹") case 2 msgbox("贰") case 3 msgbox("叁") case else msgbox("输入错误") end select 　　这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字, 这个程序写成if...elseif 的形式如下 dim a a=inputbox("请输入1--3的值") a=int(a) if a=1 then msgbox("壹") elseif a=2 then msgbox("贰") elseif a=3 then msgbox("叁") else msgbox("输入错误") end if 　　怎么样, 麻烦吧, 还是select好吧. 　　OK, 今天到此结束, 总结一下: 要点: 1) inputbox返回的是一个字符串, 而不是一个数, 必须用a=int(a)这种形式转化成数 2) bool变量的值只有两种:true,false 2.5) and两边的表达式都是true, 则返回true. or两边的表达式有一个是true, 就返回true 3) if 语句的格式 4) select...case的格式 作业: 1) 使用3个bool值, 储存你的3兄弟姐妹是否是男性 (提示:sister1male=false) 2) 给定一个个数, 大于10而且小于20输出"正确", 否则输出"错误" 3) 输入12,或者15, 输出"正确", 否则输出"错误" 4) 把5以内的正整数都转换成中国大些数字 5) 自己随便设计一个程序, 应用今天的知识