卓资县职业中学实训学案
班级_____姓名_________科目： VB 程序设计主备：闫森审核：日期：
课题：选择结构程序设计实际应用（2）
实验目的：
1、掌握If语句的使用。

2、掌握Select Case语句的使用。

实验内容与过程
说第一步：独学（请同学们独立完成以下任务）
知识回顾：
1、单分支条件语句格式：①IF <表达式> THEN
语句块
End If
②IF <表达式> THEN 语句块
2、双分支条件语句格式：
IF <表达式> THEN
语句块1
Else
语句块2
End If
任务1(基本设计题)
题目：一般网络游戏只允许成年人进入，你来编写一个根据
明
：
本
节
课
只
完
成
任
务
1
和
任
务
2
的
题
目
要
求
及
问
年龄判断是否成年的小程序。

（规定成年人年龄>18周岁）
请你根据题意，利用双分支条件语句格式2种方法（单行和
多行）编写程序代码，并上机测试。

设计界面如下：
编写程序代码：
题。

课后作业下次实训务必完成。

第二步：合作（问题）探究（对学、群学）
任
务
2.
（
提
高
设
计
题）
在
“
神州号”程序中，需要判断飞船飞行状况。

当飞船速度继续
加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）试
编写程序，输入不同的飞船速度V，判断它的各种飞行状况，
显示出来
飞船速度V 单位
（km/s）
飞行状况情况
程序界面如下：
补充程序代码：
Private Sub command1_click()
Dim V AS single, n AS integer
V= VAL(InputBox(“SPEED=”,”输入速度”))
<=V< 1--Move around Earth飞船绕
地球做匀速圆周运动
1
11 19<=V< 2--Move around SUN飞船离开
地球的控制 ,围绕太阳转
2
V> 3--Break gravitate of solar
飞船挣脱太阳引力飞出太阳
系
3
其它警告出错信息0
SELECT CASE V
Case is<
Print v,“警告Warning ” CASE_______________________
Print v, “绕地球” CASE IS<
___________________________ CASE is>=
Print v, “飞出太阳系”
_________________________________ End sub
上机验证并填写下表
3、课
后作
测试速度 飞行状况
V=8 V= V=12 V=
业
题目：铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg 时，元/kg ，超过50kg 而不超过100kg 时，其超过部分按元/kg 收费，超过100kg 时，其超过部分按元/kg 收费。

编写程序，输入行李重量，计算并输出托运的费用。

分析：设行李重量为w kg ，应付运费为x 元，则运费公式为：
程序界面如下：
)100()10050()50()100(45.05035.05025.0)50(35.05025.025.0>≤<≤⎪⎩
⎪⎨⎧-⨯+⨯+⨯-⨯+⨯⨯=w w w w w w
x
五组：六组：
第四步：总结评价（请同学们自行阅读并记忆）
选择结构语句的格式：
单分支：①IF <表达式> THEN
语句块
End If
②IF <表达式> THEN 语句块
双分支：IF <表达式> THEN
语句块1
Else
语句块2
End If
多分支：
① If语句的嵌套格式
是指语句序列1或语句序列2本身又是一个If
语句
If <条件1> Then
If <条件2> Then。