《精品：循环结构程序设计.ppt》由会员分享，可在线阅读，更多相关《精品：循环结构程序设计.ppt（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、在在Visual Basic 6.0 Visual Basic 6.0 中中循环结构程序设计循环结构程序设计 蜗蜗牛赛跑游戏牛赛跑游戏 授课老师：艾克拜尔吾买尔九年级（第 信息技术13人民教育出版社 课）创设情境，导入新课创设情境，导入新课现在观察现在观察蜗牛赛跑游戏蜗牛赛跑游戏的运行结果的运行结果蜗牛赛跑游戏蜗牛赛跑游戏同学们想不想制作这样的模拟平台，体验亲临现场的感觉吗?游戏界面如图所示：按游戏的界面添加控件任务（一）任务（一）提问提问：使用了那些控件？设置对象的属性：任务（二）任务（二）控件名属性名属性值说明Form1Caption蜗牛赛跑标题Frame1Caption控制台标题comm
2、andBotton1Caption开始标题commandBotton2Caption退出标题Label1Caption选手1标题Label2Caption选手2标题Label3Caption选手3标题Text1，Text2，Text3Text设置为空Image1Picture蜗牛的图像选择显示图片Left0初始值为0Image2Picture蜗牛的图像选择显示图片Left0初始值为0Image3Picture蜗牛的图像选择显示图片Left0初始值为0控件修改属性值一览表 点击开始按钮，蜗牛开始奔跑。该程序我们使用循环语句更为方便。循环结构也称重复结构，它的作用是使一段程序能重复执行，被重复执行
3、的部分称为循环体。但重复一般都是有条件的，即在循环变量不超出终值下才执行循环体，否则退出循环体。下面我们就来看一下FOR/NEXT语句的语句格式：格式：FOR循环变量=初值TO终值STEP步长语句序列（循环体)NEXTFor.next 语句结构的流程图如下：是否满足条件执行语句组否是分析开始按钮编写代码分析开始按钮编写代码 巩固旧知提问：为了回到初始位置可能用了什么语句?解决这个问题，我们来判断（IF）语句先判断蜗牛是否在初始位置，如果不在，则回到原位置。让蜗牛向右移动，它的代码怎么写?Image1.Left=Image1.Left+1Private Sub Command1_Click()I
4、f 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=Image
5、2.Left Text3.Text=Image3.Left Next iEnd Sub代码如下：开始按钮编写代码开始按钮编写代码 任务（三）任务（三）退出按钮编写代码退出按钮编写代码 任务（四）任务（四）代码如下：单击退出按钮该程序结束并退出：Private Sub Command2_Click()EndEnd Sub知识回顾知识回顾 这一课通过蜗牛赛跑游戏学习了for.next循环语句的使用。格式：FOR数值变量名=数学表达式1TO数学表达式2STEP数学表达式3 语句序列（循环体)NEXT还复习了if条件判断语句。IF语句的格式1：If 条件 then 语句1 end if知识扩展，课后讨
6、论知识扩展，课后讨论 同学们利用上节课学过的选择判断语句来改进程序，即判断哪只蜗牛是第一名并弹出消息框，改进后的游戏界面如图所示：同学们请仔细阅读下面的程序代码，并参考这些代码改进自己的蜗牛赛跑游戏。同学们请仔细阅读下面的程序代码，并参考这些代码改进自己的蜗牛赛跑游戏。If Image1.Left Image2.Left And Image1.Left Image3.Left Then MsgBox(1号蜗牛是第一名)Text4.Text=1 ElseIf Image1.Left Image2.Left Or Image1.Left Image3.Left Then Text4.Text=2
7、Else Text4.Text=3 End If If Image2.Left Image1.Left And Image2.Left Image3.Left Then MsgBox(2号蜗牛是第一名)Text5.Text=1 ElseIf Image2.Left Image1.Left Or Image2.Left Image3.Left Then Text5.Text=2 Else Text5.Text=3 End If If Image3.Left Image2.Left And Image3.Left Image1.Left Then MsgBox(3号蜗牛是第一名)Text6.Text=1 ElseIf Image3.Left Image2.Left Or Image3.Left Image1.Left Then Text6.Text=2 Else Text6.Text=3 End If同学们再见同学们再见