流程圖與選擇結(jié)構(gòu)

CHAPTER7流程圖與選擇結(jié)構(gòu)

學(xué)習(xí)目標(biāo)讓讀者了解利用電腦處理問(wèn)題的步驟流程圖的意義與用法程式的基本結(jié)構(gòu)有那些？選擇結(jié)構(gòu)有那些相關(guān)的敘述與函數(shù)？If-Then敘述的功能與用法If-Then-Else敘述的功能與用法巢式If敘述的用法Select敘述的功能與用法IIf、Choose與Switch函數(shù)的功能與用法MsgBox敘述與函數(shù)的功能與用法

－訊息方塊的產(chǎn)生與運(yùn)用

7-1利用電腦處理問(wèn)題的步驟一、瞭解問(wèn)題：先瞭解問(wèn)題的要求及條件，確定需要輸入的資料及輸出的結(jié)果。二、設(shè)計(jì)解題程序：研究分析解題方法，構(gòu)思有效可行的處理程序，可以用流程圖(FlowChart)來(lái)表達(dá)所要處理的步驟。三、編寫程式：依程式語(yǔ)言的語(yǔ)法規(guī)則，將解題的程序轉(zhuǎn)寫成程式。四、上機(jī)執(zhí)行：將程式自鍵盤輸入電腦執(zhí)行。五、檢查結(jié)果：檢查輸出結(jié)果是否正確，如果不正確，再將錯(cuò)誤的原因找出來(lái)，並加以更正。

7-2流程圖的意義

流程圖是利用簡(jiǎn)明、標(biāo)準(zhǔn)的圖形及線條，來(lái)描述程式的處理步驟。常用的流程圖有下列六種：

1.開(kāi)始或結(jié)束符號(hào)（起訖符號(hào)）：表示流程圖的起點(diǎn)或終點(diǎn)，一個(gè)流程圖必須有起點(diǎn)及終點(diǎn)，而且只能有一個(gè)起點(diǎn)，但可以有一個(gè)以上的終點(diǎn)。

【例1】：開(kāi)始或結(jié)束符號(hào)

開(kāi)始結(jié)束2.處理符號(hào)：表示一件工作的處理，可在內(nèi)部列出計(jì)算公式或處理動(dòng)作

。

【例2】：計(jì)算a=b+c

處理符號(hào)

3.輸入或輸出符號(hào)：由輸入設(shè)備輸入資料，或由輸出設(shè)備輸出資料。

【例3】：輸入n值

輸入或輸出符號(hào)【例4】：輸出n值

a=b+c輸入n輸出n4.

流向符號(hào)：表示程式進(jìn)行的方向。

表示有一個(gè)條件要判斷，並根據(jù)其結(jié)果決定下一個(gè)執(zhí)行步驟。菱形內(nèi)註明待判斷的條件，通常有一個(gè)入口，二個(gè)或三個(gè)出口。

【例7】

5.決策符號(hào)

6.迴圈符號(hào)：利用迴圈（Loop）敘述時(shí)使用。

流程圖是畫(huà)來(lái)給人看的，可作為自己或別人瞭解程式做法及處理步驟的一種參考文件。初學(xué)程式語(yǔ)言的人，在設(shè)計(jì)程式之前，最好先利用流程圖來(lái)規(guī)劃整個(gè)程式結(jié)構(gòu)，訓(xùn)練處理問(wèn)題的邏輯思路，對(duì)於程式邏輯比較容易融會(huì)貫通。（可利用Word軟體中的【插入/圖片/快取圖案/流程圖】來(lái)製作流程圖）

流程圖是畫(huà)來(lái)給人看的，可作為自己或別人瞭解程式做法及處理步驟的一種參考文件。初學(xué)程式語(yǔ)言的人，在設(shè)計(jì)程式之前，最好先利用流程圖來(lái)規(guī)劃整個(gè)程式結(jié)構(gòu)，訓(xùn)練處理問(wèn)題的邏輯思路，對(duì)於程式邏輯比較容易融會(huì)貫通。（可利用Word軟體中的【插入/圖片/快取圖案/流程圖】來(lái)製作流程圖）

7-3程式的基本結(jié)構(gòu)一、循序結(jié)構(gòu)：指多個(gè)敘述依序執(zhí)行的方式。

