Visual Basic程序設(shè)計(jì)簡(jiǎn)明教程（第二版）課件：循環(huán)結(jié)構(gòu)

2024/11/111循環(huán)結(jié)構(gòu)本章內(nèi)容：

While語(yǔ)句

Do-Loop語(yǔ)句

For-Next語(yǔ)句

流程轉(zhuǎn)向語(yǔ)句

循環(huán)嵌套

循環(huán)算法

圖片框

圖像框

計(jì)時(shí)器2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》25.1While語(yǔ)句

While表達(dá)式循環(huán)體

Wend

否是表達(dá)式為真循環(huán)體語(yǔ)句2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》3說(shuō)明：（1）循環(huán)語(yǔ)句的表達(dá)式一般是關(guān)系或者邏輯表達(dá)式，以構(gòu)成循環(huán)條件。如果是算術(shù)表達(dá)式，則按照“非0為真”的原則，把算術(shù)表達(dá)式的值轉(zhuǎn)換為邏輯值。（2）應(yīng)該把需要重復(fù)執(zhí)行的語(yǔ)句組成循環(huán)體。（3）如果在循環(huán)之前需要先判斷條件，則采用while語(yǔ)句較為合適。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》4例5.1

1+2+3+4+5+…+100=？

PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'循環(huán)初值

sum=0Whilei<=100'循環(huán)條件

sum=sum+i'循環(huán)體

i=i+1WendPrint"sum=";sumEndSub返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》55.2Do-Loop語(yǔ)句（1）DoWhile-LoopDoWhile表達(dá)式循環(huán)體

Loop（2）Do-LoopWhileDo

循環(huán)體

LoopWhile表達(dá)式2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》6Do-LoopWhileDo-LoopWhile的循環(huán)條件位于循環(huán)語(yǔ)句的后面，屬于“直到型”循環(huán)，不斷地執(zhí)行循環(huán)體，直到循環(huán)條件不成立為止。否是循環(huán)體表達(dá)式為真語(yǔ)句2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》7說(shuō)明：（1）注意Do-LoopWhile與DoWhile-Loop的區(qū)別。由于Do-LoopWhile是先執(zhí)行循環(huán)體后判斷循環(huán)條件，所以它的循環(huán)體至少執(zhí)行一次，而DoWhile-Loop語(yǔ)句的循環(huán)體有可能一次也不執(zhí)行。（2）如果需要先執(zhí)行再判斷循環(huán)條件，則采用Do-LoopWhile較為合適。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》8例5.2

1+2+3+4+5+…+100=？

PrivateSubCommand2_Click()DimiAsInteger,sumAsIntegeri=1'循環(huán)初值sum=0Dosum=sum+i'循環(huán)體

i=i+1LoopWhilei<=100'循環(huán)條件Print"sum=";sumEndSub返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》95.3For-Next語(yǔ)句For循環(huán)變量=初值To終值[Step步長(zhǎng)]

循環(huán)體Next[循環(huán)變量]否是循環(huán)變量=初值

變量在范圍內(nèi)循環(huán)體循環(huán)變量增加步長(zhǎng)語(yǔ)句2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》10說(shuō)明：（1）步長(zhǎng)一般是正數(shù)，應(yīng)該滿足初值≤終值。如果步長(zhǎng)為負(fù)數(shù)，則應(yīng)該滿足終值≤初值。如果省略Step，則步長(zhǎng)的默認(rèn)值是1。（2）循環(huán)變量的類型必須是數(shù)值型，初值、終值和步長(zhǎng)的類型都自動(dòng)轉(zhuǎn)換為循環(huán)變量的類型。循環(huán)次數(shù)=Int((終值-初值)/步長(zhǎng))+1。（3）如果事先知道循環(huán)次數(shù)，則采用For-Next語(yǔ)句較為合適。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》11例5.3

1+2+3+4+5+…+100=？

PrivateSubCommand3_Click()DimiAsInteger,sumAsIntegersum=0'循環(huán)初值Fori=1To100'循環(huán)條件

sum=sum+i'循環(huán)體NextiPrint"sum=";sumEndSub返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》125.4流程轉(zhuǎn)向語(yǔ)句有時(shí)遇到特殊情況，需要提前跳出循環(huán)，這時(shí)可以使用流程轉(zhuǎn)向語(yǔ)句來(lái)實(shí)現(xiàn)。VB語(yǔ)言提供了Exit語(yǔ)句，它往往與If語(yǔ)句配合使用，增加了循環(huán)語(yǔ)句的出口，從而增強(qiáng)了程序的靈活性。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》135.4流程轉(zhuǎn)向語(yǔ)句——Exit語(yǔ)句

Exit語(yǔ)句可以出現(xiàn)在Do-Loop語(yǔ)句和For-Next語(yǔ)句中，作用是跳出本層循環(huán)結(jié)構(gòu)，轉(zhuǎn)去執(zhí)行下面的語(yǔ)句。其一般形式為ExitDo和ExitFor，前者用于跳出Do-Loop語(yǔ)句，后者用于跳出For-Next語(yǔ)句。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》14如果累加和超過(guò)4000，則停止計(jì)算。

DoIfsum>4000ThenExitDoEndIfsum=sum+ii=i+1LoopWhilei<=1002024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》15Fori=1To100Ifsum>4000ThenExitForEndIfsum=sum+iNexti5.4流程轉(zhuǎn)向語(yǔ)句——ExitFor返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》165.5循環(huán)嵌套循環(huán)嵌套又稱為多重循環(huán)，是指在一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)體中又包含另一個(gè)完整的循環(huán)結(jié)構(gòu)。通常把嵌套在循環(huán)體內(nèi)的循環(huán)結(jié)構(gòu)稱為內(nèi)循環(huán)，把外層的循環(huán)結(jié)構(gòu)稱為外循環(huán)。在程序中一般把最內(nèi)層循環(huán)的總循環(huán)次數(shù)作為多重循環(huán)的循環(huán)次數(shù)。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》17例5.5

