《Visual Basic 6.0程序设计 教学课件 ppt 作者 吴昌平 第四章》由会员分享，可在线阅读，更多相关《Visual Basic 6.0程序设计 教学课件 ppt 作者 吴昌平 第四章（35页珍藏版）》请在金锄头文库上搜索。
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/k
3、g。编写程序，要求根据输入的任意重量，计算出应付的行李费。 根据题意计算公式如下：,程序代码如下： “计算“按钮代码 Private Sub Command1_Click（） Dim weight as single，pay as single weight= Text1.Text If weight 50 Then pay =（weight - 50）* 0.5 + 50 * 0.2 Else pay = weight * 0.2 End If Text2.Text = pay End Sub,Private Sub Command2_Click（） Text1.Text = “ Text2
4、.Text = “ End Sub Private Sub Command3_Click（） End End 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
5、（） Dim a As Single，c As Single，b As Single a = Text1.Text b = Text2.Text c = Text3.Text 三个文本框的数据赋值给变量 If a B,If c a Then 用C去比较 Text4.Text = c CA成立，C最大 Text5.Text = a Text6.Text = b Else If c b Then Text4.Text = a CB成立，C最小 Text5.Text = b Text6.Text = c,Else Text4.Text = a C处于中间 Text5.Text = c Text6.T
6、ext = b End If End If End Sub “退出“按钮代码 Private Sub Command2_Click（） End End Sub,4.2 Else If语句,格式： If 条件1 then 语句块1 ElseIf 条件2 then 语句块2 Else 语句块n+1 End If,功能： （1）依次判断条件，如果找到一个满足的条件，则执行其下面的语句块，然后跳过End If，执行后面的程序。 （2）如果所列出的条件都不满足，则执行Else语句后面的语句块；如果所列出的条件都不满足，又没有Else子句，则直接跳过End If，不执行任何语句块。 ElseIf结构的执行
7、过程如图4-6所示。,【例4.4】输入一个学生的一门课分数x（百分制），当x90时，输出“优秀”；当80x90 时，输出“良好”；当 70x80 时，输出“中”；当60x70 时，输出“及格”，当 x60 时，输出“不及格”。 算法分析：本例适合用多路分支结构来解决。运行界面如图4-7所示。,程序代码如下： “鉴定“按钮代码 Private Sub Command1_Click（） Dim score! score = Text1.Text If score = 90 Then Text2.Text = “优秀“ ElseIf score = 80 Then Text2.Text = “良好“
8、 ElseIf score = 70 Then Text2.Text = “中“,ElseIf score = 60 Then Text2.Text = “及格“ Else Text2.Text = “不及格“ End If End Sub “退出”按钮代码 Private Sub Command2_Click（） End End Sub,ElseIf语句，实际完成的是块If的嵌套，它和块If嵌套的格式上有很大区别，ElseIf结构只有一对If和End If语句。另外应注意： 【Else If】 和【ElseIf】的区别。,4.3 行If语句,格式：If 条件 then 语句1 Else 语句
9、2 功能：当条件满足时，执行语句1；条件不满足时，执行语句2。 从行If的格式和功能不难看出，行If语句是一种简单的分支结构，只是把一个简单的块If结构写在一行中，减少了语句行，省略了“End If”的书写。行If完全可以用块If代替。 【例4.6】任意输入3个数，找出其中的最大值。,程序代码如下： Private Sub Command1_Click（） Dim a As Single，b As Single，c As Single，max As Single a = Text1.Text b = Text2.Text c = Text3.Text max = a If b max Then
10、 max = b If c max Then max = c Text4.Text = max End Sub,4.4 Select Case语句,当对一个表达式的不同取值情况作不同处理时，用ElseIf语句程序结构显得较为杂乱，而用Select Case语句将使程序的结构更清晰，Select Case语句又称为情况语句。,格式： Select Case 测试表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case 表达式列表n 语句块n Case Else 语句块n+1 End Select,功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。 Sele
11、ct Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select下面的语句；如果没找到，则执行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.Text Select Case score Case Is = 90 Text2.Text = “优秀“,Case Is = 80 Text2.Text = “良好“ Case Is = 70 Text2.Text = “中“ Case Is = 60 Text2.Text = “及格“ Case Else Text2.Text = “不及格“ End Select End Sub,