【例1】

循序結(jié)構(gòu)x=Inputbox("請(qǐng)輸入第一個(gè)數(shù)")y=Inputbox("請(qǐng)輸入第二個(gè)數(shù)")s=x+yPrint"兩數(shù)的和=";s

意義：依序執(zhí)行四個(gè)敘述二、選擇結(jié)構(gòu)：根據(jù)某一條件是否成立，來(lái)選擇不同的執(zhí)行路徑。此結(jié)構(gòu)常用的有下列三種型式：1.If-Then結(jié)構(gòu)【例2】假如x>y就計(jì)算x-yIfx>yThena=x-y

意義：以x>y為條件式，如果成立就

執(zhí)行a=x-y

2.If-Then-Else結(jié)構(gòu)【例3】購(gòu)買數(shù)量>=10，售價(jià)打八折Ifq>=10Thena=p*q*0.8Elsea=p*q

意義：以q>=l0為條件式，如果成立就執(zhí)行a=p*q*0.8，否則(條件不成立)就執(zhí)行a=p*q3.SelectCase結(jié)構(gòu)【例4】根據(jù)c值輸出剪刀、石頭或布SelectCasecCasela="剪刀"Case2a="石頭"Case3a="布"EndSelect

意義：以c為條件式的

比較對(duì)象，分別按c的內(nèi)容而做下列的處理:c=l→a="剪刀"，c=2→a="石頭"，c=3→a="布"三、重覆結(jié)構(gòu)：根據(jù)某一條件是否成立，來(lái)控制一段敘述的重覆執(zhí)行，而造成迴圈(Loop)的運(yùn)作。此結(jié)構(gòu)常用的有下列三種型式：(將在第九章介紹)l.For-Next結(jié)構(gòu)【例5】輸出1、3、5Fori=1To5Step2PrintiNexti

意義：For與Next之間

形成一個(gè)迴圈，其中

的敘述Printi，依

i=1、3、5共執(zhí)行三次，即印出1、3及5。(此例之條件為i由1到5，每次增加2)2.Do-While結(jié)構(gòu)【例6】輸出1、3、5

i=1DoWhilei<=5Printii=i+2Loop

意義：以i<=5為條件式

，如果條件成立，

就重覆執(zhí)行Do與Loop之間的敘述。

3.Do-Until結(jié)構(gòu)【例7】累加輸入的數(shù)值，直到輸入0為止a=Inputbox("請(qǐng)輸入一個(gè)數(shù)“)DoUntila=0s=s+aa=Inputbox("請(qǐng)輸入一個(gè)數(shù)")Loop意義：以a=0為條件，如果條件

成立就停止執(zhí)行Do與Loop之

間的敘述，否則就重覆執(zhí)行

該段敘述。

7-4If-Then敘述

If-Then的中文意思是「假如…就執(zhí)行…」。格式一：If條件式Then敘述

如果If後面的條件式成立了，就接著執(zhí)行Then後面的敘述，完成後再執(zhí)行下一列的敘述；如果條件未成立，則直接執(zhí)行下一列的敘述。

【例1】求某一數(shù)值變數(shù)a的絕對(duì)值。Ifa<0Thena=-aPrinta【例2】

輸入購(gòu)書(shū)數(shù)量及單價(jià)，假如購(gòu)買十本以上，就打八折，否則不打折，計(jì)算並輸出購(gòu)書(shū)金額。1PrivateSubForm_Activate()2DimqtyAsInteger,priceAsInteger,moneyAsInteger3qty=InputBox("請(qǐng)輸入購(gòu)書(shū)數(shù)量","購(gòu)書(shū)數(shù)量")4price=InputBox("請(qǐng)輸入單價(jià)","單價(jià)")5money=price*qty6Ifqty>=10Thenmoney=money*0.87Print"購(gòu)書(shū)金額=";money;"元"8EndSub【執(zhí)行情況】第一次執(zhí)行：

第二次執(zhí)行：1.輸入2.按此鈕3.輸入1.輸入2.按此鈕【例3】輸入1~3的代號(hào)，再輸出對(duì)應(yīng)的

剪刀、石頭、布）1PrivateSubForm_Activate()2DimcAsString3c=InputBox$("請(qǐng)輸入代號(hào)1~3")4Print"你選的是：";5Ifcode="1"ThenPrint"剪刀"6Ifcode="2"ThenPrint"石頭"7Ifcode="3"ThenPrint"布"8EndSub【執(zhí)行情況】1.輸入2.按此鈕【例5】

多個(gè)連續(xù)敘述的用法Ifk=1Thena=a+1:b=b+1:c=c+1Ifk=2Thena=a+3:b=b+3:c=c+3【說(shuō)明】要連續(xù)執(zhí)行的多個(gè)敘述，可用冒號(hào)（:）分隔而排在同一列上。格式二：

If條件式Then敘述區(qū)段EndIf

（敘述區(qū)段代表

兩列以上的敘述）【例6】

例4改成格式二Ifk=1Thena=a+1b=b+1c=c+1EndIfIfk=2Thena=a+3b=b+3c=c+3EndIf

7-5IF-Then-Else敘述

格式一:IF條件式Then敘述1Else敘述2

(此格式係一列完成)【例1】

根據(jù)分?jǐn)?shù)（s），印出「及格」或「不及格」Ifs<60ThenPrint"不及格"ElsePrint"及格"或Ifs>=60ThenPrint"及格"ElsePrint"不及格"【例2】

