程序的选择结构

问题5：自已上网查资料，搜集有关气象风级表的资料，比如 说0级是属于无风，12级是属于飓风等，试编写程序，输入一 个风级，输出相应的概况，名称，速度等。
语句组1 case 表达式列表2
…… case else 语句组N+1 end select
注： （1）表达式和表达式列表可以是 数值型或字符型，表达式列表还 可以是多个用逗号分开的表达式。 （2） 表达式列表与表达式的类 型必须相同。
运用多重选择语句编写的程序
Private sub command_click() X=inputbox(“请输入学生成绩”) Select case X
Case Is>=90 Print”优秀”
Case 80 to 89 Print”良好”
Case 70 to 79 Print”中等”
Case 60 to 69 Print”及格”
Case else Print”不及格” End select End sub
小结
与顺序结构相比较，选择结构就是程序的执行不再完全 按照语句的顺序执行，而是根据某种条件是否成立来决定程 序执行的走向，它进一步体现了计算机的智能特点。
（1） 分析问题 设买苹果的重量为x千克，应付款为y元,如果x>=2,则y=1.5*x*0.8,否则y=1.5*x。
（2）设计算法
① 输入x的值 ② 如果x>=2,则y=1.5*x*0.8 ③ 否则y=1.5*x ④ 输出y的值
（3）编写程序
程序
Private sub command1_click() Dim x as single x=Inputbox(“请输入购买苹果的重量”) if x>=2 then
command1_click()的事件过程
Dim A as single
‘定义求绝对值的数A为
单精度实型
A=inputbox(“r=”,”请输入半径”) ‘输入A的值
If A>=0 then
‘如果A>=0
Print “Y=”;A
‘输出A的值
Else
Print “Y=”;－A
‘输出－A的值
End if
顺序
算术运算符 > 关系运算符 > 逻辑运算符
如： a+b>c+d and a>=5 or not c>0 or d<0 当a=5,b=7,c=2,d=1时，运算结果是 ？
练习
问题1： 某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5 的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。
Y
else 语句组2
语句组1
end if
流程图:
条件成立吗? N
语句组2
注:在条件语句中有时可省略else和语句组2
练习:
求绝对值,要求输入一个数,求其绝对值.(根据解决问题的步骤:分析问 题—写出算法流程图)
1、分析问题: 已知、未知、关系
2、算法流程图：
3、编写程序： （如右）
Private sub command1_click() ‘定义名为
逻辑表达式
2<X<9
2<X和X<9
2<X and X<9
将多个关系表达式用逻辑运算符连接起来的式子称为逻辑表达式
逻辑运算符： Not（非） 取操作数相反的值。即当操作数为假时，结果为真；当操
作数为真时 ，结果为假
And（与） 当两个操作数都为真时，结果才为真。 Or（或） 当两个操作数都为假时，结果才为假。
2-3节 程序的选择结构
早读 第一节 第二节 课间操 第三节 第四节 第五节
顺序结构
早读 第一节
选择结构
不下雨
第二节
下雨
课间操
不做课间操
第三节 第四节 第五节
条件语句
用于在解决问题的过程中对事物进行判断和选择。
基本格式:
If 条件 then 语句组1 else 语句组2
或
if 条件 then
语句组1
y=1.5*x*0.8 else
y=1.5*x end if Print “应付款”；y；“元” End sub
问题2： 输入一个成绩，如果90分以上，则输出“优秀”；80-89，则输出“良
好”；70-79，则输出“中等”；60-69，则输出“及格”；60分以下则 输出“不及格”，请编写程序.
程序 Private sub command_click() X=inputbox(“请输入一个分数”)
End sub
‘过程结束
关系表达式
--------用关系运算符连接起来的式子
运算符号 含义
= 等于
＞ 大于
＞＝ 大于等于
＜ 小于
＜＝
＜＞
小于等于 不等于
1、当表达式成立时为真（T），否则为假（F）
2、（1）对数值型的数据比较，是按照数值的大小来进行比较。如 13>6的值为真。
（2）对其它类型数据的比较，则按照其序号进行比较。如＂D＂ >＂B＂其值为假。2<X<
注：在程序中，使 用了5个if语句来处理5 种情况。这样的程序 在可读性和效率方面 都是比较差的，如果 再多一些情况，它的 缺陷就会暴露得更加 明显，如何处理这个 问题呢？
多重选择语句格式
-------在VB语言中，设置了一个处理多种情况的语句，称为多重选择语句
它的基本格式为：
select case 表达Baidu Nhomakorabea case 表达式列表1
If X>=90 then print”优秀” If X>=80 and X<89 then print”良好” If X>=70 and X<79 then print”中等” If X>=60 and X<69 then print”及格” If X <60 then print”不及格”
End sub
在VB语言中，选择结构通过if语句和select case语句这 两个条件语句来实现，运用条件语句的关键是条件的表示， 如果能够正确地表达条件，就可以简化程序，在多重选择的 情况下，使用select case语句，可以使程序更直观，更准确 地描述出分支的走向。
课外拓展
问题4：编一个程序，输入三个数，输出其中的最大数。