程序的三種基本結(jié)構(gòu)

教材版本:算法與程序設(shè)計(jì)（教育科學(xué)出版社）

學(xué)科:信息技術(shù)高一年（下）程序的基本結(jié)構(gòu)

歐陽(yáng)郁建（泉港二中）指導(dǎo)老師：林麗珍程序的基本結(jié)構(gòu)《算法與程序設(shè)計(jì)》第二章程序設(shè)計(jì)ABC

授課者：歐陽(yáng)郁建工作單位：泉州市泉港區(qū)第二中學(xué)指導(dǎo)老師：林麗珍第一部分：順序結(jié)構(gòu)1、順序結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)

牢固掌握這三種基本結(jié)構(gòu)，是學(xué)習(xí)程序設(shè)計(jì)的基本要求，是編寫(xiě)出結(jié)構(gòu)清晰、易讀易懂程序的前提。2、選擇結(jié)構(gòu)

任何正規(guī)的程序都可以分解為三種基本結(jié)構(gòu):

看右圖,請(qǐng)問(wèn)如何將右圖中兩個(gè)瓶子里面的液體進(jìn)行交換?

用一個(gè)空瓶子作為“中轉(zhuǎn)”來(lái)解決這個(gè)問(wèn)題。同理，在程序設(shè)計(jì)中也使用這種方法來(lái)交換兩個(gè)變量的值。1、順序結(jié)構(gòu)PrivateSubcmdChang_Click()DimaAsSingle,bAsSingle,cAsSinglea=InputBox(“輸入a”)b=InputBox(“輸入b”)Print“交換前:a=”；a，”b=”；bc=aa=bb=cMsgBox“交換后a=”&a&”b=”b,vbOKOnly,”交換結(jié)果”EndSub請(qǐng)看以下程序代碼:模塊A模塊B模塊C順序結(jié)構(gòu)流程圖模塊B模塊A模塊C開(kāi)始輸入a,bc=aa=bb=c輸出交換后的a,b結(jié)束小結(jié)

順序結(jié)構(gòu)：按照由上到下的順序一行一行地執(zhí)行,程序執(zhí)行過(guò)程中沒(méi)有分支，沒(méi)有重復(fù)，我們把這種結(jié)構(gòu)就稱為順序結(jié)構(gòu)。謝謝!

我國(guó)首位航天員楊利偉乘坐的“神舟”五號(hào)載人飛船，于北京時(shí)間2003年10月15日9時(shí)，在酒泉衛(wèi)星發(fā)射中心成功升空，這標(biāo)志著我國(guó)載人航天技術(shù)走向一個(gè)新的里程，如圖所示。由物理學(xué)知識(shí)可知：只有當(dāng)飛船的速度達(dá)到第一宇宙速度(7.91千米/秒)時(shí)，才可以在地球引力作用下，繞地球近似做勻速圓周運(yùn)動(dòng)。

2、選擇結(jié)構(gòu)

