新Visual Basic程序设计 第2版 普通高等教育“十一五”国家级规划教材 教学课件 吴昌平 第4章.pptVIP

第 4 章 选择结构 在程序设计中经常需要根据不同的情况采用不同的处理。例如，一元二次方程的求根问题，要根据判别式小于零或大于等于零的情况，采用不同的数学表达式进行计算。对于这类问题，必须借助选择结构。 本章主要介绍实现选择结构的语句。包括：行If语句、块If语句、 Else If语句、Select Case语句，以及选择结构在程序设计中的应用。 4.1 块If 4.1.1 块If的格式、功能 格式： If 条件 then 语句块1　　 [ Else 语句块2] End If 说明： 1．“条件”一般为关系表达式或逻辑表达式。 通常把关系表达式或逻辑表达式的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。 2．语句块1、语句块2分别是“条件”满足或不满足时，处理方法的描述，可以是若干个语句。 3．If…Then 、Else、End If 是VB的保留字。 功能： 块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。当缺省[Else…]中的内容时，该选择结构只对条件满足的情况进行处理。执行过程如图4-1所示。  【例4.1】火车站行李费的收费标准是50公斤以内（包括50公斤）0.20元/公斤，超过部分0.50元/公斤。编写程序，要求根据输入的任意重量，计算出应付的行李费。 根据 题意计算公式如下： 程序代码如下： 计算按钮代码 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.Text = End Sub Private Sub Command3_Click() End End Sub 4.1.2 块If的嵌套 所谓块If语句的嵌套，就是在语句块1或语句块2中又包含块If语句。 【例4.2】任意输入三个数，按照从大到小的顺序输出。 算法分析：排序的基本方法，就是比较大小，然后根据比较的结果分别加以处理。 本例把三个数分别放在A，B，C中。处理过程为：若AB为真， 交换A，B的值；否则不做处理。这样就保证了A≥B；然后再用C去比较。 具体流程如图4-3所示。按如图4-4所示设置界面。 属性设置如表4-2所示。 程序代码如下： 排序按钮代码 Private Sub Command1_Click() Dim a As Single, c As Single, b As Single a = Text1.Text b = Text2.Text c = Text3.Text 三个文本框的数据赋值给变量 If a b Then t = a a = b b = t ab时交换a、b的值 End If 保证AB 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.Text = b End If End If End Sub 退出按钮代码 Private Sub Command2_Click() End End Sub 注意： 1．保持块If结构的完整，不要漏掉End If。 2．尽量采用缩进式书写格式，使结构清晰。 3．尽量选择恰当的条件，使程序简单明了。 4.2 Else If语句 当需要进行多路分支处理时，例如，根据一个学生的分数，判定他的等