04选择结构下载全本共13章进我的文库.pptVIP

第 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] End If 说明： （ 1 ）“条件”一般为关系表达式或逻辑表达式。 通常把关系表达式或逻辑表达式的值为真时，称 为条件满足；值为假时，称为条件不满足。反之亦然。 （ 2 ）语句块 1 、语句块 2 分别是“条件”满足或不 满足时，处理方法的描述，可以是若干个语句。 （ 3 ） If…Then 、 Else 、 End If 是 VB 的保留字。 功能： （ 1 ）块 If 首先判断“条件”，其值为真时，执行 语句块 1 ；为假时执行语句块 2 。当缺省 [Else…] 中的内 容时，该选择结构只对条件满足的情况进行处理。执 行过程如图 4-1 所示。 【例 4.1 】火车站行李费的收费标准是 50kg 以内 （包括 50kg ） 0.20/kg ，超过部分 0.50/kg 。编写程序， 要求根据输入的任意重量，计算出应付的行李费。 根据题意计算公式如下： Pay ＝ weight × 0.2 weight ≤ 50 （ weight － 50 ）× 0.5 ＋ 50 × 0.2 weight ＞ 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 】任意输入 3 个数，按照从大到小的顺序输 出。 算法分析：排序的基本方法，就是比较大小，然 后根据比较的结果分别加以处理。本例把 3 个数分别放 在 A ， B ， C 中，处理过程为：若 A B 为真，交换 A ， B 的值；否则不做处理。这样就保证了 A ≥ B ；然后再用 C 去比较。具体流程如图 4-3 所示。按如图 4-4 所示设置 界面。 程序代码如下： ? 排序 按钮代码 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 a b 时交换 a 、 b 的值 End If 保证 A B If c a Then 用 C 去比较 Text4.Text = c C A 成立， C 最大 Text5.Text = a Text6.Text = b Else If c b Then Text4.Text = a C B 成立， 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 4.2 Else If 语句 格式： If 条件 1 then 语句块 1 ElseIf 条件 2 then 语句块 2 …… [Els