《第12课 奥运场馆》参考教案.docx
学而优教有方
PAGE2/NUMPAGES2
第12课奥运场馆
（一）本课教学目标
1.学会设置滚动条控件的属性并通过滚动条浏览图片。
2.学会设置列表框控件的常用属性。
3.学会用Print方法在图片框上输出文字信息。
4.学会用一维数组存储信息。
5.理解奥运场馆的编程思路。
6.感受奥运场馆的建设成就。
（二）教学设计与教学建议
1．课堂引入分析
通过网上搜集奥运场馆信息获取奥运场馆图片，引入编制奥运场馆问答程序的需求，为了分散难点将整个程序分为“奥运场馆浏览”、“猜场馆”和“给答案”三个部分学习，逐步完善其功能。
2．重点内容分析
建议在教学中注意三个活动之间的衔接，即通过“奥运场馆浏览”学习滚动条控件的使用，建立滚动条中滚动块位置与图片名称之间的关系。
通过“猜场馆”学习列表框的使用，建立列表框选项与在图片框中用Print方法输出内容的对应关系。通过“给答案”学习一维数组的使用，建立数组下表变量存储数据与列表框选项内容之间的关系，建立数组下表变量存储数据与滚动条中滚动块位置对应的场馆图片的关系。
对于以下代码应该引导学生注意功能和含义：
滚动条HsbView中滚动块的当前位置值：
HsbView.Value
与滚动条当前值对应的奥运场馆文件名：
CStr(HsbView.Value).jpg
列表框LstName中选中项的序号：
LstName.ListIndex
列表框LstName中选中项的内容：
LstName.List(LstName.ListIndex)
（三）DIY和“创作天地”
DIY参考程序
1.搜集历届奥运会吉祥物图片，编写看吉祥物图片猜奥运会举办地的程序。
通过上网获取历届奥运会吉祥物图片并编号、修改文件名，修改奥运场馆程序使程序变为看吉祥物图片猜奥运会举办地的程序，在完成本活动的过程中了解奥运知识。
2.搜集历届奥运会会徽图片，编写看会徽图片猜该届奥运会是第多少届的程序。
通过上网获取历届奥运会会徽图片并编号、修改图片文件名，修改奥运场馆程序使程序变为看会徽图片猜该会徽是第几届奥运会的程序，在完成本活动的过程中了解奥运知识。
以上DIY的参考程序可参看第15课系统集成的奥运知识系统程序。
创作天地设计参考
分组完成“看图片猜奥运场馆”、“看吉祥物猜奥运举办地”、“看奥运会徽猜奥运是第几届”的程序，然后自己试着将三个程序合成在一个“猜猜看”的工程下。
建议设计一个猜猜看工程，在猜猜看窗体上建立三个命令按钮，使其单击后分别调用“看图片猜奥运场馆”、“看吉祥物猜奥运举办地”、“看奥运会徽猜奥运是第几届”的窗体文件，在猜猜看工程添加三个程序的窗体文件。
参考猜猜看
窗体如下：
参考猜猜看程序代码如下：
PrivateSubCmd1_Click()
Frmaychg.Show显示奥运场馆窗体
Frmcck.Hide隐藏奥运猜猜看窗体
EndSub
PrivateSubCmd2_Click()
Frmayjbd.Show显示奥运举办地窗体
Frmcck.Hide隐藏奥运猜猜看统窗体
EndSub
PrivateSubCmd3_Click()
Frmaydjj.Show显示奥运第几届窗体
Frmcck.Hide隐藏奥运猜猜看窗体
EndSub
在“猜奥运场馆”、“猜奥运举办地”和“猜奥运是第几届”窗体程序代码中分别增加以下程序使其三个窗体关闭后返回“猜猜看”窗体
PrivateSubForm_Unload(CancelAsInteger)
UnloadMe卸载当前窗体
Frmcck.Show显示奥运猜猜看窗体
EndSub
PrivateSubCmdCancel_Click()
UnloadMe卸载当前窗体
EndSub