4 选择结构程序设计

选择结构：根据条件表达式的值，作出
不同的选择，执行不同的操作。
执行选择结构，首先对某个条件作出
判断，然后根据这个条件的具体取值情况 ，选择一组语句执行。
第4章
选择结构程序设计
©2003. 苏玉雄
1-2
本章学习目标
4.1 4.2 单分支、双分支结构 条件语句的嵌套 Select Case语句结构
需要的总金额。调用输入框输入要洗的照片数量，使用消 息框输出需要金额。 【案例分析】：这个程序中也用到了选择结构，而且有5 个选项，可以看出需要多重选择结构。选择的条件就是要 洗的照片的数量。
课堂练习4-5 程序设计
Private Sub Command1_Click() Dim x As Integer, P As Single x = Val(InputBox("请输入要洗的照片数量", "输入框")) If x > 100 Then P = x * 0.7 ElseIf x > 70 Then P = x * 0.8 ElseIf x > 50 Then P = x * 0.85 ElseIf x > 30 Then P = x * 0.9 Else P = x * 0.95 End If MsgBox "您需要付的金额为：" & Chr(13) & P, , "结算" End Sub
②
<表达式1> to <表达式2>：表示测试表达式的范围。其 中表达式1的值必须小于表达式2的值。 Is <比较运算符><表达式>：表示测试表达式的关系。 可使用的比较运算符有：<，<=，>，>=，=，<>。
③
4.3.1 Select…Case语句结构说明
3.
如果测试表达式与多个case子句中的表达式 相匹配，则只执行与之匹配的第一个case语 句块； 结构中case else为可选项，若它省略，则 当测试表达式与所有表达式值列不匹配时， 不执行任何语句块，直接跳到end select。
案例4-1
Private Sub Command1_Click() Dim x As Integer,y As Integer x=Val(Text1.Text) : y=Val(Text2.Text) If x<y Then t=x: x=y: y=t ‘用分隔符冒号隔开 End If Text1.Text=x : Text2.Text=y End sub
课堂练习 运行效果
程序运行前
程序运行效果
学习计划：
星期一、三、五：英语；
星期二、四： VB； 星期六：健身； 星期日：休息 编写程序：用户在给出星期几的信息之后（输入框函数 ），给出学习计划（消息框函数）。在输入0~6时分 别代表星期日到星期六，如果输入0~6以外的数，则 程序结束运行。 要求：用select 和if两种方法实现
演示
x=InputBox(“提示信息”, “标题”,默认值,XPos, YPos)
IIf 函数
语法格式：
变量=IIf (条件表达式，<真部分>,<假部分>)
等价于：
If (条件表达式)
Then y=真部分
Else y=假部分
IIF函数
例：
y=IIf(x>=o,1+x,1-2*x) If (x>=0)
2. “语句块”处是一条或多条连续的语句(允许
没有任何语句)。如果是第一种格式，那语句 块只能是单条语句。
3. 当程序执行到这条语句时，首先检查<表达式
>的值是否为True。如果是True，则执行 Then后的“语句块”，然后接着执行下面的 语句。 如果“条件”为False,则不执行“语 句块”中的任何语句，直接跳到下一条语句 执行。
输入数据
运算结果
4.3 Select Case语句结构
上一章节我们学习了多分支选择结构，但如 果条件较复杂时，上一章节的结构就不够明了， 对条件的描述能力较差，这里我们介绍另外一种 多分支选择结构Select…Case语句，同样也能实 现表示多分支选择的功能。
4.3.1 Select…Case语句结构
用户界面可自行设计。
4.4 单选框、复选框和时钟控件
框架
单选框
复选框
时钟控件框
计时器、单选框、复选框、框架在工具箱中位置
4.4.1 框架控件
框架控件： 框架控件是一个容器控件，在工具箱按钮为 ， 它除了增加窗体结构的美观外主要用于将屏幕上的对象 分组，方便用户识别。属于框架内的控件即可看成是一 组。使用框架时要注意，需首先绘制框架控件，然后再 添加需在框架内的其他控件，这些控件大小不能超过框 架。 当框架控件中有多个单选框时，当前有且只能选中 一个。 返回
If <条件表达式1> Then [语句块1] ElseIf <条件表达式2> Then [语句块2] ElseIf <条件表达式3> Then [语句块3] …… [Else 语句块n] E.
多分支if语句的执行顺序是：若表达式1的值 为True，则执行语句块1，否则，若表达式2 的值为True，则执行语句块2，依次类推。 在多分支结构中，每一个语句块执行后，均 直接转去执行End If 的下一条语句； 结构中的ElseIf项可以有多个，但else项只 能有一个，并且ElseIf是连着写，中间没有 空格； 结构中End If表示多分支选择语句的结束， 不可省略。
4.
案例 4-4
航空公司对飞往北京的飞机票实行按月份打折
销售，
–1月、3～6月份折扣为6折； –9～11月折扣为7折
–7、8月折扣为8折
–其余月份折扣为9折
设每张机票原价1000元，使用Select…Case结
构计算完成机票价格的计算。在程序中使用文本 框输入出行的月份，在文本框中输入购买的票数 。使用消息框输出总共需要的金额。
4.2 条件语句的嵌套
例：求一元二次方程a*x^2+b*x+c=0的根
。
案例4-3
银行定期存款利率
有一下几种：一年 2.25%；二年2.43%；三 年期2.70%；五年期 2.88%，现有本金X元， 分别按存储各种定期， 请编程计算到期后本息 合计。
演示
界面设计
案例4-3 源码
4.2 条件语句的嵌套
多个条件表达式次序问题。 3. Select Case语句的使用： Select Case 后不能出现多个变量；Case子句 后不能出现变量。
课堂练习
已知一个方程，输入x要求计算y 的值。
试编写程序完成计算。使用输入框输入X的值，使用消息 框输出y的值。
【案例分析】：该程序需要进行数学计算，根据x的不
案例4-1
输入两个数值x、y，通过程序使x的 值大于y的值。使用文本框输入并在文本 框中显示结果界面设计如下。

