Visual Basic程序設計簡明教程（第二版）課件：循環(huán)結構

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

While語句

Do-Loop語句

For-Next語句

流程轉向語句

循環(huán)嵌套

循環(huán)算法

圖片框

圖像框

計時器2024/11/11《VisualBasic程序設計簡明教程》25.1While語句

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

Wend

否是表達式為真循環(huán)體語句2024/11/11《VisualBasic程序設計簡明教程》3說明：（1）循環(huán)語句的表達式一般是關系或者邏輯表達式，以構成循環(huán)條件。如果是算術表達式，則按照“非0為真”的原則，把算術表達式的值轉換為邏輯值。（2）應該把需要重復執(zhí)行的語句組成循環(huán)體。（3）如果在循環(huán)之前需要先判斷條件，則采用while語句較為合適。2024/11/11《VisualBasic程序設計簡明教程》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程序設計簡明教程》55.2Do-Loop語句（1）DoWhile-LoopDoWhile表達式循環(huán)體

Loop（2）Do-LoopWhileDo

循環(huán)體

LoopWhile表達式2024/11/11《VisualBasic程序設計簡明教程》6Do-LoopWhileDo-LoopWhile的循環(huán)條件位于循環(huán)語句的后面，屬于“直到型”循環(huán)，不斷地執(zhí)行循環(huán)體，直到循環(huán)條件不成立為止。否是循環(huán)體表達式為真語句2024/11/11《VisualBasic程序設計簡明教程》7說明：（1）注意Do-LoopWhile與DoWhile-Loop的區(qū)別。由于Do-LoopWhile是先執(zhí)行循環(huán)體后判斷循環(huán)條件，所以它的循環(huán)體至少執(zhí)行一次，而DoWhile-Loop語句的循環(huán)體有可能一次也不執(zhí)行。（2）如果需要先執(zhí)行再判斷循環(huán)條件，則采用Do-LoopWhile較為合適。2024/11/11《VisualBasic程序設計簡明教程》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程序設計簡明教程》95.3For-Next語句For循環(huán)變量=初值To終值[Step步長]

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

變量在范圍內(nèi)循環(huán)體循環(huán)變量增加步長語句2024/11/11《VisualBasic程序設計簡明教程》10說明：（1）步長一般是正數(shù)，應該滿足初值≤終值。如果步長為負數(shù)，則應該滿足終值≤初值。如果省略Step，則步長的默認值是1。（2）循環(huán)變量的類型必須是數(shù)值型，初值、終值和步長的類型都自動轉換為循環(huán)變量的類型。循環(huán)次數(shù)=Int((終值-初值)/步長)+1。（3）如果事先知道循環(huán)次數(shù)，則采用For-Next語句較為合適。2024/11/11《VisualBasic程序設計簡明教程》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程序設計簡明教程》125.4流程轉向語句有時遇到特殊情況，需要提前跳出循環(huán)，這時可以使用流程轉向語句來實現(xiàn)。VB語言提供了Exit語句，它往往與If語句配合使用，增加了循環(huán)語句的出口，從而增強了程序的靈活性。2024/11/11《VisualBasic程序設計簡明教程》135.4流程轉向語句——Exit語句

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

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

打印九九乘法口訣表

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

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

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

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

算法是對某個問題求解過程的描述。

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

百馬百擔問題

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程序設計簡明教程》20例5.7

判斷自然數(shù)x是否為素數(shù)

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

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

flag=False'修改標志

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

EndIfNextiIfflag=TrueThen'flag為True則表示x為素數(shù)

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

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

NextiPrint"sum=";sumEndSub2024/11/11《VisualBasic程序設計簡明教程》23例5.9

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

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

Fori=3To20'因為前面已經(jīng)求出兩項，在這里只需要循環(huán)18次

t=f1+f2'求出當前的項，f1是前一項，f2是前二項

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

f1=t'當前項是下次的前一項

NextiEndSub返回2024/11/11《VisualBasic程序設計簡明教程》245.7圖片框

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

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

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