- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
阿格乡九年制学校教案
课 题
第十课 蜗牛赛跑游戏-循环结构程序设计
课时及授课时间
1 课时
2016年 5月 9 日
授课人
教学目标 (学习目标)
1)认知目标:通过FOR/NEXT语句的学习,写出简单的循环程序。
2)能力目标:培养学生分析问题,解决问题的能力。
3)情感目标:激发学生学习热情,培养学生学习的积极性。
教学重点
掌握FOR/NEXT循环语句的格式,并能运用其来编制简单的小程序。
教学难点
解决问题的方法和思路,要绘制好流程图,确定循环变量和循环体
教学用具
多媒体机房,教学平台,多媒体课件
教学方法 (学习方法)
讲解演示法,比较法,任务驱动法
教学过程
创设情境,导入新课
同学们你们可能在电视里看过赛马比赛和赛车比赛,它们在各自的跑道上奋力奔跑,时而我领先,时而你落后,而控制台上的文本显示框也时刻刷新着各选手的奔跑距离。真是一场激烈的比赛啊!观众也在这种场合非常激动。
师:同学们想不想制作这样的模拟平台,亲临现场的感觉,那么我们开始设计游戏界面;
游戏界面如图所示:
2. 学生自主完成建立程序初始界面和设置对象属性
任务(1)添加控件并设置对象的属性:
控件名
属性名
属性值
说明
Form1
Caption
蜗牛赛跑
标题
Frame1
Caption
控制台
标题
commandBotton1
Caption
开始
标题
commandBotton2
Caption
退出
标题
Label1
Caption
选手1
标题
Label2
Caption
选手2
标题
Label3
Caption
选手3
标题
Text1
Caption
设置为空
Text2
Caption
设置为空
Text3
Caption
设置为空
Image1
Picture
蜗牛的图像
选择显示图片
Left
0
初始值为0
Image2
Picture
蜗牛的图像
选择显示图片
Left
0
初始值为0
Image3
Picture
蜗牛的图像
选择显示图片
Left
0
初始值为0
3、写出程序,并通过流程图加以理解
任务(2)开始按钮编写代码
点击开始按钮,蜗牛开始奔跑。我们使用循环语句更为方便。
师:循环结构也称重复结构,它的作用是使一段程序能重复执行,被重复执行的部分称为循环体。但重复一般都是有条件的,即在满足FOR语句中的条件下才执行循环体,否则退出循环体。下面我们就来看一下FOR/NEXT语句的语句格式:
格式:FOR〈数值变量名〉=〈数学表达式1〉TO〈数学表达式2〉STEP〈数学表达式3〉
〈语句序列(循环体)〉
NEXT
说明:1)当步长为1时,STEP 1可省略不写;
2)语句序列中可以含有任意多条语句,也可无任何语句,称为空循环;
3)语句序列中可以含有循环结构;
4)有时需中途退出循环,这时用EXIT FOR命令。
For…..next 语句结构的流程图如下:
是否满足条件
是否满足条件
执行语句组
否
是
Private Sub Command1_Click()
If Image1.Left = 0 Then 如果图片不再初始位置,则
Image1.Left = 0
Image2.Left = 0 初始位置为零
Image3.Left = 0
End If
Randomize 随机化种子
For i = 1 To 1200 循环1200次
Image1.Left = Image1.Left + Int(Rnd * 15) 图片1左边界坐标添加随机数
Image2.Left = Image2.Left + Int(Rnd * 15)
Image3.Left = Image3.Left + Int(Rnd * 15)
Text1.Text = Image1.Left 显示图片1的左边界坐标
Text2.Text = Image2.Left
Text3.Text = Image3.Left
Next i
End Sub
任务(3)退出按钮编写代码
Private Sub Command2_Click()
End
End Sub
四,知识回顾
这一课通过蜗牛赛跑游戏学习了for…..next循环语句的使用,还复习了if条件判断语句,以及随机数的使用。还使用创建消息框语句MsgBox 函数。
五、练习
任务(4)同学们利用上节课学过的选择判断语句来改进程序,即判断哪只蜗牛是第一名并单出消息框,改进程序后的游戏界面如图所示:
同学们请仔细下面的程序
您可能关注的文档
最近下载
- AWSD1.1-2015(中文版)焊接技术标准.pdf VIP
- 2025年招生和对口招生文化素质测试数学试题及参考答案 完整版912.pdf VIP
- 高清焓湿图超清分辨率.pdf VIP
- 第二单元银屏乐声+《眺望你的路途》课件+2025-2026学年人音版(简谱)八年级音乐上册+.pptx VIP
- EN 14994-2007 气爆泄压(防爆门)保护系统.pdf VIP
- 2025年高校分类考试招生和对口招生文化素质测试语文试题及参考答案.pdf VIP
- 货代-国际物流常用知识.doc VIP
- 中考语文精选题集(浙江专用)专题16新闻阅读(原卷版+解析).docx VIP
- 2025年交管学法减分考试题库以及答案(160题完整版) .pdf VIP
- 质量异常处理流程.pdf VIP
原创力文档


文档评论(0)