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) 自己随便设计一个程序, 应用今天的知识
          制作过程比较匆忙,如有不当请在评论区指正

猜你喜欢

转载自blog.csdn.net/CSDN_C2/article/details/105906329