打印九九乘法口訣表

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sAsStringFori=1To9'控制輸出行

Forj=1Toi'輸出該行的內(nèi)容

s=j&"×"&i&"="&i*jPrintTab(j*10);s;NextjPrint'每一行結(jié)束后換行

NextiEndSub返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》185.6循環(huán)算法

算法是對(duì)某個(gè)問(wèn)題求解過(guò)程的描述。

循環(huán)算法主要有窮舉法和迭代法，編寫(xiě)循環(huán)程序時(shí)還經(jīng)常會(huì)用到標(biāo)志法和計(jì)數(shù)器等技巧。5.6循環(huán)算法——窮舉法窮舉法就是窮盡所有的可能，一一列舉并進(jìn)行測(cè)試，從中篩選出滿足條件的數(shù)據(jù)。窮舉顯然需要使用循環(huán)結(jié)構(gòu)，測(cè)試則需要使用選擇結(jié)構(gòu)。在采用窮舉法編寫(xiě)程序時(shí)，往往還輔以標(biāo)志法和計(jì)數(shù)器等技巧。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》19例5.6

百馬百擔(dān)問(wèn)題

PrivateSubCommand1_Click()Dimx%,y%,z%PrintTab(10);"大馬";Tab(15);"中馬";Tab(20);"小馬"Forx=0To33Fory=0To50z=100-x-yIfx*3+y*2+z/2=100ThenPrintTab(10);x;Tab(15);y;Tab(20);zEndIfNextyNextxEndSub2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》20例5.7

判斷自然數(shù)x是否為素?cái)?shù)

PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,flagAsBooleanx=Val(Text1.Text)flag=TrueFori=2ToSqr(x)'窮舉

IfxModi=0Then'x能被i整除，則肯定不是素?cái)?shù)

flag=False'修改標(biāo)志

ExitFor'跳出循環(huán)，沒(méi)有必要再比較

EndIfNextiIfflag=TrueThen'flag為T(mén)rue則表示x為素?cái)?shù)

Text2.Text=x&"是素?cái)?shù)"ElseText2.Text=x&"不是素?cái)?shù)"EndIfEndSub2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》215.6循環(huán)算法——迭代法迭代法的基本思想是，不斷地從舊值出發(fā)推導(dǎo)出新值，或者說(shuō)新值是由上一次的舊值迭代而來(lái)。迭代法由迭代初值、迭代公式和迭代次數(shù)等要素構(gòu)成。迭代公式是實(shí)現(xiàn)迭代算法的難點(diǎn)，關(guān)鍵是要找出當(dāng)前一項(xiàng)與上一項(xiàng)之間的迭代關(guān)系。2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》22例5.8

計(jì)算1!+2!+…+10!=？PrivateSubCommand1_Click()DimiAsInteger,sumAsLong,pAsLongsum=0p=1Fori=1To10p=p*i'計(jì)算i!sum=sum+p'計(jì)算累加和

NextiPrint"sum=";sumEndSub2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》23例5.9

求Fibonacci數(shù)列的前20項(xiàng)

PrivateSubCommand1_Click()Dimi%,j%,f1AsLong,f2AsLong,t&f1=1f2=1j=3PrintTab(8);f1;Tab(16);f2;'先輸出數(shù)列最前面的兩項(xiàng)

Fori=3To20'因?yàn)榍懊嬉呀?jīng)求出兩項(xiàng)，在這里只需要循環(huán)18次

t=f1+f2'求出當(dāng)前的項(xiàng)，f1是前一項(xiàng)，f2是前二項(xiàng)

PrintTab(j*8);t;j=j+1IfiMod5=0ThenPrintj=1EndIff2=f1'前一項(xiàng)是下次的前二項(xiàng)

f1=t'當(dāng)前項(xiàng)是下次的前一項(xiàng)

NextiEndSub返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》245.7圖片框

圖片框（PictureBox）控件是一種可以容納其他控件的容器型控件，它的基本功能是顯示圖片。

圖片框還可以作為繪制圖形的繪圖板，甚至能夠輸出文本信息。在工具箱中表示為：

圖片框的常用屬性屬性作用Name設(shè)置圖片框的對(duì)象名Align確定圖片框在窗體中的顯示位置AutoSize確定圖片框是否能自動(dòng)調(diào)整尺寸以顯示全部?jī)?nèi)容，默認(rèn)值是FalsePicture設(shè)置在圖片框中顯示的圖片文件2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》25說(shuō)明：程序第一個(gè)圖片框控件的默認(rèn)對(duì)象名是Picture1，依次類推。Picture屬性值由被顯示圖片的文件名和路徑名組成。在程序運(yùn)行過(guò)程中動(dòng)態(tài)載入圖片的方法是：對(duì)象.Picture=LoadPicture(“圖片文件路徑”)返回2024/11/11《VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程》265.8圖像框圖像框（Image）控件專門(mén)用來(lái)顯示圖片，與圖片框相比，顯示圖片時(shí)所需資源較少，顯示速度也更快。如果只是在界面中顯示圖片，則應(yīng)該優(yōu)先考慮使用圖像框控件。在工具箱中表示為：圖像框的常用屬性屬性作用Name設(shè)置圖像框的對(duì)象名Picture設(shè)置在圖