高中信息技术 第六章 循环结构.doc

高中信息技术第六章循环结构教学时间：授课班级：教学目标：学会用for…next语句和do…loop编写简单的程序并会调试它教学重点、难点：For–next语句的用法Do-loop语句的用法循环语句的嵌套教学过程在用计算机处理问题时除了分支问题外还有不少是需要重复执行某一组操作的问题。这就要采用循环结构VB中提供了两种语句实现循环结构For-Next语句和Do-Loop语句。【例6-6-1】求s=1+2+3+……+100利用赋值语句可写出如下形式的代码：sum=0sum=sum+1sum=sum+2sum=sum+3……sum=sum+100很显然使用这种形式也能得到结果但程序很冗长。观察上面的代码可以发现这段代码实际上重复了同一个操作：sum=sum+I只不过是每次相加的自然数不同而已。使用VB提供的循环语句可以很容易实现这种重复操作功能。具体算法如下：①设sum=0；②设i=1；③若i<=100则转④否则算法停止最后sum中的数值即是自然数列前100项之和；图6-23开始0→sum1→ii<=100sum+i→sumi+1→i输出sum结束YN④将sum与i相加其结果送给变量sum即sum+i→sum；⑤使i值增加1即i+1→i；⑥转③。流程图如图6-23程序及运行结果如下：'求1、2、3……、100之间自然数的和PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegersum=0Fori=1To100sum=sum+i'循环体NextiPrint"sum=";sumEndSub运行结果为：sum=5050For...Next循环这个程序中使用的是For...Next循环它的一般形式是：For循环变量=初值To终值Step循环变量增量循环体Next循环变量循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体增量可正可负如果没有设置Step则增量的缺省值为1。For-Next循环的执行过程是：①循环变量取初值；②循环变量与终值比较没有超过终值转③否则循环结束接着执行循环语句的后继语句；③执行一次循环体；④循环变量增加一个增量；⑤重复步骤②～④。从上看出For-Next循环变量是一种当型循环图6-24是它的执行过程。说明：①For语句与Next语句必须成对出现而且它们当中的“循环变量”必须是同一个变量如本例中均为i；②当循环变量增量为正时循环变量超过终值是指循环变量的值大于终值若为负则是指循环变量的值小于终值。图6-24从例6-6-1程序的流程图和For-Next循环的招待过程可以看出执行For-Next循环时先判断循环变量是否超过终值如果没有超过终值就执行循环体这种循环称为当型循环它的一般结构如图6-25所示。循环体A执行有限次后条件P不再成立从而退出循环。图6-25讨论与思考：⒈本例中循环结束时循环变量i的值是多少？⒉若有如下一段代码：Forj=15to3Step–2PrintjNextj则循环结束时循环变量j的值是多少？⒊循环变量的增量能否为0如果为0运行结果怎样？图6-26【例6-6-2】设计一个界面如图6-26所示的程序要求执行程序后窗体上的星星在闪烁单击“结束”按钮结束程序。为了实现星星闪烁的效果本例设置了一个定时器控件窗体启动后每隔500ms触发一次Timer事件在该事件中使用循环语句随机产生50个坐标值然后用窗体的Pset方法在这些坐标处画点窗体上出现星星的效果在Timer事件的开头使用Cls方法清屏以产生闪烁效果。完成本程序需要在设计阶段设计的属性如表6-11。表6-11缺省的对象名设置的对象名属性设置值Form1frmStarCaption星星闪烁BackColor黑色ForeColor黄色Command1cmdEndCaption结束Timer1tmrAnimationEnabledFalseInterval500程序代码如下：′星星闪烁DimxposAsIntegeryposAsIntegerDimiAsIntegerPrivateSubForm_Load()tmrAnimation.Enabled=TrueRandomizeEndSubPrivateSubtmrAnimation_Timer()′清屏产生闪烁效果ClsFori=1To50xpos=Int(frmCircle.Width*Rnd)ypo