最新VB语言学习第四章.pptVIP

rdter dfgdr rdter dfgdr rdter dfgdr rdter dfgdr rdter dfgdr 第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。编写程序，要求根据输入的任意重量，计算出应付的行李费。 根据题意计算公式如下： 程序代码如下： 计算按钮代码 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中，处理过程为：若AB为真，交换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 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