計(jì)算購(gòu)書(shū)金額（money）：數(shù)量（qty）在十本以上，就打八折，否則不打折。（price為單價(jià)）Ifqty>=10Thenmoney=price*qty*0.8_Elsemoney=price*qty格式二：

IF條件式Then敘述區(qū)段1Else敘述區(qū)段2EndIf【說(shuō)明】假如在Then或Else下面的敘述區(qū)段中，再使用If敘述，則稱為巢式If敘述(NestedIfStatement)，如下：IF條件式1Then：IF條件式2Then敘述區(qū)段AElse敘述區(qū)段BEndIf：Else：IF條件式3Then敘述區(qū)段CElse敘述區(qū)段DEndIf：EndIf【例3】

根據(jù)分?jǐn)?shù)（s），印出「及格」「恭喜」或「不及格」「請(qǐng)多用功！」

Ifs<60ThenPrint"不及格"Print"請(qǐng)多用功！"ElsePrint"及格"Print"恭喜！"EndIf【例4】

巢式If敘述的應(yīng)用：根據(jù)分?jǐn)?shù)的範(fàn)圍，輸出文字如下：<60「不及格」「請(qǐng)多用功！」60~89「及格」「恭喜！」>=90「優(yōu)等」「發(fā)獎(jiǎng)狀一張！」Ifs<60ThenPrint"不及格"Print"請(qǐng)多用功！"ElseIfs<90ThenPrint"及格"Print"恭喜！"ElsePrint"優(yōu)等"Print"發(fā)獎(jiǎng)狀一張！"EndIfEndIfIF條件式1Then敘述區(qū)段1[ElseIf條件式mThen敘述區(qū)段m

：：]Else敘述區(qū)段nEndIf

格式三:最後用Else，安排上述條件都不符合時(shí)要執(zhí)行的工作

【

例5】

將例4改用格式三Ifscore<60ThenPrint"不及格"Print"請(qǐng)多用功！"ElseIfscore<90ThenPrint"及格"Print"恭喜！"ElsePrint"優(yōu)等"Print"發(fā)獎(jiǎng)狀一張！"EndIfc=InputBox$("請(qǐng)輸入一個(gè)字元")Ifc>="A"Andc<="Z"ThenPrint"大寫字母"ElseIfc>="a"Andc<="z"ThenPrint"小寫字母"ElseIfc>="0"Andc<="9"ThenPrint"數(shù)字"ElsePrint"不是字母或數(shù)字"EndIf

