vbif语句课件选择结构

End If
表达式
F
T
语句（块）
单分支结构
Visual Basic程序设计教程
中国石油大学(华东)石油工程学院
1、If单分之结构
说明： ① 表达式都是逻辑表达式，数值表达式和关系表达式被视为逻辑表达 式的特例。当表达式为数值表达式时，VB 将这个值解释为 True 或 False：一个为零的数值为 False，而任何非零数值都被看作 True。 ② 语句块可以是一条或多条语句。如果使用格式1的简单形式表示，则 只能是一条语句；或用冒号隔开的多条语句，但这些语句必须书写在一 行上。 ③ 可以使用单行或多行语法有条件地执行一个语句。下面两个例子是 等价的：
③ 语句中的ElseIf子句和Else子句都是可选项，如果省 略这些子句，则成为单分支结构。
④ If...Then...ElseIf 只是 If...Then...Else 的一个特例。注 意，可以使用任意数量的 ElseIf 子句，或者一个也不用。可 以有一个 Else 子句，而不管有没有 ElseIf 子句。
表达式
F 语句块2
❖ 功能：当表达式的值为非0（True）时,执行Then后 面的语句块1，否则执行Else后面的语句块2。
Visual Basic程序设计教程
中国石油大学(华东)石油工程学院
2、If双分之结构
例如
Dim Data As Integer Data = InputBox(“请输入成绩：") If Data >= 90 Then Print “优秀” Else Print “合格” Print "计算完毕"
例如，If Data>=90 Then Print “优秀”
例题：输入一个数，如果是3的倍数则通

If 语句
◦ 单行结构条件语句
If 条件1 Then 语句序列1 【 Else 语句序列2】
◦ 块结构条件语句
If 条件1 Then 语句块1
[ElseIf 条件2 Then 语句块2]
[ElseIf 条件3 Then 语句块3 ]
…… [Else
语句块n] End If
IIf 函数
result=Iif(条件, true部分, False部分)
End Select
【例3】求一元二次方程ax2+bx+c=0的解 。
分析：
(1) 如果a=0；b=0，则方程无解，提示重新输入系数； b0，则 x=-c/b
(2) 如果a0； b2-4ac=0 ，则有两个相等的实根 b2-4ac>0， 则有两个不等的实根 b2-4ac<0， 则有两个共轭复根
Private Sub Command1_Click() A = Val(Text1.Text): B = Val(Text2.Text)
Label1. Caption = strC + "是数字字符"
Else
Label1. Caption = strC + “是其他字符"
End If
将以上语句用Select Case语句实现
【例2】：评定成绩等级 90~100：“优”80~89： “良”70~79：“中”60~69：“及格”
60分以下为“不及格”
7.2 多分支控制结构 ——select case语句
一、Select Case语句
1、基本格式
Select Case <测试表达式> Case <表达式1> <语句块1> Case <表达式2> <语句块2> …… Case Else <语句块n>

If x>0 Then Print “x是正数”
说明：表达式一般为关系表达式、逻辑表达式，也可 以为算术表达式，非0为True，0为False；
演示
语句块可以是一句或多句，若用2）表示，则只能是 一句语句，若多句，语句间需用冒号分隔，而且必须 在一行上书写。
与其临1渊0羡鱼，不如退而结网。
举例
❖ 例：已知两个数x和y，比较它们的大 小，并交换，使得 x大于y：
Do While (i <= 10) ‘循环条件是:i<=10是执行循环体
sum = sum + i ‘对要求的结果累加运算
i=i+1
‘改变循环条件，目的为了跳出循环！
ห้องสมุดไป่ตู้
Loop
Print sum
与其临2渊2羡鱼，不如退而结网。
[ Else 语句块 n+1 ] End If
一、If-else语句
elseif elseif
elseif
1）不管有几个分支，程序执行了一个分支后，其余分支 不再执行； 2）ElseIf 不能写成Else If 3）当多分支中有多个表达式同时满足，则只执行第一个 与之匹配的语句块
与其临1渊2羡鱼，不如退而结网。
第五章 VB的基础结构
世界会向那些有目标和远见的人让路
复习：三种基本结构
基本算法结构
顺序结构
与其临渊2羡鱼，不如退而结网。
分支结构
基本算法结构
当型循环
与其临渊3羡鱼，不如退而结网。
直到型循环
本章内容
1
选择结构
2
循环结构
3
示例
与其临渊4羡鱼，不如退而结网。
第一节 选择结构

BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重
未超
End If

语句应用
问题3：希望程序给出重、轻和标准三种提示 。
If BMI > 23 Then
超重
ElseIf
Else BMI>=19
Then
标准 偏轻
End If
演示

……
ElseIf 温暖 Then 挤挤眼
跺跺脚
Else
伸伸腰 End If

语句应用（体重测试）
体重指数BMI 10000* 体重公斤 身高厘米
2
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重

语句应用
问题1：希望程序给出超重的提示 。
If BMI > 23 Then 超重
End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重

语句应用
问题2：希望程序给出超重和未超两种提示 。 If BMI > 23 Then 超重 Else Else If BMI <= 23 Then 未超 超重 End If
BMI<19，偏轻 19≤BMI≤23，标准 BMI>23，超重

If 语句：
单分支（一种执行结果） 双分支（两种执行结果选一） 多分支（多种执行结果选一）

下次课内容：
3.4 分支（选择）结构
实验作业：
实验作业5

如果 当前输入的密码=系统保存的密码 那么 登录成功 如果 当前输入的密码<>系统保存的密码 那么 重新登录
数学中比较的例子： 分段函数

Print “呀,轻度肥胖了!” End If If (weight <= (high - 110) + (high - 110) * 0.5) And (weight > (high - 110) + (high - 110) * 0.3) Then
Print “哇,中度肥胖了!” End If If weight > (high - 110) + (high - 110) * 0.5 Then
再试一下
End If
End If If (weight <= (high - 110) + (high - 110) * 0.2) And (weight > (high - 110) + (high - 110) * 0.1) Then
Print “注意了哦,有点超重了!” End If If (weight <= (high - 110) + (high - 110) * 0.3) And (weight > (high - 110) + (high - 110) * 0.2) Then
-1 , x<0
分支结构1
if _x_<_0_ then 分支结构2 _y_=_-1_
else if _x_=_0_ then _y_=_0_ else _y_=_1_ end if
end if print y
分支嵌套——双分支嵌套双分支
if 条件1 then
语句1
else
分
if 条件2 then
else 语句B
end if
if 条件1 then
语句1
else
if 条件2 then

2.3程序的选择结构
本堂课学习目标
1. 理解VB关系表达式及逻辑表达式概念，并会 进行求值运算。 2. 掌握VB语言的条件选择语句if的结构、功能 和执行过程。
2.3.1 关系表达式
1. 关系表运算符
运算符号 含义 = 等 于 > 大 于 >= 大于等 于 < 小 于 <= 小于等 于 <> 不等于
3：表达式" ABD" > " ABC"的值为？true
4：表达式"123" >= 123的值为？ true
注意：如果一个操作数是数值型，会将另 一个操作数转化为数值型，然后比较。
2.3.2 逻辑表达式
1. 逻辑运算符
运算符号 含义 NOT AND OR 非 与 或
2. 逻辑表达式 用逻辑运算符将多个关系表达式连接起来的运算式。
2. 关系表达式 用关系运算符连接起来的运算式。
3. 关系表达式的值的类型 Boo关系表达式的求值规则 ①数值型数据的比较按照大小 ②非数值型数据的比较按照顺序
随堂检测练习： 1：a=3 b=4 ， a>b的值为？ false 2：表达式"2012" > " 1911"的值为？false
练习：
一元二次方程组a*x^2+b*x+c=0，请输入a，b，c系 数，判定方程是否有实数根。如有，则打印输出： x1=值1 x2=值2；否则打印：无根！。
Private Sub Command1_Click() Dim a, b,c As Integer Dim d , x1, x2 As single ’d为判别式 a = InputBox("请输入a的值", "输入", 5) ’输入a的值 b = InputBox("请输入b的值", "输入", 10) c = InputBox("请输入c的值", "输入", 5) d = b ^ 2 - 4 * a * c ’d为判别式 If d >= 0 Then x1 = (-b + Sqr(d)) / 2 * a x2 = (-b + Sqr(d)) / 2 * a Print "根为：x1="; x1, "x2="; x2 ’打印 Else Print “无根！" ’打印 End If ‘结束语句 End Sub

else
```
根据条件的真假顺序，执行相应的代码块。如果条件为真，执行对应的 代码块；否则，继续判断下一个条件。如果没有条件为真，则执行else 后面的代码块。
if语句的嵌套
总结词
介绍if语句的嵌套结构和用法。
详细描述
if语句的嵌套是指在if语句内部再使用if语句，以实现更复杂的条件判断和执行。嵌套if语句可以增加代码的灵活 性和可读性，但需要注意避免过度嵌套，以免降低代码可维护性。基本语法如下
避免嵌套过深
过多的嵌套会导致代码难 以阅读和维护，建议合理 使用else、elif等语句来简 化代码结构。
注意缩进
在Python中，缩进非常重 要，if语句块必须正确缩进 ，否则会导致语法错误。
04
if选择结构的示例
简单的if选择结构示例
总结词
只判断一个条件
详细描述
在简单的if选择结构中，程序只检查一个条件是否为真。如果条件为真，则执行相应的代码块；如果 条件为假，则跳过该代码块。
致的。
02 03
详细描述
在if选择结构中，条件判断是至关重要的，如果条件设置错误，可能会 导致程序执行结果不符合预期。例如，将大于符号误写为小于符号，或 者条件表达式中的变量值设置错误等。
解决方案
在编写条件表达式时，要仔细检查每个运算符和变量值，确保逻辑关系 正确无误。同时，可以采用注释或说明的方式，对条件表达式进行解释 和说明，以避免混淆和误解。
介绍if...else语句的语法和用法。
详细描述
if...else语句用于根据条件执行两个不同的代码块。基本语法如下
if...else语句的语法
``` if condition
if...else语句的语法

条件 成立 语句块1 语句块2 不成立
【课堂小结】
条件 Then 语句块1
开始
随堂 练习 知识 回顾 知识 延伸
结束
流程图
第三节——程序的选择结构
新课 导入 知识 讲解
随堂 练习 知识 回顾 知识 延伸
一、怎样实现对用户名以及密码 的分别判断； 二、image图像框和picturebox 图片框有什么区别； 三、实现让密码以“*”的方式 呈现。
第三节——程序的选择结构
新课 导入 知识 讲解 程序可以通过If语句完成对条件的判断、选择。
VB语言 单分支结构 双分支结构
流程图 true false
If 条件 Then 语句块1
随堂 练习 知识 回顾 知识 延伸
条件
【Else
语句块2】
语句块1
语句块2
End If
演示
第三节——程序的选择结构
新课 导入 知识 讲解
QQ登录
QQ登录时，
VB语言 条件
随堂 练习 知识 回顾 知识 延伸
如果输入账号和密码都正确， 语句块1
那么显示登录成功， Else
End If 语句块1 语句块 2 语句块 2 否则显示输入有误。
If 条件 Then
第三节——程序的选择结构
新课 导入 知识 讲解
QQ登录 If 输入账号和密码都正确 Then 显示登录成功
else please put your left hand.
If you enjoy running every morning ，
授课教师：杨 丹 授课对象：高一（10班）
第三节——程序的选择结构
新课 导入 知识 讲解
QQ登陆界面
用if语句怎么来实现呢？

使用块结构条件语句，按以上标准计算运费
14
分析： 设每公里每吨货物的基本运费为Price， 货物重为Weight， 运输距离为Distance， 折扣为Discount， 则总运费Freight的计算公式为:
Freight= Price * Weight * Distance *
(1 - Discount)
21
多分支选择语句的功能流程图:
T
语句组1 F
匹配表达式 表2
匹配 表达式表1
T 语句组2
F …… T
匹配表达式 表n
F
语句组n
语句组n+1
22
3. 说明 1） 测试表达式 : 数值或字符表达式 2） Case 后的“表达式表”可以为如下形式: ① 表达式1[,表达式2]... 如: Case 1 , 3 , 5 ② 表达式1 TO 表达式2 如: Case 10 TO 30 Case "A" TO "Z" ③ Is 关系运算符 表达式 如: Case Is >= 10 Case Is = 0 与 Case 0 相同 且三种形式可以混用,如: Case Is < -5 , 0 , 5 To 100
23
【例 5-3】用多分支选择语句实现：输入年 份和月份，求该月的天数。 分析：
当月份为1、3、5、7、8、10、12时，天 数为31天； 当月份为4、6、9、11时，天数为30天； 当月份为2时，如果是闰年则天数为29天， 否则天数为28天。某年为闰年的条件是： 年份能被4整除，但不能被100整除，或 年份能被400整除。
29
4） 不要在Case后使用布尔运算符表示条件 例如，要表示条件0<X<100，不能写成： Select Case X Case Is>0 And Is<100 ' 使用了And, 是错误的 … End Select 对于较复杂的条件，可以用块结构条件 语句来实现，而有些条件完全可以转换成 Case语句允许的几种形式之一。

两个单分支
If price = 120 Then MsgBox "猜对了，你真厉害“ If price <> 120 Then MsgBox “猜错了，再试试“
一个双分支 If price =120 then MsgBox "猜对了，你真厉害“ Else MsgBox “猜错了,再试试“
双分支语法格式
两 If price = 150 Then MsgBox "猜对了，你真厉害“
个 单
分 If price <> 150 Then MsgBox “猜错了，再试试“
支
If price =150 then
MsgBox "猜对了，你真厉害“
双 分
Else
支
MsgBox “猜错了“
End if
在线测试练习
Vb选择结构程序设计
猜价格游戏
猜价格游戏代码
If price < 120 Then MsgBox "猜低了，再试试“ If price > 120 Then MsgBox "猜高了，再试试“ If price = 120 Then MsgBox "猜对了，你真厉害“
语句1.如果价格小于120，那么信息提示框提示“猜低了，再试试” 语句2.如果价格大于120，那么信息提示框提示“猜高了，再试试” 语句3.如果价格等于120，那么信息提示框提示“猜对了，你真厉害”
❖ 在分支语句中，程序执行一个分支后，其余分支不再执行；
调试，运行 ③
点击关闭 ②
在此处输入代码 ①
改写程序
参考下面的程序，150元为mp3的价格，可以是单分支，也可以是双分支。
三 If price < 150 Then MsgBox "猜低了，再试试“

块格式：
If <条件> Then [A组语句]
Else [B组语句]
END If
等价于： If score >= 90 Then print“优秀”：print“恭喜你！”Else Print“加油！”
4.2.1 If 条件语句
8
三、多分支（If…Then…ElseIf）
格式：
if <条件1> Then
[ A组语句] [Elseif <条件2> Then
[ B组语句 ] [Elseif <条件3> Then
[ C组语句 ] …… [Else [N组语句 ]
End If
10
思考题
用键盘输入一字符，判断该字符是小写字母、大写字母、 数字字符还是其他字符，并作相应的显示。
4.2.1 If 条件语句 11
[B组语句] END If
条件 T A组语句
F
B组语句
4.2.1 If 条件语句
7
➢ 单行语句（双分支）
单行语句：
if <条件> then <语句序列A> else <语句序列B>
例
If score>=90 then
print “优秀”
print “恭喜你！”
Else
print “加油！”
End if
注意 ElseIf 的写法 可以有任意多个Elseif子句；else放最后，最多一个
。
9
4.2.1 if条件语句
小
If 结构
结
一.单分支（If…Then 结构 ） 二. 双分支（If…Then…Else 结构） 三. 多分支（If…Then…ElseIf 结构）

注：Option Explicit语句的作用范围仅限于语句所在模块. 对于需要强制式变量声明的窗体模块、标准模块及类模块， 必须将Option Explicit语句放在这些模块的声明段中。
3.2字符串运算符与字符串表达式 字符串运算符有两个：“&”、“+”，是例如： “Hello” & “ World” “Check” & 123 “Check” + 123 结果为“Hello World” 结果为“Checkl23” 错误
注意: “&”和“+”这两个运算符的区别：“+”运算符两边的操作数应均为字符串。 如果都为数值型，则进行算术运算；如果有一个为字符串，另一个为数值 型，则出错。“&’’运算符两边的操作数不论是数值型的还是字符串型的， 都进行字符串的连接运算，系统先将数值型操作数转换为字符串，然后再 进行连接运算。
3.1强制显式声明
VB可采用强制声明功能,使所有变量都必须先声明后使用. 这样，若运行时遇到一个未经明确声明的变量名，VB就会 发出错误警告。 声明方式: 可在窗体模块或标准模块的声明段中加入语句： Option Explicit 在“工具”菜单中打开“选项”对话框,单击“编辑器” 选择“要求变量声明”选项,即可自动插入 Option Explicit语句.
选择结构
IF语句 IF语句
1.1 单行结构条件语句 格式：If <条件> Then [<语句组1>][Else <语句组2>] 功能：如果<条件>成立，则执行<语句组1>，否则执行 <语句组2>。 •<条件>可以是关系表达式、逻辑表达式、数值表达式或 字符串表达式。 <语句组1>和<语句组2>可以有多条语句，各语句之间用 冒号隔开。

编写程序代码（select case语句）
• • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim m As Single Dim p As Integer m = Val(Text1.Text) Select Case m Case Is < 200 p=5 Case 200 To 499.99 p = m * 0.1 Case 500 To 999.99 p = m * 0.15 Case Is >= 1000 p = m * 0.2 End Select Text2.Text = p End Sub
该程序使用了3个IF语句嵌套 来处理四种情况，如果再多 几种情况，程序的可读性和 效率都会比较差。VB中还提 供了一种多重选择语句 (select case)，利用它可以方便 地实现同一程序。
使用多重选择语句实现活动二的程 序
活动二的程序中使用了三个If语句的嵌套来处理 四种情况，如果再多几种情况，程序的可读性和效率 都会比较差。VB中还提供了一种多重选择语句，利用 它可以方便地实现上一程序。 在VB中，设置了一个处理多重情况的语句，即多 重选择语句。多重选择语句的执行过程是： 当表达 式的值满足某Case语句的表达式范围，则执行该语句 后的语句组。例如，本程序中当m<200时，执行p=5； 当200<=m<=499.99时，执行p=m*0.1，当 500<=m<=999.99时，执行p=m*0.15，当m>=1000时， 执行p=m*0.2 。
程序界面
可能出现的 种情况
两
练习3程序代码
• • • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim a As Single 面积S为何要定义成字条符形变量？ Dim b As Single Dim c As Single Dim q As Single Dim S As String And为逻辑运算符 a = Text1.Text b = Text2.Text c = Text3.Text If a + b > c And a + c > b And b + c > a Then q = (a + b + c) / 2 S = Sqr(q * (q - a) * (q - b) * (q - c)) Else S = "不能构成三角形" End If Text4.Text = S End Sub

图 4.6 If...Then...Else 结构 T
条件
F
语句块 1
语句块 2
2. If…Then…Else结构（2）
【例】如果使程序能判断整数的奇偶性。 分析：判断某数的奇偶性，就是检查该数能否被2整除，若 能被2整除，该数为偶数，否则为奇数。
Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If (x Mod 2) = 0 Then Label2.Caption = x & " 是偶数" Else '增加Else子句, 显示奇数 Label2.Caption = x & " 是奇数" End If End Sub
程序结构——循环结构
循环结构是指对同一程序段重复执行若干次，被重复执 行的语句块称为循环体。循环体的执行与否以及次数多少 视 循 环 类 型 和 条 件 而 定 。 VB 中 常 用 的 循 环 语 句 有 For…Next语句和Do…Loop语句。For…Next循环用于已知 循环次数的情况下，而Do…Loop循环主要用于不知道循环 次数的情况下，在给定的条件满足时执行循环体。
If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2
条件 1
F F
T
条件 2
…
条件 n
F
．．． ElseIf 条件n Then
语句块n
语句块 1
T
T
语句块 2 语句块 n 语句块 n+1
Else
语句块n+1 End If
图 4.9 If...Then...ElseIf 结构

2022年1月25日9时59分
3/26
主要内容
条件语句 If…Then…Else 情况语句 Select Case…End Select 条件函数 Iif 和 Choose 综合示例
2022年1月25日9时59分
4/26
主要内容
条件语句 If…Then…Else 情况语句 Select Case…End Select 条件函数 Iif 和 Choose 综合示例
格式：
If <表达式> Then [语句块1]
Else
T 表达式 F
[语句块2]
语句块1
语句块2
End If
流程图：
功能：当表达式的值为真或非零时，执行Then后 语句块1，否则执行Else后面的语句块2。
2022年1月25日9时59分
10/26
示例： (双分支)输入两个数,求它们中的大数。
流程图：
表达式1 T 语句块1
F 表达式2
T 语句块2
F …
F 表达式n T 语句块n 语句块n+1
功能：根据表达式的不同值确定执行哪个语句块。
2022年1月25日9时59分
13/26
示例：输入课程的成绩,显示对应五级制的评定。
mark = Val(Text1.Text)
If mark >= 90 Then
T
语句块1
F
表达式列表2
T
语句块2
F
…
…
…
表达式列表n
T 语句块n
F
语句块n+1
功能：根据“测试表达式”的值，从多个语句块 中选择符合条件的一个语句块执行。
2022年1月25日9时59分