程序的循环结构.ppt

《程序的循环结构.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

程序的循环结构四川省乐山沫若中学熊继承2015年4月18日 掌握For循环语句的基本格式理解For循环语句的执行过程掌握循环变量在执行过程中的变化情况能用For循环结构编写简单的程序 案例：超级水稻种植试验的统计分析化简这个方程得：x2-Lx+s=0这时通过求根公式即可得出解答。水平第1次第2次第3次第4次第5次水平19081099790886845水平2509699843755788水平398711009551020995……For循环语句 一、分析问题求各种水平影响下5次试验的平均亩产量，实际上就是一个简单重复求5次试验的平均亩产量问题。公式:average=(crop1+crop2+crop3+crop4+crop5)/5因此，只要输入水平数M，重复计算M次就可以了。For循环语句 二、设计算法根据上述的分析，我们将解决问题的算法如下：（1）输入水平数M；（2）对于每一个I（I＝1、2..，M）做如下第（3）－（9）步；（3）输入第一次试验的亩产量crop1；（4）输入第二次试验的亩产量crop2；（5）输入第三次试验的亩产量crop3；（6）输入第四次试验的亩产量crop4；（7）输入第五次试验的亩产量crop5；（8）计算average=(crop1+crop2+crop3+crop4+crop5)/5的值；（9）输出水平数I的平均亩产量Average；（10）结束。For循环语句 三、编写程序根据设计好的算法，可以写出如下程序代码：PrivateSubCommand1_Click()m=InputBox("请输入水平数M：")Fori=1Tomcrop1=Val(InputBox("请输入第一次实验的亩产量："))crop2=Val(InputBox("请输入第二次实验的亩产量："))crop3=Val(InputBox("请输入第三次实验的亩产量："))crop4=Val(InputBox("请输入第四次实验的亩产量："))crop5=Val(InputBox("请输入第五次实验的亩产量："))average=(crop1+crop2+crop3+crop4+crop5)/5Print"水平";i;"的平均亩产量average=";averageNextiEndSubFor循环语句 四、调试程序按前面所写程序输入计算机，按F5运行程序，即得到结果如图：For循环语句 For循环的基本格式For循环变量＝初值To终值Step步长语句组Next循环变量其中（1）循环变量为数值型变量。（2）初值、终值、步长均为数值表达式。（3）当初值小于终值时，步长应为正数；当初值大于终值时，步长应为负数；如果省略Step，由步长为1。（4）语句组可以是一个或者多个语句，又称为循环体。（5）循环体执行的次数为（终值－初值）/步长＋1的整数部分。For循环语句 例：求1+3+5+7+…+99PrivateSubForm_Click()DimSumAsInteger,IAsIntegerS=0ForI=1To99Step2S=S+INextIMsgBox"1+3+5+…+99="&S,,"求和"EndSub本例的特点是数据项之间相差2，即Step的值为2For循环语句 For循环语句的执行过程（1）循环变量被赋予初值；（2）判断循环变量是否超过终值，如果超过，则退出循环执行Next后面的语句；如果没有超过则执行循环体；（3）遇到Next语句，则循环变量增加一个步长，转到（2），继续循环。循环变量＝初值循环变量超过终值执行循环体否循环变量增加一个步长值是For循环语句 例：求平均成绩ConstN=10'学生人数PrivateSubForm_Click()DimSAsInteger,IAsIntegerDimDataAsInteger,AverageAsSingleS=0'存放累加值的变量清零ForI=1ToN'循环40次，步长值为1省略Data=InputBox("输入第"&I&"位同学的成绩","求平均分")S=S+DataNextIAverage=S/NMsgBox"全班"&N&"名学生的平均分为"&Average,,"求平均分"EndSub确定本例的循环变量I控制人数For循环语句 求S=1+2+……+100和值分析a、用循环产生1～100的自然数b、每产生一个自然数将其累加到求和变量中即：S=S+Nc、重复执行S=S+N即：循环体d、打印和的值的语句应在程序的末尾即：Print"S=1+2+……+1000=";S程序：PrivateSubCommand1_Click()   DimNasinteger,Sasinteger   S=0ForN=1To100     S=S+N      NextNPrint"S=1+2+……+100=";S EndSubFor循环语句 求：t=10!DIMtASLONG,Iasintegert=1FORi=1TO10t=t*iNEXTiPRINT“T=10!=“;tEND分析：t=1*2*3*4*……10这是一个累乘.初值：t=1循环初值:i=1,循环终值:i->10循环体：t=t*iFor循环语句 练一练针对for循环语句的语句格式，设置如下练习，指出下面程序中的错误:1、求1+2+3+4+5的和s=0fori=1to5step1s=s+inextjprints2、在VB窗体界面上输出1~10这10个自然数forI=1to10printij-i循环变量的名称要相同。For语句与Next语句必须成对出现，而且仅只步长为1时，才可以省略step1For循环语句 3、求5+4+3+2+1的和s=0forI=5to1s=s+InextIprints4、求7+5+3+1的和：S=0ForI=7to1Step2S=S+INextIPrintS当初值小于终值时，步长为正数；当初值大于终值时，步长为负数；补充：1、循环变量必须为数值型， 初值、终值：都是数值型，可以是数值表达式。2、循环体：在For语句和Next语句之间的语句序列。可以是一条语句，也可以是多条语句。Step－1－2For循环语句 实　践P52页实践（1），按程序输入计算机，运行，并将值写在书上。（2），写出运行程序。For循环语句 说　明For循环语句，适合于知道重复次数的循环。但在实际问题中常常难以预先确定重复的次数，这时就不能使用For循环语句。VB语言提供了一种称为Do循环的语句，使得循环更加灵活方便。DO循环语句 Do循环语句案例：从17岁开始植树3棵，以后每年比前一年多栽1棵树。问多少岁时才能累计种到或超过100棵树？一、分析问题设年龄为Age，种树总数为Tree，则Tree可以用如下的式子表示：Tree＝3+4+5+…….（相应的Age=17，18，19…..）于是过个问题就可以转化为：当Tree＞＝100时，求Age的值。DO循环语句 二、设计算法根据上述的分析，我们将解决问题的算法如下：（1）令Age＝17；（2）令Tree＝3；（3）Age＝Age+1；（4）Tree＝Tree+Age-14；（5）如果Tree＜100，则返回第（3）步；（6）输出Age的值；（7）结束。DO循环语句 三、编写程序根据设计好的算法，可以写出如下程序代码：PrivateSubCommand1_Click()DimageAsInteger,treeAsIntegerage=17tree=3Doage=age+1tree=tree+age-14LoopUntiltree>=100Print"到";age;"岁时种到";tree;"棵树！"EndSubDO循环语句 四、调试程序按前面所写程序输入计算机，按F5运行程序，即得到结果如图：DO循环语句 Do循环的基本格式Do循环体LoopUntil循环终止条件循环体是一组VB语句；循环终止条件是一个逻辑表达式。DO循环语句 Do循环语句的执行过程每次进入循环体都从Do命令开始，先执行一次循环体，然后判断是否满足循环终止条件，若满足条件则退出循环，否则继续循环。Do循环命令的循环体中必须有能够改变循环终止条件的语句，不然将出现无限次的循环，程序将不能正常结束。执行循环体满足循环终止条件吗？否是DO循环语句 实　践P54页实践1、2题DO循环语句