【例6】判斷輸入的字元是大寫字母、小寫字母、數(shù)字或都不是7-6IIf函數(shù)格式：IIf(條件式,資料1,資料2)1.如果條件式成立（結(jié)果為True），就傳回資料1，不成立（結(jié)果為False）則傳回資料2。2.資料1與資料2都可配用數(shù)值、字串或運(yùn)算式?！纠?】假如購(gòu)書(shū)十本以上，就打八折，否則不打折，計(jì)算並輸出購(gòu)書(shū)金額。Print"購(gòu)書(shū)金額=";IIf(qty>=10,price*qty*0.8,price*qty);"元"【例2】根據(jù)分?jǐn)?shù)（score），印出「及格,恭喜！」或「不及格,請(qǐng)多用功！」PrintIIf(score>=60,"及格,恭喜！","不及格,請(qǐng)多用功！")SelectCase運(yùn)算式Case測(cè)試資料1敘述區(qū)段1Case測(cè)試資料2敘述區(qū)段2…Case測(cè)試資料n敘述區(qū)段n[CaseElse敘述區(qū)段]EndSelect

7-7SelectCase敘述如果末加列CaseElse，而所有Case後的測(cè)試資料都不符合時(shí)，將會(huì)順著離開(kāi)Select結(jié)構(gòu)，而執(zhí)行EndSelect下面的敘述?！纠?】SelectCase的應(yīng)用01c=InputBox("請(qǐng)輸入代號(hào)1~3")02SelectCasec03Case104Print"剪刀"05Case206Print"石頭"07Case308Print"布"09CaseElse10Print"代號(hào)錯(cuò)誤!"11EndSelect

Case測(cè)試資料的用法一、使用單一或多個(gè)常數(shù)：如果運(yùn)算式的結(jié)果值等於其中一個(gè)常數(shù)，就算符合該Case的條件。如下：Case1Case

"SUN"Case1,2,3,4Case2,4,8,16,32,64Case"MON","TUE","WED","THU","FRI"Case"臺(tái)北","臺(tái)中","高雄"

二、利用常數(shù)指定範(fàn)圍：如果運(yùn)算式的結(jié)果值在範(fàn)圍之內(nèi)，就算符合該Case的條件。如下：Case1To4運(yùn)算式的結(jié)果值為1~4均符合條件Case"A"To"Z"運(yùn)算式的結(jié)果值為A~Z的26個(gè)字母均符合條件三、測(cè)試資料為關(guān)係運(yùn)算式的型態(tài)：必須在Case後加列關(guān)鍵字Is，如果運(yùn)算式的結(jié)果值符合該運(yùn)算式之條件，就算符合該Case的條件。如下：CaseIs>=60 運(yùn)算式的結(jié)果值≧60就符合條件CaseIs<>"SUN" 運(yùn)算式的結(jié)果值≠"SUN"就符合條件CaseIs="Y" 運(yùn)算式的結(jié)果值為"Y"就符合條件四、將前述三種用法混合使用。如下：

Case10To20,30,Is>60

運(yùn)算式的結(jié)果值為10~20，或等於30，或＞60，均符合條件。

Case"A"To"D","I","J",Is>="P"

運(yùn)算式的結(jié)果值為A~D，或I，或J，或P~Z等字母均符合條件【例2】輸入成績(jī)，再輸出如7-5節(jié)例4的文字。

01SelectCasescore

02CaseIs<6003Print"不及格"04Print"請(qǐng)多用功！"05Case60To8906Print"及格"07Print"恭喜！"08CaseElse09Print"優(yōu)等"10Print"發(fā)獎(jiǎng)狀一張！"11EndSelect【討論】此程式的考慮比較單純，如果分?jǐn)?shù)為負(fù)值或高於100分，會(huì)怎樣？應(yīng)該如何修改程式，才會(huì)比較周全？7-8Choose函數(shù)

格式：Choose(i,資料1[,資料2,…[,資料n]])

【功能】依i的整數(shù)值，傳回其後面參數(shù)中對(duì)應(yīng)的資料項(xiàng)【說(shuō)明】1.當(dāng)i值不是整數(shù)時(shí)，會(huì)捨去其小數(shù)部分。2.當(dāng)i=1時(shí)，傳回資料1；i=2時(shí)，傳回資料2；依此類推，當(dāng)i=n時(shí)，傳回資料n。3.當(dāng)i的整數(shù)值小於1或大於n時(shí)，傳回空字串（null，無(wú)內(nèi)容）。4.參數(shù)中的各項(xiàng)資料可以是不同型態(tài)的資料?！纠?】將上一節(jié)的例1改用Choose函數(shù)處理c=InputBox("請(qǐng)輸入代號(hào)(1~3)")Ifc<1Orc>=4ThenPrint"代號(hào)錯(cuò)誤!"_ElsePrintChoose(c,"剪刀","石頭","布")【例2】輸1~7的數(shù)字，並輸出對(duì)應(yīng)的星期一、星期二、…、星期日的英文字。（如輸入1，就輸出Monday；輸入6，就輸出Saturday）d=InputBox(“請(qǐng)輸入1~7的數(shù)字”)Ifd<1Ord>=8ThenPrint(“輸入數(shù)字超出範(fàn)圍”)_ElsePrintChoose(d,"Monday","Tuesday","Wednesday","Thursday","Friday",_"Saturday","Sunday")7-9Switch函數(shù)格式：Switch(運(yùn)算式1,資料1[,運(yùn)算式2,資料2,…[,運(yùn)算式n,資料n]])

