《Visual Basic程序設(shè)計簡明教程》課件第5章

2023/12/13《VisualBasic程序設(shè)計簡明教程》15.1While語句

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

Wend

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

Loop（2）Do-LoopWhileDo

循環(huán)體

LoopWhile表達(dá)式2023/12/13《VisualBasic程序設(shè)計簡明教程》5Do-LoopWhileDo-LoopWhile的循環(huán)條件位于循環(huán)語句的后面，屬于“直到型”循環(huán)，不斷地執(zhí)行循環(huán)體，直到循環(huán)條件不成立為止。否是循環(huán)體表達(dá)式為真語句2023/12/13《VisualBasic程序設(shè)計簡明教程》6說明：（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較為合適。2023/12/13《VisualBasic程序設(shè)計簡明教程》7例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返回2023/12/13《VisualBasic程序設(shè)計簡明教程》85.3For-Next語句For循環(huán)變量=初值To終值[Step步長]

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

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

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

DoIfsum>4000ThenExitDoEndIfsum=sum+ii=i+1LoopWhilei<=1002023/12/13《VisualBasic程序設(shè)計簡明教程》14Fori=1To100Ifsum>4000ThenExitForEndIfsum=sum+iNexti5.4流程轉(zhuǎn)向語句——ExitFor返回2023/12/13《VisualBasic程序設(shè)計簡明教程》155.5循環(huán)嵌套循環(huán)嵌套又稱為多重循環(huán)，是指在一個循環(huán)結(jié)構(gòu)的循環(huán)體中又包含另一個完整的循環(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ù)。2023/12/13《VisualBasic程序設(shè)計簡明教程》16例5.5

打印九九乘法口訣表

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

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

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

NextiEndSub返回2023/12/13《VisualBasic程序設(shè)計簡明教程》175.6循環(huán)算法

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

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

百馬百擔(dā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);zEndIfNextyNextxEndSub2023/12/13《VisualBasic程序設(shè)計簡明教程》19例5.7

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

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

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

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

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

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

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

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

NextiPrint"sum=";sumEndSub2023/12/13《VisualBasic程序設(shè)計簡明教程》22例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'求出當(dāng)前的項，f1是前一項，f2是前二項

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

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

NextiEndSub返回2023/12/13《VisualBasic程序設(shè)計簡明教程》235.7圖片框

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

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

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