初中信息技术循环结构.pptVIP

一、循环语句 画一个圆 画5个圆程序的笨办法(任务一) Private Sub Form_Click() r=500 Circle (2500, 2500), r r = r + 500 Circle (2500, 2500), r r = r + 500 Circle (2500, 2500), r r = r + 500 Circle (2500, 2500), r r = r + 500 Circle (2500, 2500), r End Sub 画五个圆用循环语句的新方法(任务二) 格式 For i= 1 To 5 Step 1 for 变量=初值 to 终值 step 步长 r = r + 500 Circle (2500, 2500), r Next i Next 变量 循环过程 学生分组体验(任务三) （一）程序一 Private Sub Form_Click() R=1000 For i=100 to 1000 step 50 r = r+500 Circle (2500,2500),r Next I End sub （二）程序二 Private Sub Form_Click() For i=1000 to 100 step -50 r = r+500 Circle (2500,2500),r Next I End sub 结论：程序的运行结果是一样的。 说明步长的设置：步长可以是整数也可以是小数，可以是正数也可以是负数。 问题：如果步长为零，结果如何？ 结论：程序陷入死循环。 例题1 X=8 （把8赋值给x）（有X,I两个变量） For I=3 to 5 （循环变量I的初值为3，终值为5，步长为5） Print x （当循环变量的值在3到5的范围内时， 执行该句，输出x变量的值，x＝8） Next I 例题2 s=0 （把0赋值给s） for I=10 to 4 step –3 （循环变量I的初值为10，终值为4，步长为－3，即I的取值由10开始，每次取值比上次减3） s=s+I （把s的值再加上I当前的取值赋值给s） next I （根据步长决定下一个循环变量I） print “s=”;s （输出“s=”和s变量的值） （有s、I两个变量，结果为：s＝21 ） 作业 写出下列程序的结果： s=0 for I=　１ to　１０ 　step　２ s=s+I next I print “s=”;s 上机练习 (任务四): 修改程序，画出半径为1000，Y轴固定的串圆共20个。 任务五补充程序 求1 ，3 ，5 ，…..99的和。 s=0 For I=　1 to　99　step __　 S=S+___ next I print “s=”; ___ 任务六 补充并调试程序P51第3，4题。 *任务七 体验程序密码并比较 Private Sub Form_Click() Do While inputpassword 123456 inputpassword = InputBox( 请输入密码, 输入密码) Loop Print 输入密码正确! End Sub *Do while/loop语句的含义: 当条件成立时，执行循环体，否则退出循环。执行loop下一个语句。 For/next语句与do while/loop比较: 如果知道循环次数，一般使用for/next循环。 如果不知道循环次数，就使用do while/loop循环。 任务八 写出程序的运行结果 P51，1(3) (4) 任务十:修改程序,用两种循环语句求下列式子的值: 2+4+8+…….+100=? 扩展思维----国王与宰相棋王的故事 小结 本节学习了循环语句的格式和应用。 格式： for 变量=初值 to 终值 step 步长 循环体 Next 变量 注意：步长可以是整数也可以是小数，可以是正数也可以是负数。如果步长为零程序陷入死循环。 * * 广州市育才中学薛芝兰 课时数：2课时 广州市初中信息技术教学同步资源包 第二册第二章 循环步骤 画一个圆的程序 画5个圆的画圆程序的笨办法 画5个圆的循环语句程序 练习 学生分组体验 Private Sub Form_Click() R=500 Circle (2500, 2500), r End Sub Private