循环结构.ppt

For循环格式For循环变量=初值To终值[Step步长] 循环体 [ExitFor]Next[循环变量]说明:[]中的内容可省略ExitFor用于跳出循环初值、终值、步长可为整数或小数For循环举例例1:计算1+2+……+100s=0Forn=1To100Step1s=s+nNextnPrintsForn=1To100 s=s+nNext可省略For循环举例例:计算1+2+……+100s=0Forn=100To1Step-1s=s+nNextnFor循环执行顺序步长为正数开始循环变量=初值循环变量>终值执行循环体循环变量=循环变量+步长结束是否步长为负数开始循环变量=初值循环变量<终值执行循环体循环变量=循环变量+步长结束是否For循环嵌套可嵌套,不能交叉正确形式:Fori=1to5Forj=1to5……NextjNexti错误形式:Fori=1to5Forj=1to5……NextiNextj避免嵌套错误的方法: 省略Next之后的循环变量For循环嵌套的基本形式形式1:Fori1=1To5Fori2=1To5Fori3=1To5……Nexti3Nexti2Nexti1形式2:Fori1=1To5Fori2=1To5Fori3=1To5……Nexti3,i2,i1For循环举例计算:1*2*3*……*100计算:n!计算:1!+2!+3!+……+10!For循环举例计算:1!+2!+……+10!mand1_Click()s=1Fori=2To10m=1Forj=1Toim=m*jNexts=s+mNextPrint"1!+2!+……+10!=";sEndSubs=1m=1Fori=2To10m=m*js=s+mNextFor循环举例判断n是否为素数f=0Forj=2Ton-1IfnModj=0Thenf=1NextIff=mand2_Click()ClsFori=2To100f=0Forj=2Toi-1IfiModj=0Thenf=1NextIff=0ThenPrintiNextEndSub