vbs基础教程3

接着上节课，我们来学判断结构。

介绍

在学判断结构之前，我们首先要了解一个新的概念:布尔值(Boolean)所谓布尔值，这种变量只有两个可能:真(True)或假( Flase). 这种变量在某些情况下很有用(比如"开关"). 我们定义一个Boolean变量的方法和其他变量一样, 赋值也一样, 例如:

 dim a,b 
 　　a=true 
 　　　　b=false 

好的，切入正题.我们来了解简单判断结构语句，它的公式为:**if 判断式 then 语句体 **，简称if语句. if在这可以理解成"如果"，then暂时理解成则.公式的意思就是:如果是这样，就怎样.下面我们来看一个例子.

　dim a,b 
　　a=29
　　b=21 
　　if a>b then msgbox "a大于b" 

解析

下面我用白话文来解释一下:首先定义a和b两个变量,给他们相应的赋值。接着if b>a 如果b大于a(这就是前面说的判断式) then则msgbox"…"输出内容b大于a(这就是前面说的执行语句体)。这里的判断式只会返回两个结果:要么b>a,要么a> b,也就是要么真,要么假,真则执行输出,假则不执行。
但要是我们想要执行a大于b的结果, else就闪亮登场了,它可以理解为"否则"的意思，就是说如果结果为假该执行什么，我们来看一个例子:

dim a,b 
　　a=29
　　　　b=21
　　　　　　if a>b then msgbox "a大于b" 
　　　　　　else
　　　　　　msgbox"b大于a"
　　　　　　end if

有的小伙伴可能就会有疑问:怎么突然冒出来一个end if呢？之前我们介绍的是简单化的if语句,现在这个if语句,它以end if表示if语句的结束。这样我们又完善了这个公式:if 判断式 then 执行语句 else 执行语句 end if

接下来我给大家出一个题目:请自己设置一个小于十的数，让别人猜，如果别人猜对了，就输出…如果别人猜错了，就输出…(利用if语句)

dim a
　　a=inputbox("输入一个小于10的数") 
　　　　　　a=int(a) 
　　　　　　　　　　if a=8 then 
　　　　　　　　　　　　msgbox "正确" 
　　　　　　　　　　　　　　else 
　　　　　　　　　　　　　　　　msgbox "错误" 
　　　　　　　　　　　　　　　　　　end if 

哈哈，是不是很简单做出来一个"小游戏"？(虽然不怎么好玩)有的同学可能就会问了:为什么我写的总是错误？还记得之前讲的吗？inputbox接收的结果默认是字符串，就像8≠"8",8是一个数字，"8"是一个字符串,他们俩永远都不会相等。想要使它们相等要用int()转换成整数类型。(=也可以表示等于的意思。)
我们再来学逻辑运算符and (与)和or(或)。比如你要判断必须同时满足两个条件,即两个条件都为真，中间用and,若你只要在几个条件中满足一个条件，就用or，下面来举and的例子。

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 

这个程序让必须输入的两个数都是大于十，才输出正确，如果有一个不大于十，就输出错误

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，就输出正确。

看了程序大家是不是都一目了然了？

作业

1) 使用3个bool值, 储存你的家人是否是男性 (提示:sister1male=false)
　　　　2) 给定一个个数, 大于10而且小于20输出"正确", 否则输出"错误"
　　　　　　3) 输入12,或者15, 输出"正确", 否则输出"错误"
　　　　　　　　　　5) 自己随便设计一个程序, 应用今天的知识
　　　　　　　　　　制作过程比较匆忙，如有不当请在评论区指正