【功能】依序判斷運(yùn)算式是否成立（True），成立就傳回其後一個(gè)參數(shù)的資料?！菊f(shuō)明】1.先判斷運(yùn)算式1是否成立，成立就傳回資料1

（不再判斷後面的運(yùn)算式），不成立則繼續(xù)判斷運(yùn)算式2，其後依此類推。2.如果所有運(yùn)算式都不成立，則傳回空字串（null，無(wú)內(nèi)容）。3.參數(shù)中的各項(xiàng)資料可以是不同型態(tài)的資料。

【例1】輸入分?jǐn)?shù)，並輸出「及格，恭喜！」或「不及格，請(qǐng)多用功！」s=InputBox("請(qǐng)輸入分?jǐn)?shù)")PrintSwitch(s>=60,"及格，恭喜！",_s<60,“不及格，請(qǐng)多用功！”)【例2】將成績(jī)分三段s=InputBox("請(qǐng)輸入成績(jī)")PrintSwitch(s<60,"不及格,請(qǐng)多用功！",_s>=60Ands<90,"及格,恭喜！",_s>=90,“優(yōu)等,發(fā)獎(jiǎng)狀一張！”)【討論】如果分?jǐn)?shù)超出0~100的範(fàn)圍時(shí)，要輸出「分?jǐn)?shù)超出0~100的範(fàn)圍」，要如何修改？7-10MsgBox敘述與函數(shù)

敘述：

MsgBox訊息[,[格式碼][,標(biāo)題]]

函數(shù)：

MsgBox(訊息[,[格式碼][,標(biāo)題]])1.兩者的用法一樣，只不過(guò)在函數(shù)中，參數(shù)列的前後要加上小括弧，而且會(huì)傳回值（可測(cè)知使用者按了那個(gè)鈕），使用敘述時(shí)不會(huì)傳回值。2.訊息：要提醒使用者注意的文字，如：「密碼錯(cuò)誤!」。3.標(biāo)題：要出現(xiàn)在對(duì)話方塊標(biāo)題欄上的文字，若省略此參數(shù)，會(huì)以專案名稱為標(biāo)題。4.格式碼：用來(lái)設(shè)定在方塊內(nèi)要出現(xiàn)的圖示與按鈕，可用「代碼」或「常數(shù)變數(shù)」表示，其對(duì)照關(guān)係如表8-2。（若省略此參數(shù)，會(huì)自動(dòng)設(shè)定為0）5.利用MsgBox函數(shù)出現(xiàn)對(duì)話方塊後，使用者按下方塊中的命令鈕時(shí)，會(huì)傳回一個(gè)數(shù)值（參看表8-3）供程式辨認(rèn)，作為執(zhí)行後續(xù)敘述的依據(jù)。

表8-2MsgBox常用的基本格式碼及其作用對(duì)照表

類別代碼常數(shù)變數(shù)作

用命令鈕0vbOKOnly只顯示

確定

命令鈕1vbOKCancel顯示

確定

與

取消

兩個(gè)命令鈕2vbAbortRetryIgnore顯示異常終止(A)、重試(R)與略過(guò)(I)三個(gè)命令鈕3vbYesNoCancel顯示是(Y)、否(N)與取消

三個(gè)命令鈕4vbYesNo顯示是(Y)、否(N)兩個(gè)命令鈕5vbRetryCancel顯示重試(R)與

取消

