版八年级信息技术第十课--蜗牛赛跑游戏-循环结构程序设计.docVIP

版八年级信息技术第十课--蜗牛赛跑游戏-循环结构程序设计.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 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)同学们利用上节课学过的选择判断语句来改进程序,即判断哪只蜗牛是第一名并单出消息框,改进程序后的游戏界面如图所示: 同学们请仔细下面的程序

文档评论(0)

yyons2019 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档