卓资县职业中学实训学案
班级_____姓名_________ 科目： VB程序设计主备：闫森审核：日期：
课题：选择结构程序设计实际应用（2）
实验目的：
1、掌握If语句的使用。
2、掌握Select Case语句的使用。
实验内容与过程
说明：第一步：独学（请同学们独立完成以下任务）
知识回顾：
1、单分支条件语句格式：①IF <表达式> THEN
语句块
End If
②IF <表达式> THEN 语句块
2、双分支条件语句格式：
IF <表达式> THEN
语句块1
Else
语句块2
End If
任务1(基本设计题)
题目：一般网络游戏只允许成年人进入，你来编写一个根据
年龄判断是否成年的小程序。（规定成年人年龄>18周岁）
请你根据题意，利用双分支条件语句格式2种方法（单行和
多行）编写程序代码，并上机测试。
设计界面如下：
本
节
课
只
完
成
任
务
1
和
任
务
2
的
题
目
要
求
及
问
题
。
课
后
作
业
下
次
实
训
务
必
完
成
。
编写程序代码：
第二步：合作（问题）探究（对学、群学）
任务2.（提高设计题）
在“神州号”程序中，需要判断飞船飞行状况。当飞船速度
继续加大时，飞船将达到第二宇宙、第三宇宙速度（见下表）
试编写程序，输入不同的飞船速度V ，判断它的各种飞行状况，显示出来
程序界面如下：
补充程序代码：
Private Sub command1_click() Dim V AS single, n AS integer
飞船速度V 单位（km/s ） 飞行状况 情况
7.91<=V<11.19 1--Move around Earth 飞船绕地球做匀速圆周运动
1
11 19<=V<16.67 2--Move around SUN 飞船离开地球的控制 ,围绕太阳转
2
V>16.67 3--Break gravitate of solar 飞船挣脱太阳引力飞出太阳系
3
其它 警告出错信息 0
V= V AL(InputBox(“SPEED=”,”输入速度”)) SELECT CASE V
Case is<7.9
Print v,“警告Warning ” CASE_______________________
Print v, “绕地球” CASE IS<16.67
___________________________ CASE is>=16.67
Print v, “飞出太阳系”
_________________________________ End sub
上机验证并填写下表
测试速度 飞行状况
V=8
V=7.8 V=12 V=16.67
3、课后作业
题目：铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg 时，0.25元/kg ，超过50kg 而不超过100kg 时，其超过部分按0.35元/kg 收费，超过100kg 时，其超过部分按0.45元/kg 收费。编写程序，输入行李重量，计算并输出托运的费用。
分析：设行李重量为w kg ，应付运费为x 元，则运费公式为：
程序界面如下：
补充程序代码：
Private Sub Command1_Click() Dim w As Single, x As Single w = Val(Text1.Text) If w <= 50 Then
________________________ Else
If _________________ Then
x = 0.25 * 50 + 0.35 * (w –50)
Else
x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w –100) ______________ _______________ Text2.Text = x End Sub
第三步：分配展示任务（随机抽查）
一组： 二组：
)100()10050()50()100(45.05035.05025.0)50(35.05025.025.0>≤<≤??
???-?+?+?-?+??=w w w w w w
x