课题
第十二课 多分支结构
课类
信息技术

教学目标
1、知识目标：
初步掌握分支结果特点，学会select case语句的基本用法，了解val()函数的知识2、能力目标：初步认识VB程序的输入、分支结构特点，编辑和运行方法
培养自主学习和思考能力
3、情感目标：通过教学激发学生探索学习现代科学知识的主动性，激发信息技术的兴趣，养成主动学习信息技术的积极态度和习惯

前提诊测
什么是顺序结果？

导入新课
按顺序办事，是我们经常采用的工作方式，在vb中我们也会见到“按顺序办事”的程序

教学方法
任务驱动法、演示操作法

教学重点
学会select case语句的基本用法

教学难点
初步掌握多分支结构

教学过程
一、分析示例程序“货币计算器”
//
二、设计程序“货币计算器”
1、设计程序界面
1.1 创建新工程
1.2 绘制窗体界面：一个文本框，两个命令，两个标签和一个框架
/
2、修改对象属性
对象
属性
属性值

Frm1
caption
货币计算器

Text1
（名称）
Txttotal


text
 

command1
（名称）
Cmdcal


caption
实际支付金额

Command2
（名称）
Cmdexit


caption
退出

label1
（名称）
Lblname


caption
所购商品总额为：

Label2
（名称）
Lblres


caption



3、编写程序代码
Private Sub cmdCal_Click()
Dim x As Single, y As Single
x = Val(txtTotal.Text)
Select Case x
Case Is >= 10000
y = 0.75 * x
Case Is >= 8000
y = 0.8 * x
Case Is >= 6000
y = 0.85 * x
Case Is >= 3000
y = 0.88 * x
Case Is >= 1000
y = 0.95 * x
Case Is < 1000
y = x
End Select
lblRes.Caption = y
End Sub

Private Sub cmdExit_Click()
End
End Sub
4、调试并保存程序
5、生成可执行程序
一、多分支程序
在前面的这个程序里，由select case 语句开头，由 end select 语句结尾的程序是一个多分支结构。中间的几个case 语句，设定了几种状态供给算计选择，从而构成多个分支。
种多分枝程序的一般格式是：
Select case 表达式
Case 表达式1
语句组1
Case 表达式2
语句组2
。。。。。
Case 表达式n
语句组n
End select
其中，select case 语句的表达式可以是一个变量，一个算式或一个对象的属性名.






执行多分支结构的程序时，计算机回根据select case 语句，然后执行相关的语句组规定的操作，完成处理任务后再转到 end select 语句下面继续运行。
二 、 编“列车时刻表”
下面我给同学们介绍这个程序的具体方法。
1．任务分析
同学们我给你们3分钟时间， 列车要经过多个不同的车站，我们用什么结构来编制这个列车时刻表。
2．编写代码
设计程序界面并编写代码。
第一步：绘制程序界面并设置对象的属性，各个控件的“名称”属性值可以参考下表设置。
对象 属性 属性值
Combo1 (名称) cbocity
Label1 (名称) ibltime
commandButton (名称) cmdok
3.测试保存
单击运行按钮，测试程序。打开下拉列表框，选定某个站名后，查看是否可以正确显示列车达到时刻。程序无误后，保存工程文件和窗体文件，最后生成exe 文件。

形成性测试
制作程序“计算长方体的表面积”
//


小 结
教师引导学生总结：
从上面的过程，你能进一步得出什么结论吗？试着继续上面的操作过程。观察结果是否能证实出的结论。你能从理轮上说明这些结论吗？
*.教师对学生的表扬
教师对学生编辑的分支程序加以表扬来增加他们的自信心，并及时纠正错误，激发学生继续学习的兴趣
［提问］：纵观上述一个程序，从运行的结构上说都有一个共同的特点。从程序开始到程序结束，程序运行有没有出现某一行语句重复运行，或者某一行语句不执行的情况呢？
程序设计的顺序结构： 遇到需要选择并完成多种不同的情况时，可以使用多分支结构的程序。

练习：
某运输公司的运费计算方法为：每运输一吨货物，里程在200 公里以内的每公8元。里程在200 公里以内的每公6元。里程在500 公里以内的每公5元。请编一个计算运费的程序，要求输入货物的质量和运输的距离后就可以计算出运费。

板书设计
第十二课 多分支结构
一、分析示例程序
二、设计程序

作业
P105 1

课后反思


组长签字