VB循環(huán)結(jié)構(gòu)復(fù)習(xí)學(xué)案

1、 -格式二DoUntil條件循環(huán)體Loop格式三:Do循環(huán)體LoopWhile條件格式四：Do循環(huán)體LoopUntil采件先計算條件表達(dá)式的值，當(dāng)其值為True時，執(zhí)行循環(huán)體中的語句序列，然后再重新計算條件表達(dá)式的值，當(dāng)條件表達(dá)式的值為False時，循環(huán)終止，執(zhí)行Loop語句后的語句。先計算條件表達(dá)式的值，當(dāng)其值為False時，執(zhí)行循環(huán)體中的語句序列，然后再重新計算條件表達(dá)式的值，直到條件表達(dá)式的值為True時，循環(huán)終止，執(zhí)行DoUntilLoop語句的下一條語句。先執(zhí)行循環(huán)語句，再判斷條件表達(dá)式的值，當(dāng)條件條件表達(dá)式的值為True時繼續(xù)執(zhí)行循環(huán)體，當(dāng)條件表達(dá)式的值為False結(jié)束循環(huán)，轉(zhuǎn)而執(zhí)

2、行LoopWhile后面的語句先執(zhí)行循環(huán)語句，再判斷條件表達(dá)式的值，當(dāng)條件條件表達(dá)式的值為False時繼續(xù)執(zhí)行循環(huán)體，直到條件為True結(jié)束循環(huán)轉(zhuǎn)而執(zhí)行LoopUntil后面的語句。（二）ForNext語句在循環(huán)次數(shù)已知的情況下，采用ForNext語句實現(xiàn)循環(huán)結(jié)構(gòu)是比較合適的選擇。ForNext語句的格式如下：證住了公式循環(huán)變雖在終値內(nèi)俑壞孌至增in步棧ForNext證住了公式循環(huán)變雖在終値內(nèi)俑壞孌至增in步棧ForNext循環(huán)結(jié)構(gòu)Fo循壞的執(zhí)行過程二陽瞬S）睛環(huán)蠻呈莪腳4E語法格式：For猶壞變量二初值To終值Step步長v循壞體=一Text循環(huán)變量（三）、循環(huán)結(jié)構(gòu)例題對比求1+2+3+10

3、0的值1、當(dāng)for語句中省略step時默認(rèn)值是12、在doloop循環(huán)中要注意變量初值的設(shè)置和循環(huán)變量的增值問題【例】:DimDimNasintegorResultasdoubleDimDimNasirrtcKcrResultasdoubleDimNDimNDimN-iasintegerReau1七=1Fori-1ToNResultResult*Nexti鵬成kssResult1asintegerRest!1七=1*i=tDoWhileiv=NResult=Resul(*ii=i十1Loop鵬雖Resultno/Loop循環(huán)應(yīng)該在循環(huán)開始前設(shè)置初值7T43571)/(21)SumLoopn=(

4、-l)(nSum=0二Suw【例】求7T43571)/(21)SumLoopn=(-l)(nSum=0二Suw【例】求的值。直到警后嚴(yán)0000001DoWhile1/(2+n-1)=0.0000001口=suin*4五、習(xí)題訓(xùn)練：1.單選題1分在VB中，某同學(xué)要計算1+3+5+9的值，他應(yīng)用循環(huán)結(jié)構(gòu)語句如下:s=0FORi=1TO9STEPs=s+i請問語句中的“”代表的值是（）A、-1B、-2C、2D、1多選題2分如下VisualBasic程序段，用到了哪些控制結(jié)構(gòu)（）。PrivateSubcommand1_click（）S=0i=16DoS=S+Ii=i+1UntilS=100Printi

5、的值為:;IEndSubA、順序結(jié)構(gòu)B、循環(huán)結(jié)構(gòu)C、層次結(jié)構(gòu)D、選擇結(jié)構(gòu)單選題1分.以下是一段VisualBasic程序，它的基本結(jié)構(gòu)屬于（）-DoS=S+Ii=i+1LoopUntilS=100A、順序結(jié)構(gòu)B、選擇結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、樹型結(jié)構(gòu)單選題1分執(zhí)行下列VB程序段后，變量j的值為（）S=0Forj=1to10Step2S=S+jNextjA、1B、10C、11D、12:單選題1分有如下VB程序段，對該程序段執(zhí)行過程描述正確的是（）DoS=S+1LoopUntilS100A、如果S100,則退出循環(huán)B、如果S100,則重復(fù)執(zhí)行S=S+1D、不論S初值為多少，至少執(zhí)行一次S=S+1單選題1

6、分在結(jié)構(gòu)化程序設(shè)計中通常包含三種不同的控制結(jié)構(gòu)，即：順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。下列說法正確的是（）A、一個程序只能包含一種結(jié)構(gòu)B、一個程序最多可以包含兩種結(jié)構(gòu)C、一個程序可以包含以上三種結(jié)構(gòu)D、一個程序必須包含以上三種結(jié)構(gòu):單選題1分求解S=2+4+6+8+10的VB程序如下，試問程序中的“step”表示（）。S=0Fori=2to10step2S=s+INextiA、函數(shù)B、步長C、表達(dá)式D、變量閱讀下列程序段，程序運行后在文本框中顯示的結(jié)果是PrivateSubForm_Click（）DimsAsIntegerDimiAsIntegers=0Fori=1To100s=s+iNexti=

7、sEndSubA、5051B、5050C、10101D、101009執(zhí)行以下語句后，a的值是DimaAsIntegera=1DoWhilea100a=a+2LoopA、101B、溢出C、99D、10010.補充完善下列程序段求s=2+4+6+100之和。DimiAsIntegerDimsAsIntegers=0Fori=2To100Step2s=NextiPrints輸出100以內(nèi)（包含100）能被3整除的數(shù)。DimIAsIntegerI=1DoIfIMod3=0ThenPrintIEndIfI=I+1LoopUntil比口年小張藝加了一場考試，耳白石一道題目是求S-ltH2CH-3(H+10

8、0r目張編寫出了如下的不蘭整理序-請熔程序缺失部分“呻卜充完整，并護吟符刪除，F(xiàn)unctionfunc()DimiAsIntegerDimsAsIntegers=0Fori=10To100Step10s=Nextifunc=s=&sEndFunction算法描述某學(xué)校組織一次讀書活動，計劃購買各種各樣書寫筆作為獎品。用100元買100支筆，其中鋼筆每支5元，圓珠筆每支1元，鉛筆1元買6支，求可行的方案數(shù)有多少種注：請不要更改原程序結(jié)構(gòu)，刪除(1)、(2)、(3)，并在對應(yīng)位置填寫正確的代碼Functionfunc()Dimi,j,kAsIntegeri,j,k變量分別存儲購買三種筆所用的總金額

9、func=(1)Fori=0To100Forj=0To100Fork=0To100If(i+j+k)=100(2)(i/5+j+6*k)=100Thenfunc=func+1EndIfNextkNext(3)NextiEndFunction王確曲代馮)；PrivateSubCommand1_Click()Dimsumsum=(1)Fori=1To6k=2isum=（2）+kNext=sumout（sum）EndSub.士二二一匕二亠下貝=C1）求10!C刪除算迭中的（1）幷填寫正確代碼）C2）正晡運石程厚盲,俁存文件.PrivateSubCommand1_Click()s=1Fori=1To10s=s*(1)Nextfunc=s=funcout(