要編寫(xiě)程序，實(shí)現(xiàn)以下功能:輸入飛船速度，判斷飛船是否能升空。流程圖如下圖所示。開(kāi)始輸入速度vV>=7.91輸出飛船成功飛行！輸出飛船不能升空！結(jié)束YN飛船運(yùn)行狀態(tài)的流程圖PrivateSubcmdOk_Click()DimvAsSinglev=Val(InputBox(“輸入速度(km/s）”))Ifv>=7.91ThenlblShow.Caption="飛船成功飛行！"ElselblShow.Caption="飛船不能升空！"EndIfEndSub程序代碼實(shí)現(xiàn):

像這種根據(jù)不同的條件判斷,來(lái)決定程序執(zhí)行走向的結(jié)構(gòu)，這就是選擇結(jié)構(gòu)。條件P模塊A模塊BYN條件P模塊A模塊BYN選擇結(jié)構(gòu)的運(yùn)行流程開(kāi)始輸入速度vV>=7.91輸出飛船成功飛行！輸出飛船不能升空！結(jié)束YN

剛才的程序只有兩種選擇，當(dāng)程序出現(xiàn)多分支選擇時(shí)，用If語(yǔ)句實(shí)現(xiàn)比較煩瑣，而使用多分支選擇結(jié)構(gòu)SelectCase語(yǔ)句就方便多了。SelectCase的語(yǔ)法格式如下：SelectCase表達(dá)式

Case表達(dá)式列表1

語(yǔ)句組1[Case表達(dá)式列表2

語(yǔ)句組2]……[CaseElse

語(yǔ)句組n]EndSelectPrivateSubcmdOk_Click()DimvAsSinglev=Val(InputBox("輸入速度v(km/s)"))SelectCasevCaseIs>16.67lblShow.Caption="飛出太陽(yáng)系"CaseIs>=11.19lblShow.Caption="繞太陽(yáng)運(yùn)行"CaseIs>=7.91lblShow.Caption="繞地球運(yùn)行"CaseElselblShow.Caption="數(shù)據(jù)輸入錯(cuò)誤！"EndSelectEndSub程序代碼實(shí)現(xiàn):

假設(shè)你從今年開(kāi)始，第一個(gè)月為“希望工程”存入1元錢，第二個(gè)月存2入2元錢，第三個(gè)月存入3元錢……依次類推，兩年時(shí)間你將為“希望工程存入多少錢？

3、循環(huán)結(jié)構(gòu)

我們假設(shè)n為月數(shù)，intSum是一個(gè)累加變量,且初始值為0，那么存入錢的累計(jì)數(shù)intSum的計(jì)算方法是：第1個(gè)月:n=1,n<=24條件成立,intSum=intSum+n，即intSum=0+1；第2個(gè)月:n=2,n<=24條件成立,intSum=intSum+n，即intSum=1+2；第3個(gè)月:n=3,n<=24條件成立,intSum=intSum+n，即intSum=3+3；

……

第24個(gè)月:n=24,n<=24條件成立,intSum=intSum+n，即intSum=276+24；第25個(gè)月：n=25,n<=24條件不成立，不再累計(jì)。開(kāi)始n=1,intSum=0Nn<=24YintSum=intSum+nn=n+1輸出intSum結(jié)束程序的流程圖“希望工程儲(chǔ)蓄”程序流程圖PrivateSubcmdOk_Click()DimnAsInteger,intSumAsIntegerintSum=0Forn=1To24intSum=intSum+nNextnlblSum.Caption="兩年共存入："&intSum&"元"EndSub程序代碼實(shí)現(xiàn):

上段代碼中使用For…Next語(yǔ)句實(shí)現(xiàn)循環(huán)，變量n的初始值為1，每執(zhí)行一次循環(huán)，n的值加1(即循環(huán)步長(zhǎng)為1)，直到n>24，退出循環(huán)。

如果要計(jì)算多少月之后，“希望工程”儲(chǔ)蓄才能多于500元，該怎么辦呢？由于循環(huán)次數(shù)未知，使用DoWhile…Loop語(yǔ)句實(shí)現(xiàn)更合適。PrivateSubCommand1_Click()DimnAsInteger,intSumAsIntegern=0intSum=0DoWhileintSum<=500n=n+1intSum=intSum+nLooplblSum.Caption=n&"個(gè)月才能為希望工程存款超過(guò)500元。"EndSub

從這段程序可以看出，DoWhile語(yǔ)句先判斷是否滿足While后面的條件表達(dá)式，如果滿足，程序反復(fù)執(zhí)行DoWhile和Loop之間的語(yǔ)句，直到條件不再滿足為止。DoWhileintSum<=500n=n+1intSum=intSum+nLoopForn=1To24intSum=intSum+nNextn

For…Next語(yǔ)句和DoWhile…Loop語(yǔ)句在許多情況下是可以通用的，但是，F(xiàn)or…Next語(yǔ)句適合用于循環(huán)次數(shù)容易確定的情況，而DoWhile…Loop語(yǔ)句則用在循環(huán)次數(shù)不確定的情況下。結(jié)束開(kāi)始n=1,intSum=0n<=24intSum=intSum+nn=n+1YintSumN循環(huán)結(jié)構(gòu)運(yùn)行流程圖小結(jié)

我們學(xué)習(xí)了程序的三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。

1、順序結(jié)構(gòu)：按照由上到下的順序一行一行地執(zhí)行的程序結(jié)構(gòu)