演示
案例4-1
【案例分析】：首先判断x和y哪一个值比较大，如果x
本来就大，那么我们不需要做任何事，反之y比x大，将x 和y的值互换，以保证x的值大于y的值。x和y的互换中， 我们要借助一个临时变量。
Select Case <测试表达式> Case <表达式1> [语句块1] [Case <表达式2> 语句块2 …… Case <表达式n> 语句块n] [case else 语句块 n+1] End Select
•执行顺序：
判断测试表达式与哪一个
case的表达式值列相匹配 ，若有，即执行对应case
案例 4-4
【案例分析】：本案例中毫无疑问要使用到多
分支选择结构。仔细分析题目会发现本案例中的 条件比较复杂，如果使用以前章节的条件表示方 法较麻烦，所以我们使用Select… Case语句， 对条件进行简单化。
案例4-4 程序设计
常 见 错 误
1．在选择结构中缺少配对的结束语句对多行式的 If块语句中，应有配对的 End If语句结束。 2. 多边选择ElseIf关键字的书写和条件表达式的 表示ElseIf 不要写成Else If；
子句后的语句块，然后跳转
到end select语句处；若没 有，则执行case else中的 else语句块，然后跳转到 end select语句处。
4.3.1 Select…Case语句结构说明
1. 2.
测试表达式可以是数值型或字符型；
各值列项可以取下列形式之一：
① <表达式1>[,<表达式2>]….：该种表达方式常用来表达 一些具体的取值。 例如：case 3,7
同值使用不同公式计算得到y的值。使用多重循环结构。 我们这里使用Select…Case语句完成。
课堂练习 程序设计
Private Sub Command1_Click() Dim x As Single, y As Single x = Val(InputBox("请输入x的值：", "输入框")) Select Case x ‘ 根据x的值计算y 的值 Case Is < 2 y=x^2+2*x Case Is < 5 y=x-x^3+3 Case Is < 7 y=x^3+x^2+x Case Else y=0 End Select MsgBox "您输入的x为：" & x & Chr(13) & "计算得到的y值为：" & y, , "结果" End Sub
Alignment Value
Enabled