VBS编程教程 (第3篇)

第三篇（共六篇）：

首先, 我来解决一下上次课程的几个疑问 

第一, 那个余数问题, 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) 自己随便设计一个程序, 应用今天的知识