高中信息技术循环结构教案浙教版.docVIP

课题：循环结构 教学时间： 授课班级： 教学目标： 学会用for …next语句和do…loop编写简单的程序，并会调试它 教学重点、难点： For –next 语句的用法 Do-loop语句的用法 循环语句的嵌套 教学过程 在用计算机处理问题时，除了分支问题外，还有不少是需要重复执行某一组操作的问题。这就要采用循环结构，VB中提供了两种语句实现循环结构，For-Next语句和Do-Loop语句。 【例6-6-1】求s=1+2+3+……+100 利用赋值语句可写出如下形式的代码： sum=0 sum= sum+1 sum= sum+2 sum=sum+3 …… sum=sum+100 很显然，使用这种形式也能得到结果，但程序很冗长。观察上面的代码可以发现，这段代码实际上重复了同一个操作：sum=sum+I，只不过是每次相加的自然数不同而已。使用VB提供的循环语句可以很容易实现这种重复操作功能。具体算法如下： ①设sum=0； ②设i=1； ③若i=100则转④，否则算法停止，最后sum中的数值即是自然数列前100项之和； ④将sum与i相加，其结果送给变量sum，即sum+i→sum； ⑤使i值增加1，即i+1→i； ⑥转③。 流程图如图6- 23，程序及运行结果如下： 求1、2、3……、100之间自然数的和 Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 循环体 Next i Print sum=; sum End Sub 运行结果为： sum= 5050 For...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的值是多少？ ⒉ 若有如下一段代码： For j=15 to 3 Step –2 Print j Next j 则循环结束时，循环变量j的值是多少？ ⒊循环变量的增量能否为0，如果为0，运行结果怎样？ 【例6-6-2】设计一个界面如图6-26所示的程序，要求执行程序后，窗体上的星星在闪烁，单击“结束”按钮结束程序。 为了实现星星闪烁的效果，本例设置了一个定时器控件，窗体启动后，每隔500ms触发一次Timer事件，在该事件中使用循环语句随机产生50个坐标值，然后用窗体的Pset方法在这些坐标处画点，窗体上出现星星的效果，在Timer事件的开头，使用Cls方法清屏，以产生闪烁效果。完成本程序需要在设计阶段设计的属性如表6-11。 表6-11 缺省的对象名 设置的对象名 属 性 设置值 Form1 frmStar Caption 星星闪烁 BackColor 黑色 ForeColor 黄色 Command1 cmdEnd Caption 结束 Timer1 tmrAnimation Enabled False Interval 500 程序代码如下： ′星星闪烁 Dim xpos As Integer, ypos As Integer Dim i As Integer Private Sub Form_Load() tmrAnimation.Enabled = True Randomize End Sub