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

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

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

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

4、应用代码设计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 Text4.ForeColor=&HC000C0 Label4.Caption=紫色球最小

5、“:Label4.ForeColor=&HC000C0 End If 块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块If语句嵌套应用拓 展 利用计算机编程实现“分数与等级”之间的转换。

6、思考一下，如何解决这一问题？在文本框中输入一个0100之间的考试成绩，单击【显示】按钮，则在文本框中显示相应等级信息。90100分：优秀 8089分：良好7079分：中等 6069分：及格59分以下：不及格总总 结结 块If语句中又包含一个或多个块If语句，称为块If语句嵌套。嵌套时外层的块结构必须完全“包住”内层的块结构，不能相互“交叉”。块嵌套的层数没有限制。块If语句嵌套格式【块If子句嵌套格式】If Then If Then 语句组1 Else 语句组2 End IfElse 语句组3End If条件1成立？语句组1成立(True)不成立(False)条件2成立？语句组2语句组n成立(

7、True)不成立(False)条件n-1成立？语句组n-1成立(True)不成立(False)多条件If语句应用【应用】粽情端午，端午节吃粽子。超市粽子打折销售（每个粽子100g），红枣粽2.4元一个、豆沙粽2.6元一个、八宝粽2.8元一个、蛋黄粽3.3元一个。要求根据输入购买各种粽子的数量，计算并输出应付总金额。界面设计Locked属性设为True。多条件If语句应用代码设计Private Sub Command1_Click()Dim x As Integer Randomize x=Int(Rnd*4+1)Label2.ForeColor=vbBlack Label3.ForeColor

8、=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成立？语句组2语句组3成立(True)不成立(False)成立(True)不成立(False)if语句嵌套格式【格式】if(表达式1）语句块1；else if(表达式2)语句块2；else 表达式真？语句块1真(非0)假(0)表达式真？语句块2语句块3真(非0)假(0)