《vb教学课程》第五章 选择结构

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

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

5.1语句 5,21f— Then-Else y语句 53行语句 5.4 Select Case语句 请单属标左键换页

5.1 If语句 5.2 If —Then——Else If语句 5.3 行If语句 5.4 Select Case语句

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

5.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块置执行社摆 单鼠标右簧换页

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

【例】火车站行李费的收费标准是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