vb选择结构教案

卓资县职业中学实训学案

班级_____姓名_________ 科目： 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