上節(jié)課內(nèi)容回顧While…Wend語(yǔ)句注意:如果循環(huán)次數(shù)未知，則最好采用while…wend語(yǔ)句循環(huán)結(jié)構(gòu)程序設(shè)計(jì)for循環(huán)結(jié)構(gòu)While循環(huán)結(jié)構(gòu)Do…while循環(huán)結(jié)構(gòu)多重循環(huán)結(jié)構(gòu)重點(diǎn)：理解循環(huán)的執(zhí)行過(guò)程編寫(xiě)循環(huán)結(jié)構(gòu)程序難點(diǎn)：多重循環(huán)結(jié)構(gòu)循環(huán)三要素循環(huán)三要素：(1)初始化：決定循環(huán)的初始狀態(tài)，即與循環(huán)相關(guān)的變量的初始值。(2)循環(huán)體：循環(huán)中反復(fù)執(zhí)行的部分。(3)循環(huán)的條件：決定循環(huán)結(jié)束的條件。Do循環(huán)當(dāng)型循環(huán)當(dāng)循環(huán)條件成立時(shí)執(zhí)行循環(huán)，否則退出循環(huán)。Do循環(huán)結(jié)構(gòu)

DoWhile<條件表達(dá)式>循環(huán)體Loop條件表達(dá)式成立？循環(huán)體NoYes條件表達(dá)式成立？循環(huán)體NoYes先判斷后執(zhí)行先執(zhí)行后判斷特點(diǎn)：條件表達(dá)式成立執(zhí)行循環(huán)體Do循環(huán)體LoopWhile<條件表達(dá)式>i=1:s=0Whilei<=100s=s+ii=i+1wendi=1:s=0DoWhilei<=100s=s+ii=i+1Loopi=1:s=0Dos=s+ii=i+1LoopWhilei<=1002.直到型循環(huán)直到循環(huán)條件成立時(shí)退出循環(huán)，否則執(zhí)行循環(huán)。DoUntil<條件表達(dá)式>循環(huán)體Loop特點(diǎn)：條件表達(dá)式不成立執(zhí)行循環(huán)體先判斷后執(zhí)行條件表達(dá)式成立？循環(huán)體NoYes先執(zhí)行后判斷條件表達(dá)式成立？循環(huán)體NoYesDo循環(huán)體LoopUntil<條件表達(dá)式>例4.20求某同學(xué)的平均分PrivateSubCommand1_Click()DimSum%,i%,n%,num%,avg#Sum=0:i=1:n=Val(Text1.Text)

DoWhilei<=n

num=Val(InputBox("輸入第"&i&"位_同學(xué)的成績(jī)","成績(jī)輸入"))Sum=Sum+numi=i+1

Loop

avg=Sum/nMsgBox"該生"&n&"門(mén)課程的平均分為"&avg,,"求平均成績(jī)"EndSub例4.25分析程序PrivateSubForm_click()

Dims%,i%s=0:i=1DoWhilei<=10s=s+i

Ifs>=4ThenExitDoEndIf

i=i+1LoopPrint"第";i-1;"項(xiàng)“EndSub輸出結(jié)果：第2項(xiàng)循環(huán)的嵌套在一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)體內(nèi)含有另一個(gè)完整的循環(huán)結(jié)構(gòu)，稱為循環(huán)的結(jié)構(gòu)（多重循環(huán)）。說(shuō)明：內(nèi)外循環(huán)之間必須完整包含，不得交叉。內(nèi)循環(huán)變量與外循環(huán)變量不能同名。如：fori=1to10 forj=1to10 …… nextjnexti內(nèi)循環(huán)j外循環(huán)i例4.26：打印循環(huán)變量的值。PrivateSubForm_click()Dimi%,j%Fori=1To3'外循環(huán)變化為1、2、3Print"i=";i;",";'打印外循環(huán)變量i的值Print"j=";Forj=1To4'內(nèi)循環(huán)變化為1、2、3、4Printj;'打印內(nèi)循環(huán)變量j的值NextjPrintNextiEndSub例4.27求100-200之間的素?cái)?shù)。質(zhì)數(shù)又稱素?cái)?shù)。指在一個(gè)大于1的自然數(shù)中，除了1和此整數(shù)自身外，沒(méi)法被其他自然數(shù)整除的數(shù)。換句話說(shuō)，只有兩個(gè)正因數(shù)（1和自己）的自然數(shù)即為素?cái)?shù)。素?cái)?shù)的判斷：1：只能被1和本身整除?；?：不能被小于它的平方根的所有素?cái)?shù)整除就是素?cái)?shù)。

但是從算法上考慮，為了減少重復(fù)量，開(kāi)平方后面的數(shù)就不用相除了。

PrivateSubForm_click()Dimm%,i%,n%Form=101To200Step2'外循環(huán)測(cè)試奇數(shù)Fori=2ToSqr(m)'內(nèi)循環(huán)構(gòu)造測(cè)試條件IfmModi=0Then'能夠整除，不是素?cái)?shù)ExitFor'結(jié)束內(nèi)循環(huán)EndIfNextiIfi>Sqr(m)Then'正常結(jié)束內(nèi)循環(huán)，是素?cái)?shù)n=n+1'統(tǒng)計(jì)素?cái)?shù)個(gè)數(shù)Printm;IfnMod5=0ThenPrint'控制每行輸出5個(gè)EndIfNextmPrintPrint"素?cái)?shù)的個(gè)數(shù)為";n'輸出素?cái)?shù)個(gè)數(shù)EndSub另一方法：素?cái)?shù)與1到素?cái)?shù)本身中間的所有整數(shù)都相除，看是否有整除的數(shù)，如果有，那肯定不是素?cái)?shù)了。例4.28打印以下圖形。PrivateSubform_click()Dimi%,j%Fori=1To5Forj=1To5Print"*";NextjPrintNextiEndSub思考：如何打印以下圖形。PrivateSubForm_Click()Font.Size=20Dimi%,j%ClsFori=1To5PrintSpace(i-1);Forj=1To10-2*i+1Print"*";NextjPrintNextiEndSub例4.30打印九九乘法表分析：（1）共9行，按行打印Fori=1to9打印第i行換行，準(zhǔn)備輸出下一行Nexti（2）每列的列號(hào)從1到9，行號(hào)固定不變。Forj=1to9Printi&“*”&j&“=”&i*j;‘打印第i行NextjPrivateSubForm_click()Dimi%,j%PrintTab(30);"九九乘法表"PrintFori=1To