VB程序设计(第2版)教学课件4-7-块If语句实现嵌套

1、VB程序设计块If语句嵌套问题引入 在进行输入密码时，有时用户名错，有时密码错，也有时两个都错，如何进行这样的判断？我们一起学习如何进行这样的判断。列表框 块If语句嵌套概述1 块If语句嵌套格式2 块If语句嵌套应用3块If语句嵌套块If语句嵌套概述1 在块If语句中又包含一个或多个块If语句，称为块If语句嵌套。嵌套的块If语句可以是单分支If语句、双分支IfElseEnd If语句、多分支IfElseIfElseEnd If语句。块If语句嵌套格式2条件1成立？语句组1成立(True)不成立(False)条件2成立？语句组2成立(True)不成立(False)语句组3【If子句嵌套格式】

2、If Then If Then 语句组1 Else 语句组2 End IfElse 语句组3End If块If语句嵌套格式2【Else子句嵌套格式】If Then 语句组1Else If Then 语句组2 Else 语句组3 End IfEnd If条件1成立？语句组1条件2成立？语句组2语句组3成立(True)不成立(False)成立(True)不成立(False)块If语句嵌套格式2【说明】【示例】 每一个块结构都要完整，必须以If开始，以End If结束。 内层嵌套的块结构中除了满足该层规定的条件外，还必须满足外层结构中相应位置的条件。If x0 Then Print xElse If

3、 x=0 Then Print x Else Print -x End IfEnd If块If语句嵌套格式2【说明】【示例】 块嵌套的层数没有限制。 嵌套时外层的块结构必须完全“包住”内层的块结构，不能相互“交叉”。语句中的每一个Else必须和它最近的并没有配对的If相对应，避免产生混乱。If x0 Then Print xElse If x=0 Then Print x Else Print -x End IfEnd If块If语句嵌套应用3【应用】小明有3个球，小刚想要一个最小的，小明灵机一动，对小刚说：你编一个程序找到最小球，我就将最小球给你。小刚很高兴地编起了程序。小刚想：这就是求3个

4、数中的最小值。界面设计块If语句嵌套应用3代码设计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) If a b Then If a c Then min = a Text4.ForeColor = &H80FF& Label4.Caption = 橙色球最小“ : Label4.ForeColor = &H80FF& Else min = c

5、Text4.ForeColor = &HC000C0 Label4.Caption = 紫色球最小“ : Label4.ForeColor = &HC000C0 End If 块If语句嵌套应用3代码设计 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

6、 End If End If Text4.Text = Str(min)End Sub块If语句嵌套应用3拓 展 利用计算机编程实现“分数与等级”之间的转换。思考一下，如何解决这一问题？ 在文本框中输入一个0100之间的考试成绩，单击【显示】按钮，则在文本框中显示相应等级信息。90100分：优秀 8089分：良好7079分：中等 6069分：及格59分以下：不及格总 结 块If语句中又包含一个或多个块If语句，称为块If语句嵌套。 嵌套时外层的块结构必须完全“包住”内层的块结构，不能相互“交叉”。 块嵌套的层数没有限制。善于思考善于学习块If语句嵌套格式1【块If子句嵌套格式】If Then

7、If Then 语句组1 Else 语句组2 End IfElse 语句组3End If条件1成立？语句组1成立(True)不成立(False)条件2成立？语句组2语句组n成立(True)不成立(False)条件n-1成立？语句组n-1成立(True)不成立(False)多条件If语句应用1【应用】粽情端午，端午节吃粽子。超市粽子打折销售（每个粽子100g），红枣粽2.4元一个、豆沙粽2.6元一个、八宝粽2.8元一个、蛋黄粽3.3元一个。要求根据输入购买各种粽子的数量，计算并输出应付总金额。界面设计Locked属性设为True。多条件If语句应用1代码设计Private Sub Command

8、1_Click() Dim x As Integer Randomize x = Int(Rnd * 4 + 1) Label2.ForeColor = vbBlack Label3.ForeColor = vbBlack Label4.ForeColor = vbBlack Label5.ForeColor = vbBlack 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 Else Text1.Text = Str(x) Label5.ForeColor = vbRed End IfEnd Sub依据道路交通安全违法行为的严重程度，一次记分的分值为:12分、6分、3分、2分、1分五种机动车驾驶人在一个记分周期内未达到12分的，且没有违法未处理的记录(一般指C1)，在下一个记分周期开始时将会将原先的记分清0。如果有违法未处理的记录的情况，那么此次记录所扣的分值将积累到下一年，直到违法记录消除。条件1成立？语句组1条件2