复习For循环语句.ppt

《复习For循环语句.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、复习For循环语句语句格式：for循环变量=初值to终值[step步长][循环体]next[循环变量]格式说明：循环变量：被用作循环计数器的数值变量初值、终值：都是数值型，可以是数值表达式步长：是数值型，也可以是数值表达式。循环体：在for和next之间的一条或多条语句，他们将被执行指定的次数。Next后面的循环变量与for语句中的循环变量必须相同。例题1：求s＝1+2+3+4.....+n变形：初值、Step循环变量增量Dimiasinteger,sumasintegern=text1.textsum=0Fori=1Tonstep1sum=sum+iNext

2、itext2.text=sum例题2：求s＝1*2*3*4.....*n变形：初值、Step循环变量增量Dimiasinteger,sumasintegern=text1.textsum=1Fori=1Tonstep1sum=sum*iNextitext2.text=sum二、Do－Loop循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环格式一：DoWhile条件循环体Loop例2:求1+1/2+1/3+……+1/n当n值是多少时，数列恰好大于2Dimnasinteger,sass

3、ingleN=0S=0Dowhiles<=2n=n+1s=s+1/nLoopPrintnS=1*2*3*…*n表达式不断的累乘，求使得s<999时，并且让s累乘到最大，n的值是多少。并将n用文本框输出结果（提示用dowhile….loop语句实现）完成后保存为工程1.vbp，form1.frmPrivateSubCommand1_Click()DimsumAsSingle,nAsIntegern=1循环变量初值sum=1累乘和初值DoWhilesum<999n=n+1步长sum=sum*I累乘NextiText2.Text=n-1EndSub循环的嵌套通常，把

4、循环体内不再包含其他循环的循环结构称为单层循环。在处理某些问题时，常常要在循环体内再进行循环操作，这种情况称为多重循环，又称为循环的嵌套。如二重循环、三重循环等。多重循环的执行过程是:外层循环每执行一次，内层循环就要从头到尾执行一轮窗体输出：[对象名.]Print[表达式列表]如果输出的内容是数、变量、表达式，则输出的是数、变量、表达式的值。如果是引号引起来的字符串，则原样输出。（2）输出内容可以是一个或多个。如果是多个输出内容，则各输出内容之间可以用逗号(,)或分号(;)分隔；如果用分号，则后面一个输出内容紧跟前一个输出；如果是逗号，则按照分区格式输出（一般

5、空8个空格）。dimiasinteger,jasintegerFori=1To5Forj=1To5Print"";"*";NextjPrint""Nexti打印矩形dimiasinteger,jasintegerFori=1To5Forj=1ToiPrint"";"*";NextjPrint""Nexti直角三角形修改等腰三角形代码PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To3PrintTab(5-i);Forj=1To2*i-1Print"*";NextjNextiEndSubPrint

6、tab（）语句对“*”的输出位置进行定位并控制换行修改菱形代码PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To3PrintTab(5-i);Forj=1To2*i-1Print"*";NextjNextiFori=1To3PrintTab(i+1);Forj=1To7-i*2Print"*";NextjNextiEndSub经典例题1输入两个正整数，求它们的最大公约数并输出。辗转相除法求两个数的最大公约数的步骤如下：先用小的一个数除大的一个数，得第一个余数；再用第一个余数除小的一个数，得第二个

7、余数；又用第二个余数除第一个余数，得第三个余数；这样逐次用后一个数去除前一个余数，直到余数是0为止。那么，最后一个除数就是所求的最大公约数（如果最后的除数是1，那么原来的两个数是互质数）。例如求1515和600的最大公约数，第一次：用600除1515，商2余315；第二次：用315除600，商1余285；第三次：用285除315，商1余30；第四次：用30除285，商9余15；第五次：用15除30，商2余0。1515和600的最大公约数是15。PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerDimrAsI

8、ntegera=Val(Text1.T