高等学校计算机教材：《Visual Basic 6.0》课程教学资源（PPT课件讲稿）第四章 选择结构

第4章选择结构 在程序设计中经常遇到这类问题,它需要根据不 同的情况采用不同的处理方法。例如,一元二次方程 的求根问题,要根据判别式小于零或大于等于零的情 况,采用不同的数学表达式进行计算。对于这类问题, 如果用顺序结构编程,显然力不从心。必须借助选择 结构。本章主要介绍实现选择结构的语句。包括:行 If语句、块I语句、 Else f语句、 Select case语句,以 及选择结构在程序设计中的应用。 请单属标左键换页 退出

第4章 选择结构 在程序设计中经常遇到这类问题，它需要根据不 同的情况采用不同的处理方法。例如，一元二次方程 的求根问题，要根据判别式小于零或大于等于零的情 况，采用不同的数学表达式进行计算。对于这类问题， 如果用顺序结构编程，显然力不从心。必须借助选择 结构。本章主要介绍实现选择结构的语句。包括：行 If语句、块If语句、 Else If语句、Select Case语句，以 及选择结构在程序设计中的应用。 退出

4.1块f 4.2ES语句 4.3何语句 4.4 Select Case语句 请单属标左键换页

4.1 块If 4.2 Else If语句 4.3 行If语句 4.4 Select Case语句

4.1块f 41.1块I的格式、功能 格式: If条件then 语句块1 TElse 语句块2 End if 请单属标左键换页

4.1 块If 4.1.1 块If的格式、功能 格式： If 条件 then 语句块1 [ Else 语句块2] End If

说明 (1)“条件”一般为关系表达式或逻辑表达式 通常把关系表达式或逻辑表达式的值为真时,称 为条件满足;值为假时,称为条件不满足。反之亦然。 (2)语句块1、语句块2分别是“条件”满足或不 满足时,处理方法的描述,可以是若干个语句。 (3)I6..Then、Else、 End if是VB的保留字。 功能: (1)块I首先判断“条件”,其值为真时,执行 语句块1;为假时执行语句块2。当缺省Ese.中的内 容时,该选择结构只对条件满足的情况进行处理。执 行过程如图4-1所示。 请单属标左键换页

说明： （1）“条件”一般为关系表达式或逻辑表达式。 通常把关系表达式或逻辑表达式的值为真时，称 为条件满足；值为假时，称为条件不满足。反之亦然。 （2）语句块1、语句块2分别是“条件”满足或不 满足时，处理方法的描述，可以是若干个语句。 （3）If…Then 、Else、End If 是VB的保留字。 功能： （1）块If首先判断“条件”，其值为真时，执行 语句块1；为假时执行语句块2。当缺省[Else…]中的内 容时，该选择结构只对条件满足的情况进行处理。执 行过程如图4-1所示

点件粥足 语句块1 语句热2 B置下一句 图41块置执行社摆 单鼠标右簧换页

【例41】火车站行李费的收费标准是50kg以内 (包括50kg)0.20/kg,超过部分0.50/kg。编写程序, 要求根据输入的任意重量,计算出应付的行李费 根据题意计算公式如下: weight×0.2 weight≤50 ( weight-50)×0.5+50×02 weight>50 请单属标左键换页

【例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

运行界面如图4-2所示。 k行李托运收费程序 行李重量9878 计算 清除 应付款84.39 出 图4-2例4.1远行界面 请单属标左键换页

对象属性设置如表41所示 表41 例41属性控件设置 对象 民蚀 设置 Labell Caption 行李野量 Label? caption 应付款 Text1 Text 对象 设置 text 2 Text Commande caption 计算 Command2 cation 活除 Command3 caption 迟出 form1 catlon 行李托远收费序 请单属标左键换页

程序代码如下: "计算"按钮代码 Private Sub Command1 Click () Dim weight as single, pay as single weight= Text1.Text If weight> 50 Then pay=( weight-50)*0.5+50*02 Else pay= weight *0.2 End if Text2 Text= pay End sub 请单属标左键换页

程序代码如下： ' "计算"按钮代码 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 =r Text2 Text End sub Private Sub Command3 Click () End End sub 请单属标左键换页

Private Sub Command2_Click（） Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click（） End End Sub