26选择结构程序设计 (2).ppt

《26选择结构程序设计 (2).ppt》由会员分享，可在线阅读，更多相关《26选择结构程序设计 (2).ppt（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、选择结构的程序可以用选择语句来表示。选择语句又称条件语选择结构的程序可以用选择语句来表示。选择语句又称条件语句、分支语句或判断语句。选择语句能使程序在执行过程中，根据句、分支语句或判断语句。选择语句能使程序在执行过程中，根据不同的结果，选择执行不同的处理。语句的主要形式是不同的结果，选择执行不同的处理。语句的主要形式是If语句。语句。26 选择结构程序设计选择结构程序设计1行行If语句语句行行If语句必须在一行内写完。该语句的执行过程是：先计算条语句必须在一行内写完。该语句的执行过程是：先计算条件表达式的值，如果条件表达式的计算结果是件表达式的值，如果条件表达式的计算结果是True，就执行，就

2、执行Then后后面的语句，否则执行面的语句，否则执行Else后面的语句。如果后面的语句。如果Else和它的后随语句不和它的后随语句不出现，则条件表达式值为出现，则条件表达式值为True时执行时执行Then后面的语句，否则就什么后面的语句，否则就什么也不执行，程序转向也不执行，程序转向If语句后面的后继语句。行语句后面的后继语句。行If语句格式如下：语句格式如下：If条件表达式条件表达式 Then语句语句1Else 语句语句2或或If条件表达式条件表达式Then 语句语句2块块If语句语句块块If语句的格式如下：语句的格式如下：If 条件表达式条件表达式1 Then语句块语句块1ElseIf 条

3、件表达式条件表达式2 Then语句块语句块2ElseIf 条件表达式条件表达式n Then语句块语句块nElse语句块语句块0End If说明：说明：这儿的语句块可以由一个或多个语句组成。如果只有两种不同这儿的语句块可以由一个或多个语句组成。如果只有两种不同情形的分别处理，则中间所有的情形的分别处理，则中间所有的ElseIf部分都不必书写，只保留语句块部分都不必书写，只保留语句块1和语句块和语句块0相应的部分即可，即块相应的部分即可，即块If语句可以简化为以下格式：语句可以简化为以下格式：If 条件表达式条件表达式1 Then语句块语句块1Else语句块语句块0End If块语句的执行过程是：

4、先测试块语句的执行过程是：先测试“条件表达式条件表达式1”，如果该条件，如果该条件为为“True”，则执行，则执行Then后面的后面的“语句块语句块1”；如果；如果“条件表达式条件表达式1”为为False，则顺序测试每个，则顺序测试每个ElseIf子句中的子句中的“条件表达式条件表达式”，当发现某，当发现某个个“条件表达式条件表达式”为为True时，就执行与其相关的时，就执行与其相关的Then后面的后面的“语语句块句块”；如果所有的；如果所有的ElseIf“条件表达式条件表达式”均为均为False，则执行，则执行Else后面的后面的“语句块语句块0”。在块结构的条件语句中，在块结构的条件语句中

5、，ElseIf子句的数量没有限制，可以子句的数量没有限制，可以根据需要加入任意多个根据需要加入任意多个ElseIf子句。子句。在有些时候，块结构的条件语句中可能出现多个条件为在有些时候，块结构的条件语句中可能出现多个条件为True的情况，此时只能执行一个语句块，即当遇到第一个为的情况，此时只能执行一个语句块，即当遇到第一个为True的条件的条件时，执行相应语句后就跳出时，执行相应语句后就跳出If结构，去执行下面的语句。结构，去执行下面的语句。块结构的条件语句可以嵌套，即把一个块结构的条件语句可以嵌套，即把一个If ThenElse放在放在另一个另一个If ThenElse块内，嵌套必须完全块内

6、，嵌套必须完全“包住包住”，不能相，不能相互互“骑跨骑跨”。3当条件表达式为当条件表达式为True或或False时进行处理的语句都只有一个时进行处理的语句都只有一个时，可采用行时，可采用行If语句，也可采用块语句，也可采用块If语句；而如果分支中进行处理语句；而如果分支中进行处理的语句不止一个时，必须采用块的语句不止一个时，必须采用块If语句。块条件形式的语句可以简语句。块条件形式的语句可以简化为：化为：If 条件表达式条件表达式 Then语句块语句块End If行行If语句必须在一行内写完，最后没有语句必须在一行内写完，最后没有End If；块；块If语句的语句的ElseIf部分和部分和El

7、se语句部分是可选的，最后必须有语句部分是可选的，最后必须有End If。4Exit和和End语句语句使用使用Exit语句可以在程序执行过程中退出事件过程。如语句可以在程序执行过程中退出事件过程。如Exit Sub。使用使用End语句可以在程序执行过程中，关闭程序。示例如下：语句可以在程序执行过程中，关闭程序。示例如下：Private Sub Command1_Click()Dim a As Integera MsgBox(“你确定要关闭吗？你确定要关闭吗？”，1, “关闭关闭”)If a 1 ThenExit Sub 关闭程序，此处可用关闭程序，此处可用End EndElsePrint “留

