VB程序设计第2版教学课件47块If语句实现嵌套

表达式真？ 真(非0)(0)
语句块1
语句块2
语句块3
End If
条件1成立？
成立(True)
不成立(False)
条件2成立？
成立(True)
语句组1
语句组2
不成立(False)
语句组3
2
块If语句嵌套格式
【说明】
【示例】
① 每一个块结构都要完整，必须以If开 始，以End If结束。 ② 内层嵌套的块结构中除了满足该层规 定的条件外，还必须满足外层结构中相 应位置的条件。
界面设计
3
块If语句嵌套应用
Private Sub Command1_Click()
代码设计
Dim a As Integer, b As Integer, c As Integer, min As Integer
a = Val(Text1.Text)：b = Val(Text2.Text)： c = Val(Text3.Text)
依据道路交通安全违法行为的严重程度，一次记分的分值 为:12分、6分、3分、2分、1分五种
条件1成立？
成立(True)
不成立(False)
条件2成立？
成立(True)
不成立(False)
语句组1
语句组2
语句组3
if语句嵌套格式
【格式】
if (表达式1） 语句块1；
else if (表达式2) 语句块2； else ……
Else Text1.Text = Str(x) Label5.ForeColor = vbRed
End If End Sub
机动车驾驶人在一个记分周期内未达到12分的，且没有违 法未处理的记录(一般指C1)，在下一个记分周期开始时将会 将原先的记分清0。如果有违法未处理的记录的情况，那么 此次记录所扣的分值将积累到下一年，直到违法记录消除。
试成绩，单击【显示】按钮，则在文本框中
显示相应等级信息。
90~100分：优秀
80~89分：良好
70~79分：中等
60~69分：及格
59分以下：不及格
总结
块If语句中又包含一个或多个块If语句，称为块If语句嵌套。
嵌套时外层的块结构必须完全“包住”内层的块结构，不能相互“交叉”。
块嵌套的层数没有限制。
End If
3
块If语句嵌套应用
Else
代码设计
If b < c Then
min = b
Text4.ForeColor = &HC000&
Label4.Caption = "绿色球最小“ : Label4.ForeColor = &HC000&
Else
min = c
Text4.ForeColor = &HC000C0
Label4.Caption = "紫色球最小“ : Label4.ForeColor = &HC000C0
End If
End If
Text4.Text = Str(min)
End Sub
3
块If语句嵌套应用
拓展
利用计算机编程实现“分数与等级”之间的转换。思考一
下，如何解决这一问题？
在文本框中输入一个0～100之间的考
If x = 1 Then Text1.Text = Str(x) Label2.ForeColor = vbRed
ElseIf x = 2 Then Text1.Text = Str(x) Label3.ForeColor = vbRed
ElseIf x = 3 Then Text1.Text = Str(x) Label4.ForeColor = vbRed
If x>0 Then Print x
Else If x=0 Then Print x Else Print -x End If
End If
3
块If语句嵌套应用
【应用】小明有3个球，小刚想要一个最小的，
小明灵机一动，对小刚说：你编一个程序找到最 小球，我就将最小球给你。小刚很高兴地编起了 程序。小刚想：这就是求3个数中的最小值。
界面设计
Locked属性设 为True。
1
多条件If语句应用
代码设计
Private Sub Command1_Click() Dim x As Integer Randomize x = Int(Rnd * 4 + 1) Label2.ForeColor = vbBlack Label3.ForeColor = vbBlack Label4.ForeColor = vbBlack Label5.ForeColor = vbBlack
1
块If语句嵌套格式
【块If子句嵌套格式】
If <条件1> Then If <条件2> Then [语句组1] Else [语句组2] End If
Else [语句组3]]
End If
条件1成立？
成立(True)
不成立(False)
条件2成立？
…… 不成立(False)
成立(True)
条件n-1成立？
问题引入
在进行输入密码时， 有时用户名错，有时密 码错，也有时两个都错， 如何进行这样的判断？
我们一起学习如何进行这样的判断。
块 I 列f 语表句框嵌 套
1 块If语句嵌套概述 2 块If语句嵌套格式 3 块If语句嵌套应用
1
块If语句嵌套概述
在块If语句中又包含一个或多个块If语句，称为块If语
If a < b Then
If a < c Then
min = a
Text4.ForeColor = &H80FF&
Label4.Caption = "橙色球最小“ : Label4.ForeColor = &H80FF&
Else
min = c
Text4.ForeColor = &HC000C0
Label4.Caption = "紫色球最小“ : Label4.ForeColor = &HC000C0
End If
条件1成立？
成立(True)
条件2成立？
成立(True)
不成立(False) 不成立(False)
语句组1
语句组2
语句组3
2
块If语句嵌套格式
【Else子句嵌套格式】
If <条件1> Then [语句组1]
Else If <条件2> Then [语句组2] Else [语句组3] End If
句嵌套。嵌套的块If语句可以是单分支If语句、双分支
If…Else…End If语句、多分支If…ElseIf…Else…End If
语句。
2
块If语句嵌套格式
【If子句嵌套格式】
If <条件1> Then If <条件2> Then [语句组1] Else [语句组2] End If
Else [语句组3]]
If x>0 Then Print x
Else If x=0 Then Print x Else Print -x End If
End If
2
块If语句嵌套格式
【说明】
【示例】
③ 块嵌套的层数没有限制。 ④ 嵌套时外层的块结构必须完全 “包住”内层的块结构，不能相互 “交叉”。语句中的每一个Else必 须和它最近的并没有配对的If相对 应，避免产生混乱。
成立(True)
语句组1
语句组2
语句组n-1
不成立(False) 语句组n
1
多条件If语句应用
【应用】粽情端午，端午节吃粽子。超市
粽子打折销售（每个粽子100g），红枣粽2.4 元一个、豆沙粽2.6元一个、八宝粽2.8元一 个、蛋黄粽3.3元一个。要求根据输入购买各 种粽子的数量，计算并输出应付总金额。