26选择结构程序设计

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 0 and n mod 3 0 then_ elseif_then label2.caption “这是一个能被这是一个能被3整除的奇数整除的