资源描述：
《循环用于重复执行一组语句.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、循环结构循环用于重复执行一组语句Do...Loop(一般用于循环次数未知)For...Next(一般用于循环次数已知)复习For循环语句语句格式：for循环变量=初值to终值[step步长][循环体]next[循环变量]格式说明：循环变量：被用作循环计数器的数值变量初值、终值：都是数值型，可以是数值表达式步长：是数值型，也可以是数值表达式。循环体：在for和next之间的一条或多条语句，他们将被执行指定的次数。Next后面的循环变量与for语句中的循环变量必须相同。>0初值<终值=1时,可省略<0初值>终值=0死循环步长循环次数Dim
2、iasinteger,sumasintegersum=0Fori=1To10step1sum=sum+iNextitext1.text=sumi1234567891011sum13610152128364555PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0i=1sum=sum+ii=2sum=sum+ii=3sum=sum+ii=4sum=sum+ii=5sum=sum+ii=6sum=sum+ii=7sum=sum+ii=8sum=sum+ii=9sum=sum+i
3、i=10sum=sum+ii=11text1.Text=sumEndSubDimiasinteger,sumasintegersum=0Fori=1To10step1sum=sum+iNextitext1.text=sum输出0到n的整数和Dimiasinteger,sumasintegern=text1.textsum=0Fori=1Tonstep1sum=sum+iNextitext2.text=sum复习For与if的嵌套输出n以内能被3和5整除不能被7整除的数的和PrivateSubCommand1_Click()DimiAs
4、Integer,nAsInteger,sumAsIntegern=Text1.Textsum=0Fori=1TonStep1IfiMod3=0AndiMod5=0AndiMod7<>0Thensum=sum+iEndIfNextiText2.Text=sumDo…Loop循环语句当型循环Do{While
5、Until}<条件>语句块Loop直到型循环Do语句块Loop{While
6、Until}<条件>可以使用Do...Loop语句多次（次数不定）运行语句块。当条件表达式值为True时重复执行循环语句块。表达式值循环语句TFDowhile
7、<表达式值>循环语句Loop表达式值循环语句TFDo循环语句Loopwhile<表达式值>表达式值循环语句TF表达式值循环语句TFDowhile……loopDo……loopwhile求100以内所有偶数的和dimiasinteger,sumasintegeri=2sum=0dowhilei<=100sum=sum+ii=i+2Loopprintsum例2:求1+1/2+1/3+……+1/n当n值是多少时，数列恰好大于2Dimnasinteger,sassingleN=0S=0Dowhiles<=2n=n+1s=s+1/nLoopPri
8、ntn几种循环语句比较循环的退出ExitDo语句ExitFor循环的嵌套通常，把循环体内不再包含其他循环的循环结构称为单层循环。在处理某些问题时，常常要在循环体内再进行循环操作，这种情况称为多重循环，又称为循环的嵌套。如二重循环、三重循环等。多重循环的执行过程是:外层循环每执行一次，内层循环就要从头到尾执行一轮dimiasinteger,jasintegerFori=1To5Forj=1To5Print"";"*";NextjPrint""Nexti打印矩形dimiasinteger,jasintegerFori=1To5Forj=1
9、ToiPrint"";"*";NextjPrint""Nexti大家猜猜看,这是打印出什么图形打印等腰三角形PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To3PrintTab(5-i);Forj=1To2*i-1Print"*";NextjNextiEndSubPrinttab（）语句对“*”的输出位置进行定位并控制换行猜猜看？PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1To3PrintTab(5-i
10、);Forj=1To2*i-1Print"*";NextjNextiFori=1To3PrintTab(i+1);Forj=1To7-i*2Print"*";NextjNextiEndSub有若干只鸡兔同在一个笼子里，从
