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

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

前提诊测
select case 语句格式？

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

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

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

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

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

Form1
caption
个人信息

Frame1
caption
请输入个人信息

Label1
caption
姓名

Label2
caption
年龄

Label3
caption
电子信箱

Label4
caption
兴趣爱好

Text1
（名称）
txtname


Text


Text2
（名称）
txtage


Text


Text3
（名称）
txtmail


Text


Command1
（名称）
Cmdcon


caption
确定

Command2
（名称）
Cmdcls


caption
清除

Frame1
caption
您输入的信息如下：

Command3
（名称）
Cmdexit


caption
退出


3、编写程序代码
Private Sub cmdCon_Click()
lblName.Caption = "姓名："& txtName.Text
lblAge.Caption = "年龄："& txtAge.Text
lblMail.Caption = "电子信箱："& txtMail.Text
lblInt.Caption = "兴趣："
If chkRead.Value = 1 Then
lblInt.Caption = lblInt.Caption + " 读书"
End If
If chkMusic.Value = 1 Then
lblInt.Caption = lblInt.Caption + " 音乐"
End If
If chkSport.Value = 1 Then
lblInt.Caption = lblInt.Caption + " 运动"
End If
Frame2.Visible = True
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdCls_Click()
txtName.Text = ""
txtAge.Text = ""
txtMail.Text = ""
chkRead.Value = 0
chkMusic.Value = 0
chkSport.Value = 0
End Sub
4.调试并保存程序
5、生成可执行程序

形成性测试
制作程序“个人信息”
/

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

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

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

作业
P106 2

课后反思


组长签字