1、 -格式二DoUntil條件循環體Loop格式三:Do循環體LoopWhile條件格式四：Do循環體LoopUntil采件先計算條件表達式的值，當其值為True時，執行循環體中的語句序列，然后再重新計算條件表達式的值，當條件表達式的值為False時，循環終止，執行Loop語句后的語句。先計算條件表達式的值，當其值為False時，執行循環體中的語句序列，然后再重新計算條件表達式的值，直到條件表達式的值為True時，循環終止，執行DoUntilLoop語句的下一條語句。先執行循環語句，再判斷條件表達式的值，當條件條件表達式的值為True時繼續執行循環體，當條件表達式的值為False結束循環，轉而執

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

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

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

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

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

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

8、0r目張編寫出了如下的不蘭整理序-請熔程序缺失部分“呻卜充完整，并護吟符刪除，Functionfunc()DimiAsIntegerDimsAsIntegers=0Fori=10To100Step10s=Nextifunc=s=&sEndFunction算法描述某學校組織一次讀書活動，計劃購買各種各樣書寫筆作為獎品。用100元買100支筆，其中鋼筆每支5元，圓珠筆每支1元，鉛筆1元買6支，求可行的方案數有多少種注：請不要更改原程序結構，刪除(1)、(2)、(3)，并在對應位置填寫正確的代碼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(