兩個(gè)命令鈕圖示16vbCritical顯示「重要訊息」圖示32vbQuestion顯示「警告查詢」圖示48vbExclamation顯示「警告訊息」圖示64vbInformation顯示「資訊訊息」圖示表8-2MsgBox常用的基本格式碼及其作用對(duì)照表

類別代碼常數(shù)變數(shù)作

用命令鈕0vbOKOnly只顯示

確定

命令鈕1vbOKCancel顯示

確定

與

取消

兩個(gè)命令鈕2vbAbortRetryIgnore顯示異常終止(A)、重試(R)與略過(guò)(I)三個(gè)命令鈕3vbYesNoCancel顯示是(Y)、否(N)與取消

三個(gè)命令鈕4vbYesNo顯示是(Y)、否(N)兩個(gè)命令鈕5vbRetryCancel顯示重試(R)與

取消

兩個(gè)命令鈕圖示16vbCritical顯示「重要訊息」圖示32vbQuestion顯示「警告查詢」圖示48vbExclamation顯示「警告訊息」圖示64vbInformation顯示「資訊訊息」圖示表8-2MsgBox常用的基本格式碼及其作用對(duì)照表

類別代碼常數(shù)變數(shù)作

用命令鈕0vbOKOnly只顯示

確定

命令鈕1vbOKCancel顯示

確定

與

取消

兩個(gè)命令鈕2vbAbortRetryIgnore顯示異常終止(A)、重試(R)與略過(guò)(I)三個(gè)命令鈕3vbYesNoCancel顯示是(Y)、否(N)與取消

三個(gè)命令鈕4vbYesNo顯示是(Y)、否(N)兩個(gè)命令鈕5vbRetryCancel顯示重試(R)與

取消

兩個(gè)命令鈕圖示16vbCritical顯示「重要訊息」圖示32vbQuestion顯示「警告查詢」圖示48vbExclamation顯示「警告訊息」圖示64vbInformation顯示「資訊訊息」圖示表7-2MsgBox函數(shù)傳回值與按下的命令鈕對(duì)照表傳回值對(duì)應(yīng)的常數(shù)變數(shù)按下的命令鈕1vbOK

確定

2VbCancel

取消

3VbAbort異常終止(A)4VbRetry重試(R)5VbIgnore略過(guò)(I)6VbYes是(Y)7VbNo否(N)

使用代碼使用常數(shù)變數(shù)作用35(=3+32+0+0)vbYesNoCancel+vbQuestion顯示是(Y)、否(N)與取消三個(gè)命令鈕及圖示，並設(shè)定第一個(gè)按鈕是(Y)為預(yù)設(shè)按鈕273(=1+16+256+0)vbOKCancel+vbCritical

+vbDefaultButton2顯示確定與取消兩個(gè)命令鈕及圖示，並設(shè)定第二個(gè)按鈕取消為預(yù)設(shè)按鈕格式碼的用法【例1】密碼（Password）檢查：假設(shè)密碼為“1234”，輸入密碼正確就輸出「通過(guò)密碼檢查了!」，不正確則輸出「密碼錯(cuò)誤!」。01PrivateSubForm_Activate()02password=InputBox$("請(qǐng)輸入密碼","密碼檢查")03Ifpassword="1234"Then04MsgBox"通過(guò)密碼檢查了!",vbOKOnly+vbExclamation,"恭喜!"05Else06feedback=MsgBox("密碼錯(cuò)誤!",vbYesNoCancel+vbCritical,"抱歉!")07SelectCasefeedback08CasevbYes09MsgBox"你按了「是(Y)」鈕",0,"是"10CasevbNoMsgBox"你按了「否(N)」鈕",0,"否“12CasevbCancel13MsgBox"你按了「取消」鈕",0,"取消"14CaseElse15MsgBox"不應(yīng)有此情況"16EndSelect17EndIf18EndSub【執(zhí)行情況】第一次執(zhí)行：

第二次執(zhí)行

1.輸入2.按此鈕3.按此鈕1.輸入3.按此鈕4.按此鈕2.按此鈕7-11應(yīng)用實(shí)例【實(shí)例一】假設(shè)某出版社圖書(shū)售價(jià)依採(cǎi)購(gòu)數(shù)量而分成下面三種情況：1~9本 照定價(jià)出售10~49本 照定價(jià)