1、第4章 选择结构,在程序设计中经常遇到这类问题，它需要根据不同的情况采用不同的处理方法。例如，一元二次方程的求根问题，要根据判别式小于零或大于等于零的情况，采用不同的数学表达式进行计算。对于这类问题，如果用顺序结构编程，显然力不从心。必须借助选择结构。本章主要介绍实现选择结构的语句。包括：行If语句、块If语句、 Else If语句、Select Case语句，以及选择结构在程序设计中的应用。,退出,4.1 块If 4.2 Else If语句 4.3 行If语句 4.4 Select Case语句,4.1 块If,4.1.1 块If的格式、功能 格式： If 条件 then 语句块1 Else
2、语句块2 End If,说明：（1）“条件”一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。（2）语句块1、语句块2分别是“条件”满足或不满足时，处理方法的描述，可以是若干个语句。（3）IfThen 、Else、End If 是VB的保留字。功能：（1）块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。当缺省Else中的内容时，该选择结构只对条件满足的情况进行处理。执行过程如图4-1所示。,【例4.1】火车站行李费的收费标准是50kg以内（包括50kg）0.20/kg，超过部分0.50/kg。编写程序，
3、要求根据输入的任意重量，计算出应付的行李费。根据题意计算公式如下：,程序代码如下： “计算“按钮代码Private Sub Command1_Click（）Dim weight as single，pay as singleweight= Text1.TextIf weight 50 Thenpay =（weight - 50）* 0.5 + 50 * 0.2Elsepay = weight * 0.2End IfText2.Text = payEnd Sub,Private Sub Command2_Click（）Text1.Text = “Text2.Text = “End SubPriv
4、ate Sub Command3_Click（）EndEnd Sub,4.1.2 块If的嵌套所谓块If语句的嵌套，就是在语句块1或语句块2中又包含块If语句。【例4.2】任意输入3个数，按照从大到小的顺序输出。算法分析：排序的基本方法，就是比较大小，然后根据比较的结果分别加以处理。本例把3个数分别放在A，B，C中，处理过程为：若AB为真，交换A，B的值；否则不做处理。这样就保证了AB；然后再用C去比较。具体流程如图4-3所示。按如图4-4所示设置界面。,程序代码如下：“排序“按钮代码Private Sub Command1_Click（）Dim a As Single，c As Single
5、，b As Single a = Text1.Textb = Text2.Textc = Text3.Text 三个文本框的数据赋值给变量If a B,If c a Then 用C去比较Text4.Text = c CA成立，C最大Text5.Text = aText6.Text = bElseIf c b ThenText4.Text = a CB成立，C最小Text5.Text = bText6.Text = c,ElseText4.Text = a C处于中间Text5.Text = cText6.Text = bEnd IfEnd IfEnd Sub“退出“按钮代码Private Su
6、b Command2_Click（）EndEnd Sub,4.2 Else If语句,格式： If 条件1 then语句块1 ElseIf 条件2 then语句块2Else语句块n+1 End If,功能：（1）依次判断条件，如果找到一个满足的条件，则执行其下面的语句块，然后跳过End If，执行后面的程序。（2）如果所列出的条件都不满足，则执行Else语句后面的语句块；如果所列出的条件都不满足，又没有Else子句，则直接跳过End If，不执行任何语句块。ElseIf结构的执行过程如图4-6所示。,【例4.4】输入一个学生的一门课分数x（百分制），当x90时，输出“优秀”；当80x90 时，
7、输出“良好”；当 70x80 时，输出“中”；当60x70 时，输出“及格”，当 x60 时，输出“不及格”。算法分析：本例适合用多路分支结构来解决。运行界面如图4-7所示。,程序代码如下： “鉴定“按钮代码Private Sub Command1_Click（）Dim score!score = Text1.TextIf score = 90 ThenText2.Text = “优秀“ElseIf score = 80 ThenText2.Text = “良好“ElseIf score = 70 ThenText2.Text = “中“,ElseIf score = 60 ThenText2
8、.Text = “及格“ElseText2.Text = “不及格“End IfEnd Sub “退出”按钮代码Private Sub Command2_Click（）EndEnd Sub,ElseIf语句，实际完成的是块If的嵌套，它和块If嵌套的格式上有很大区别，ElseIf结构只有一对If和End If语句。另外应注意： 【ElseIf】 和【ElseIf】的区别。,4.3 行If语句,格式：If 条件 then 语句1 Else 语句2功能：当条件满足时，执行语句1；条件不满足时，执行语句2。从行If的格式和功能不难看出，行If语句是一种简单的分支结构，只是把一个简单的块If结构写在一
9、行中，减少了语句行，省略了“End If”的书写。行If完全可以用块If代替。【例4.6】任意输入3个数，找出其中的最大值。,程序代码如下：Private Sub Command1_Click（）Dim a As Single，b As Single，c As Single，max As Singlea = Text1.Textb = Text2.Textc = Text3.Textmax = aIf b max Then max = bIf c max Then max = cText4.Text = maxEnd Sub,4.4 Select Case语句,当对一个表达式的不同取值情况作不
10、同处理时，用ElseIf语句程序结构显得较为杂乱，而用Select Case语句将使程序的结构更清晰，Select Case语句又称为情况语句。,格式： Select Case 测试表达式Case 表达式列表1语句块1Case 表达式列表2 语句块2 Case 表达式列表n 语句块n Case Else 语句块n+1 End Select,功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。Select Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select下面的语句；
11、如果没找到，则执行Case Else下面的语句块，然后执行End Select下面的语句。,说明： “测试表达式”可以是数值型或字符串型表达式； “表达式列表”形式有以下3种： （1）一个表达式或用逗号隔开的若干表达式 （2）表达式1 To表达式2 （3）Is 关系运算符 表达式,【例4.7】把例4.3中 “鉴定”按钮的代码用Select Case语句改写。Private Sub Command1_Click（）Dim score!score = Text1.TextSelect Case scoreCase Is = 90Text2.Text = “优秀“,Case Is = 80Text2.Text = “良好“Case Is = 70Text2.Text = “中“Case Is = 60Text2.Text = “及格“Case ElseText2.Text = “不及格“End SelectEnd Sub,
