教案-山东-2013_山东省郯城县郯城街道初级中学初中信息技术《谜语大擂台》教案2.rar

1《谜语大擂台》教案2【课型】新授课【时间】（第14周第2课时）【教学设计】学习目标1．知识目标：掌握函数Int()、Rnd()、MsgBox()的用法；2．技能目标：：①学会用Select语句解决一些简单的应用问题；②学会用Text控件存储变量值，会用流程图分析问题；3．情感态度与价值观目标：培养学生选择判断能力和严谨的逻辑思维习惯。学习重点掌握常用函数Int()、Rnd()、msgbox()的用法。学会用Select语句解决一些简单的应用问题。学会用Text控件存储变量值，会用流程图分析问题。学习难点掌握常用函数Int()、Rnd()、msgbox()的用法。学会用Select语句解决一些简单的应用问题。学会用Text控件存储变量值，会用流程图分析问题。一、温故知新/预习检查本单元第3课我们设计过一个猜谜游戏，但那个游戏不够完善。让学生说出不完善的地方。这节课我们开发一个改进程序，教师把做好的程序展示给同学们看。二、自主探究、交流分享分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）教师演示程序，学生理解这个谜语玩的过程。分组讨论用流程图描述程序。1、构建界面：学生操作，添加控件，完成界面设计。2、设置对象属性：根据程序界面，在属性窗口中设置每个控件的属性值。采用自主探究和合作学习形式。设置控件属性：Label1.CaptionText1.TextText1.VisibleCommand1.CaptionForm1.Caption三、合作学习、释疑解难学生参考课本自主学习探究，输入程序运行调试。完成任务的同学当老师小助手辅导其他同学。教师引导学生读程序，理解Select语句的用法、三个函数Int(),Rnd()msgbox()的用法。教师总结分支结构If语句和Select语句的用法，区别。两者可替代。教师准备两个If和Select语句的小程序，让学生读程序，看哪组同学说出正确结果，加深对两个分支结构语法的理解。1、谜语Command1的Click事件代码PrivateSubCommand1_Click()DimxAsIntegerx=Int(1+3*Rnd())Text2.Text=CStr(x)SelectCasexCase1Label1.Caption="哥俩一般高，"&vbCr&"每天三出操，"&vbCr&_"团结互助好，"&vbCr&"人人都需要。"&vbCr&vbCr&"（打一生活用具）"Case2Label1.Caption="身体细又长，"&vbCr&"肚里黑心肠，"_&vbCr&"尖嘴多灵巧，"&vbCr&"写字画画它帮忙。"&vbCr&vbCr&"（打一学习用具）"Case3Label1.Caption="两脚尖尖，"&vbCr&"一走一站，"_&vbCr&"看看脚印，"&vbCr&"尽是圈圈。"&vbCr&vbCr&"（打一学习用具）"EndSelectEndSub2、退出Command3的Click事件代码PrivateSubCommand3_Click()EndEndSub3、确认Command2的Click事件代码PrivateSubCommand2_Click()DimxAsIntegerx=Val(Text2.Text)SelectCasexCase1IfText1.Text="筷子"ThenMsgBox"对了！你真聪明！",vbOKOnly,"祝贺"ElseMsgBox"不对！请再试一次！",vbOKOnly,"很遗憾"EndIfCase2IfText1.Text="铅笔"ThenMsgBox"对了！你真聪明！",vbOKOnly,"祝贺"ElseMsgBox"不对！请再试一次！",vbOKOnly,"很遗憾"EndIfCase3IfText1.Text="圆规"ThenMsgBox"对了！你真聪明！",vbOKOnly,"祝贺"ElseMsgBox"不对！请再试一次！",vbOKOnly,"很遗憾"EndIfEndSelectEndSubCase1MsgBox"筷子",vbOKOnly,"答案"Case2MsgBox"铅笔",vbOKOnly,"答案"Case3MsgBox"圆规",vbOKOnly,"答案"EndSelectEndSub四、梳理总结/小试牛刀1、编写程序过程中用到的控件的属性设置及用法2、程序中用的到分支结构Select语句，并与If语句的区别，两种语句的替换用法。3、程序中用到的Int(),Rnd()msgbox()函数。教学反思：这