高中信息技术 第六章 第四节 循环结构教案 浙教版..docx

《高中信息技术 第六章 第四节 循环结构教案 浙教版..docx》由会员分享，可在线阅读，更多相关《高中信息技术 第六章 第四节 循环结构教案 浙教版..docx（24页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、课题:循环结构教学时间：授课班级：教学目标：学会用for .next语句和do.loop编写简单的程序，并会调试它教学重点、难点：1. For -next语句的用法2. Do-loop语句的用法3.循环语句的嵌套教学过程在用计算机处理问题时，除了分支问题外，还有不少是需要重复执行某一组操作 的问题。这就要采用循环结构,VB中提供了两种语句实现循环结构,For-Next语句 和Do-Loop语句o【例 6-6-1】求 s=l+2+3+100利用赋值语句可写出如下形式的代码：sum=0sum= sum+1sum= sum+2sum=sum+3Label3IblDivisorTextltxtaTex

2、t2txtbText3:txtDivisorCommand 1cmdCalcuCommand!cmdEndLabel3IblDivisorTextltxtaText2txtbText3:txtDivisorCommand 1cmdCalcuCommand!cmdEnd入口【例6-6-4如果我国人口以每年平均L5%的速度增长,问多少年后我国人口达到或超过15亿，设现在人口为12.3亿。解决这个问题的思路是:设现在人口为P 0-12.3亿，人口增长率1.5%=0.015, 则一年后人口为p l=p0+p0xr=p0x(l+r,看它是否达到或超过15亿;如果未达到，再算 二年后的人口 p 2=pl+

3、plxr=plx(l+r;n未达到，再计算三年后的人口 ，直到n 年后的人口数达到或超过15亿。流程图见图6-29,程序代码如下:直到型循环Private Sub Form_Click(Dim pAs SingleDim rAs SingleDim nAs Integer图 6-29p = 1230000000#r = 0.015n = 0Dop= p * (1 + rn = n + 1Loop Until p = 1500000000#Print n; ”年后丁，人口邛pEnd Sub运行结果如下；14年后人口 451506E+09三、循环的嵌套在一个循环中又完整地包含另一个循环,称为循环的

4、嵌套。前面介绍的几种类 型的循环可以互相嵌套，例如可以在一个For-Next循环中包含另一个For-Next循环, 也可以在一个Do-Loop循环中包含一个For-Next循环。【例6-6-5*为解决这个问题，可以采用如下的算法:使用双重 For-Next循环，外循环确定行数和各行起始打印位置， 内循环用来确定各行打印的个数。设外循环的循环变量为i,内循环的循环变量为j。由于图案上下对称，上下两半对应行的起始位置和字符个数完全一致，所以i的取值也应对称:i=3 To 3O设i=0行的起始打印位置为5图 6-30用心爱心6则第i行的起始打印位置为Tab(Abs(i+5,第i行的字符的个数为2*(

5、4-Abs(i-l o 流程图如图6-30所示,程序代码如下：打印菱形图案Private Sub Form_Click(Dim i As Integer, j As IntegerFor i = -3 To 3Print Tab(Abs(i + 5;确定每行的起始位置Forj = 1 To 2 * (4 - Abs(i - 1PrintNext jPrint换行Next iEnd Sub【例6-6-6】求3到100之间的全部质数。质数是除了 1和它本身之外，不能被其它任何整数整除的大于1的自然数。要 验证一个自然数n是否为质数，方法很多。我们采用的算法是:一个数n是否是质数,只需将n被2都 除

6、不尽,n就是质数。图6-31先计算出1=，然后将n被i=2Flag是个“标志变量”，初始时Flag=O,表示n未被任何一个整数整除,如果在某一次n被一个整数i整除，则Flag改变为1,表明该数不是质数。如果n不被任何一个i整除,则Flag始终保持为0o因此，在结束循环后根据Flag的值为。或1,来判断一个数是否为质数。nnNn=100Y求3到10之间的全部质数NPrivate Sub Form_Click(Dim n As Integer, i As Integer YDim flag As IntegerYDim kAs IntegerFor n = 3 To 100 Step 2k = I

7、nt(Sqr(ni = 2flag = 0NDo While i = kIf n Mod i = 0 Then Yflag=n能被某一个数整除End Ifi = i + 1LoopIf flag = 0 Then Print nNext n 图 6-31End Sub用心爱心专心7运行结果为:3 5 7 11 1317 19 23 29 3137 41 43 47 5359 61 67 71 7379 83 89 97说明：由于偶数决不会是质数，不必对偶数进行测试,因此外循环的增量为2;内循环中n Mod i=0中的Mod为取余运算，若n能被i整除，则余数为0;实践与探索请考察程序的内循环部分

8、，如果n是一个质数，如n= 11,则内循环结束时,标志变 量flag的值仍为0;如果n不是一个质数，如n=63,则进行第二次循环时,n能被3整 除，此时flag的值为1,已经可以判断出n不是质数，但程序中的内循环仍然要执行6 次，程序的效率不高。请问该如何修改程序，当flag的值为1时直接结束循环。练习(1)比较三种循环结构:For-Nexts Do While-Loopx Do-Loop Until,指出各在什 么情况下使用？ Do While-Loop与Do-Loop Until之间又有什么区别？写出下列程序的执行结果。 Private Sub Form_Click(Dim x As In

9、tegerDim n As IntegerFor x = 3 To 11 Step 2n = n + 1Print x 二；xNext xPrint Hn=u; nPrint x=； xEndSub Private Sub Form _Click(Dim a As IntegerDim b As IntegerDim c As Integer a=l:b=l:c=lDo While a + b + c Sqr(yEndSub Private Sub Form _Click(Dim k As IntegerDim t As IntegerDim s As Integers = 0: t = 1F

10、or k = 2 To 4t = t * kNext kPrint ”s=； sjt=； tEndSub Private Sub Form _Click(Dim a As IntegerDim b As IntegerDim c As IntegerDim s As IntegerDim i As Integer a = 2: b = 1: s = 0For i = 10 To 6 Step -1s = s + ac = a + ba = bb = cNext isum=sum+100很显然，使用这种形式也能得到结果，但程序很冗长。观察上面的代码可以发现, 这段代码实际上重复了同一个操作:su

11、m=sum+I,只不过是每次相加的自然数不同而 已。使用VB提供的循环语句可以很容易实现这种重复操作功能。具体算法如下:设sum=O;设i=l；若i=100则转,否则算法停止,最后sum中的数值即是自然数列前100项之和；将sum与i相加，其结果送给变量sum，即sum+i sum ;使i值增加1,即i+1-i；转。EndSub Private Sub Form _Click(Dim iAs IntegerDim jAs IntegerDim yAs IntegerDim sAs Integers = 1: y = 1For i = 2 To 4用心爱心专心9y =y *jNext js =

12、s + yNext iPrint Hs=H; sEndSub Private Sub Form _Click(Dim i As IntegerDim j As IntegerFor i = 1 To 6For j = 1 To iPrint,，AH;Next jPrintNext iEnd Sub编写计算下列各式的程序： P=n!(n!=n*(n-l*(n-2*(n-3*. 1, n 由键盘输入 S=l-l/2+l/3-l/4+l/6-l/6+. +1/99-1/100 S=l!+2!+3!+4!+10!某工厂1997年总产值为200万元，若总产值以每年5%的速度增长，问多少年 后总产值翻一番

13、？编写求下式中n最大值的程序，画出流程图。12+22+32+n2=1000编写程序打印下列图形: * *7， k1* k1 !T* 、*X* *1* *y*g*设计一个界面如图6-32所示的程序，图中上排的两个文本框用于输入一个分 数的分子分母，中排有一个结果框，用于显示计算结果，下排为“计算”和“退出”按钮。 单击“计算”钮时，在中间框中立即显示出该分数的化简结果，单击“退出”钮时，结束程 序。要求写出完成该程序所要绘制的控件及需要重新设置的属性,并编写程序。化简分数的算法如下：求分子与分母的最大公约数；将分子、分母分别用最大公约数相除；用上步求出的两个数组成化简分数，送到结果框显示。例如:

14、分子框输入126,分母框输入210,用心爱心专心10图6-32单击“计算”按钮后，化简分数框显示3/5。用心爱心专心11流程图如图6- 23,程序及运行结果如下：求1、2、3 100之间自然数的和Private Sub Form_Click(Dim i As IntegerDim sum As Integersum = 0For i = 1 To 100sum = sum + i循环体图 6-23Next i Print sum二；sum End Sub 运行结果为：sum= 5050 、For.Next 循环这个程序中使用的是For.Next循环，它的一般形式是：For循环变量=初值To终值

15、Step循环变量增量循环体Next循环变量循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称 为循环体，增量可正可负,如果没有设置Step，则增量的缺省值为1。For-Next循环的执行过程是:循环变量取初值；循环变量与终值比较，没有超过终值转，否则循环结束,接着执行循环语句的 后继语句;执行一次循环体；循环变量增加一个增量;重复步骤。从上看出，For-Next循环变量是一种当型循环，图6-24是它的执行过程。说明：For语句与Next语句必须成对出现,而且它们当中的“循环变量”必须是同 一个变量,如本例中均为i；当循环变量增量为正时,循环变量超过终值,是指循环变量的值大于终

16、值，若 为负，则是指循环变量的值小于终值。图6-24从例6-6-1程序的流程图和For-Next循环的招待过程可以看出，执行 For-Next循环时先判断循环变量是否超过终值,如果没有超过终值,就执行循环 体，这种循环称为当型循环，它的一般结构如图6-25所示。循环体A执行有限次 后，条件P不再成立，从而退出循环。图 6-25讨论与思考：1.本例中循环结束时，循环变量j的值是多少？若有如下一段代码：Forj=15 to 3 Step -2PrintjNext j则循环结束时，循环变量j的值是多少？3.循环变量的增量能否为0,如果为。，运行结果怎样?【例6-6-2设计一个界面如图6-26所示的程

17、序，要求执行程序后，窗体上的星 星在闪烁，单击“结束”按钮结束程序。图 6-26为了实现星星闪烁的效果,本例设置了一个定时器控件，窗体启动后，每隔500ms 触发一次Timer事件,在该事件中使用循环语句随机产生50个坐标值,然后用窗体 的Pset方法在这些坐标处画点,窗体上出现星星的效果,在Timer事件的开头，使用 Cis方法清屏，以产生闪烁效果。完成本程序需要在设计阶段设计的属性如表6- llo表 6-11缺省的对象名设置的对象名属性设置值Caption星星闪烁BackColor 黑色ForeColor 黄色Caption 结束程序代码如下:星星闪烁Dim xpos As Integer

18、, ypos As IntegerDim i As IntegerPrivate Sub Form_Load(tmrAnimation.Enabled = TrueRandomizeEnd SubPrivate Sub tmrAnimation_Timer(清屏，产生闪烁效果CisFor i = 1 To 50xpos = Int(frmCircle.Width * Rndypos = Int(frmCircle.Height * RndPSet (xpos, yposNext iEnd SubPrivate Sub cmdEnd_Click(EndEnd Sub二、Do.Loop 循环For

19、-Next循环的次数是确定的，有的问题只知道循环结束的条件，重复执行的次 数事先并不知道，这时需用Do-Loop循环。格式一:Do While条件循环体Loop当VB执行Do While -Loop循环时，先判断指定的条件是否为真，若条件为真，执 行循环体,条件为假时退出循环。这也是一种当型循环。【例6-6-3设计一个界面如图6-27所示的程序,从键盘输入任意两个正整数 a、b,输出它们的最大公约数。图 6-27本程序运行时，通过单击“计算”按钮在“最大公约数”框中显示a与b的最大公约 数，因此，求最大公约数的代码就编写在“计算”按钮的Click事件中。完成本程序界 面需要设置的属性如表6-1

20、2。表6-12缺省的对象名设置的对象名属性设置值Forml frmDivisor Caption 最大公约数Caption 输入 ACaption 输入 BCaption最大公约数Text (空白Text (空白Text (空白Caption计算Caption结束求两个正整数a、b(ab的最大公约数的算法见例6-1-3,流程图见图6-3,程序 代码如下:求最大公约数Private Sub cmdCalcu_Click( Dim a As Integer Dim b As Integer Dim r As Integer a = Val(txta.Text b = Val(txtb.Text r = a Mod b Do While r0a = bb = rr = a Mod b LooptxtDivisor.Text = Str(b End SubPrivate Sub cmdEnd_Click( End End Sub 格式二:Do循环体Loop Until 条件这种循环的执行过程如图6-28所示，进入循环后，先执行一次循环体A，然后再 检查条件是否成立,如果不成立,就执行循环体A，直到条件D成立，退出循环。这种 循环结构称为直到型。