8、下留下”End IfEnd Sub本章节学习中需要掌握行本章节学习中需要掌握行If语句与块语句与块If语句的使用方法，并会语句的使用方法，并会使用使用If语句编写简单的选择结构的语句编写简单的选择结构的VB程序。难点是掌握块程序。难点是掌握块If语句的语句的嵌套使用方法。考查方式为选择题与填空题。嵌套使用方法。考查方式为选择题与填空题。1 1有如下有如下VBVB程序段：程序段：a a 5: b 5: b 3 3If Not b a Then a If Not b 1 Then y x 1 Else y x 1后，变量后，变量y的值是的值是 ()A1B0C1D2C C 3已知已知a、b、c为某三

9、条线段的长度，判断这三条线段能否构成一个三角为某三条线段的长度，判断这三条线段能否构成一个三角形的形的VB程序代码如下：程序代码如下：Private Sub Command1_Click() a 20 b 13 c 5 If a b c And b c a And c a b Then MsgBox “能构成能构成” Else MsgBox “构不成构不成”End Sub运行程序，单击命令按钮运行程序，单击命令按钮Command1后，结果是后，结果是()A弹出对话框中显示弹出对话框中显示“能构成能构成”B弹出对话框中显示弹出对话框中显示“构不成构不成”C出现出现“块块If没有没有End If”

10、的错误信息的错误信息D出现出现“False”的错误信息的错误信息 4有如下有如下VB程序段：程序段：Private Sub Command1_Click()a 3: b 4: c 5If a b And a c ThenMax aElseIf b c ThenMax bElseMax c End IfEnd Sub该程序运行后，整数型变量该程序运行后，整数型变量max的值为的值为 ()A0B3C4D5D D C C5有如下有如下VB程序段：程序段：Private Sub Command1_Click() a Val(Text1.Text) If a 5 Then b a 3 Else b a

11、* 3 End If Text1.Text Str(b)End Sub若要测试所有分支程序代码是否正确，下列测试数据中最恰当若要测试所有分支程序代码是否正确，下列测试数据中最恰当的一组是的一组是 ()A1,4B8,12C3,7D5,15D D6“如果如果a能被能被b整除，那么整除，那么xab”。能实现该功能的。能实现该功能的VB语语句是句是 ()AIf ab0 Then xab BIf ab Then xabCIf Int(a/b)0 Then xab DIf a Mod b0 Then xabC C7 7有如下有如下VBVB程序段：程序段：Private Sub Command1_Click

12、()Private Sub Command1_Click() a a 123123 b b 456456 If a Mod 2 If a Mod 2 1 Then1 Then MsgBox Str(a MsgBox Str(a b)b) Else Else MsgBox Str(a MsgBox Str(a b)b) End If End IfEnd SubEnd Sub程序运行后，在输出对话框中显示的提示信息是程序运行后，在输出对话框中显示的提示信息是 ( () )A Aa a b bB B123123456456C C579579D D显示出错信息显示出错信息半价票半价票 8某景区针对门票

13、的销售编写了如下某景区针对门票的销售编写了如下VB程序代码：程序代码：Private Sub Command1_Click() m InputBox(请输入身高请输入身高) If m 120 Then Label1.Caption 免票免票 ElseIf m 150 Then Label1.Caption 半价票半价票 Else Label1.Caption 全价票全价票 End IfEnd Sub运行程序，单击命令按钮运行程序，单击命令按钮Command1，若在出现的对话框中输，若在出现的对话框中输入入“125”，在标签，在标签Label1上显示的内容是上显示的内容是_。X Mod 2=1

14、X Mod 2=1 9下列下列VB程序用来判断某整数的奇偶情况：程序用来判断某整数的奇偶情况：Private Sub Command1_Click() x Val(Text1.Text) If _ Then Text2.Text 奇数奇数 Else Text2.Text 偶数偶数 End IfEnd Sub则程序划线处应填入则程序划线处应填入_。10(操作题操作题)编写一个程序，从文本框编写一个程序，从文本框Text1中输入一个数进行中输入一个数进行判断。有如下情况：输入的数小于判断。有如下情况：输入的数小于3，在标签，在标签Label2中显示中显示“输入输入错误，请重新输入错误，请重新输入”

15、；输入的数是偶；输入的数是偶(奇奇)数且又是数且又是3的倍数的话，在的倍数的话，在标签标签Label2中显示中显示“这是一个能被这是一个能被3整除整除的偶的偶(奇奇)数数”；如果不是；如果不是3的倍数则在标签的倍数则在标签Label2中显示中显示“这个数不是这个数不是3的倍数的倍数”。示例程。示例程序界面如下。序界面如下。n n=3=3请根据参考界面完成界面设计，程序代码参考如下：请根据参考界面完成界面设计，程序代码参考如下：Private Sub Command1_Click() Dim n As Integer n Val(Text1.Text) If _ Then If n Mod 2

16、0 And n Mod 3 0 Then_ ElseIf_Then Label2.Caption “这是一个能被这是一个能被3整除的奇数整除的奇数” Else Label2.Caption “这个数不是这个数不是3的倍数的倍数”_ Else Label2.Caption “输入错误，请重新输入输入错误，请重新输入” End IfEnd Sub请补充完整划线处的语句请补充完整划线处的语句Label2.Caption= Label2.Caption= 这是一这是一个能被个能被3 3整除的偶数整除的偶数 End IFEnd IFn Mod 2=1 And n Mod 3=0 n Mod 2=1 And n Mod 3=0