《新編Visual-Basic程序設(shè)計(jì)教程》第7章

第7章

控制語句選擇控制結(jié)構(gòu)循環(huán)結(jié)構(gòu)GoTo語句（無條件轉(zhuǎn)移語句）其他輔助控制語句7.1選擇控制結(jié)構(gòu)在處理實(shí)際問題時(shí)，常常需要我們對(duì)給定的條件進(jìn)行判斷，并根據(jù)判斷的結(jié)果選擇不同的操作進(jìn)行處理，這就需要使用選擇結(jié)構(gòu)。在VB中，提供了多種形式的條件語句來實(shí)現(xiàn)選擇結(jié)構(gòu)。7.1.1If條件語句If條件語句有單分支、雙分支和多分支等多種形式。1．If…Then語句（單分支結(jié)構(gòu)）這種形式比較簡(jiǎn)單，語句形式如下：或其中：表達(dá)式一般為關(guān)系或邏輯表達(dá)式，也可為算術(shù)表達(dá)式。當(dāng)表達(dá)式為算術(shù)表達(dá)式時(shí)，值為非0時(shí)為True，值為0時(shí)表示False。If表達(dá)式Then語句If表達(dá)式Then

語句塊EndIf語句塊可以是一條或多條語句。上述第一種形式中Then后面通常為一條語句，如果要用多條語句，則必須書寫在一行上，各語句間用冒號(hào)分隔。該語句的作用是當(dāng)表達(dá)式的值為True時(shí)，執(zhí)行Then后面的語句或語句塊；當(dāng)表達(dá)式的值為False時(shí)不作任何操作。例如：比較兩個(gè)變量a和b內(nèi)數(shù)值的大小，如果a小于b，則將a和b的值交換。其語句如下：

或

Ifa<bThent=a:a=b:b=tIfa<bThent=xx=yy=tEndIf2．If…Then…Else語句（雙分支結(jié)構(gòu)）語句形式如下：或If表達(dá)式Then語句1Else語句2

If表達(dá)式Then

語句塊1

Else

語句塊2EndIf該語句的作用是當(dāng)表達(dá)式的值為True時(shí)，執(zhí)行Then后面的語句塊1或語句1；當(dāng)表達(dá)式的值為False時(shí)，執(zhí)行Else后面的語句塊2或語句2。其流程圖如右圖所示。雙分支結(jié)構(gòu)的流程圖例如：

或：

Ifx>=yThenPrint"x>=y"ElsePrint"x<y"

Ifx>=yThenPrint"x>=y"ElsePrint"x<y"EndIf3．If…Then…ElseIf語句（多分支結(jié)構(gòu)）雙分支結(jié)構(gòu)只能根據(jù)條件選擇兩個(gè)分支中的一個(gè)執(zhí)行。當(dāng)要處理的問題有多種情況時(shí)，就要用到多分支結(jié)構(gòu)。例7.1

有如下分段函數(shù)：現(xiàn)輸入x的值，要求輸出y的值。這個(gè)問題可以用三個(gè)單分支結(jié)構(gòu)的語句來完成（請(qǐng)讀者自己完成），也可以用多分支結(jié)構(gòu)來完成。多分支結(jié)構(gòu)的語句形式如下：該語句的功能是：如果表達(dá)式1運(yùn)算結(jié)果為True，則執(zhí)行語句塊1；如果表達(dá)式1運(yùn)算結(jié)果為False，則判斷表達(dá)式2，如果表達(dá)式2為True，則執(zhí)行語句塊2；如果表達(dá)式2為False，則判斷表達(dá)式3，……如果前面所有的表達(dá)式都為False，則執(zhí)行語句塊n+1。最后一個(gè)Else也可以沒有。If表達(dá)式1Then

語句塊1ElseIf表達(dá)式2

Then

語句塊2

ElseIf表達(dá)式3

Then

語句塊3……[Else

語句塊n+1]EndIf上面的分段函數(shù)我們就可以用多分支結(jié)構(gòu)書寫語句如下：我們也可以把上述語句寫在一行上：Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1EndIfIfx>0Theny=1ElseIfx=0Then

y=0Elsey=-1例7.2

已知某課程的百分制成績(jī)score與相應(yīng)的五級(jí)制成績(jī)的對(duì)應(yīng)關(guān)系，要求輸入某學(xué)生的百分制成績(jī)，輸出對(duì)應(yīng)的等級(jí)。程序段如下：

Ifscore>=90ThenPrint“優(yōu)”ElseIfscore>=80ThenPrint“良”ElseIfscore>=70ThenPrint“中”ElseIfscore>=60ThenPrint“及格”ElsePrint“不及格”

EndIf下面再給出兩個(gè)程序段，請(qǐng)讀者自己判斷是否正確。程序段一：

Ifscore<60ThenPrint“不及格”ElseIfscore<70ThenPrint“及格”ElseIfscore<80ThenPrint“中”ElseIfscore<90ThenPrint“良”ElsePrint“優(yōu)”

EndIf程序段二：

Ifscore>=60ThenPrint“及格”ElseIfscore>=70ThenPrint“中”ElseIfscore>=80ThenPrint“良”ElseIfscore>=90ThenPrint“優(yōu)”ElsePrint“不及格”

EndIf4．嵌套的If語句嵌套的If語句是指在Then或Else后面的語句塊中又包含If語句。上面的多分支結(jié)構(gòu)語句其實(shí)就是嵌套的If語句。我們也可以把內(nèi)層的If放在外層的If后的語句塊中，如前面的例7.1，我們也可以用下面的語句完成：對(duì)于嵌套的If語句，為了增加程序的可讀性，建議在書寫時(shí)用鋸齒型。通過上面幾種語句形式的學(xué)習(xí)，我們可以看到：If語句形式如果不在一行上書寫，必須以EndIf結(jié)束。對(duì)于嵌套的If語句，EndIf總是與離它最近的前面一個(gè)尚未配對(duì)的If配對(duì)。

Ifx>=0ThenIfx>0Theny=1Elsey=0EndIfElsey=-1EndIf7.1.2IIf

函數(shù)該函數(shù)可用來執(zhí)行簡(jiǎn)單的條件判斷操作，它是“If…Then…Else”結(jié)構(gòu)的簡(jiǎn)寫版本，是“ImmiediateIf”的縮略。格式如下：

result是用來接收函數(shù)返回值的變量，“條件”是一個(gè)邏輯表達(dá)式，當(dāng)條件為真時(shí)，IIf函數(shù)返回“True部分”，而當(dāng)條件為假時(shí)返回“False部分”?！癟rue部分”或“False部分”可以是表達(dá)式、變量或其他函數(shù)。result=IIf(條件,True部分,False部分)例如：上例中IIf函數(shù)和其上面的單行If語句的作用是一樣的。PrivateSubCommand1_Click()x=9Ifx>0Theny=1Elsey=0y=IIf(x>0,1,0)EndSub7.1.3SelectCase語句對(duì)于多分支結(jié)構(gòu)，VB中還提供了一個(gè)專門的SelectCase語句（又稱情況語句或Case語句）。它可以根據(jù)一個(gè)表達(dá)式的值，在一組相互獨(dú)立的語句塊中挑選一個(gè)語句塊執(zhí)行。SelectCase語句的格式如下：SelectCase變量或表達(dá)式

Case表達(dá)式列表1語句塊1

[Case表達(dá)式列表2語句塊2]……

[CaseElse語句塊n+1]EndSelect其中：變量或表達(dá)式：可以是數(shù)值型或字符串表達(dá)式，通常為變量。表達(dá)式列表i：稱為域值，與“變量或表達(dá)式”的數(shù)據(jù)類型必須相同，可以是下列四種形式之一：①表達(dá)式②一組用逗號(hào)分隔的枚舉值，如：

③表達(dá)式To表達(dá)式，如：

④Is關(guān)系運(yùn)算表達(dá)式，使用的運(yùn)算符包括：<<=>>==<>，如：

Case2,4,6,8Case1To5CaseIs<12第一種形式與某個(gè)值比較，后三種形式與設(shè)定的某個(gè)范圍比較，四種形式也可以在數(shù)據(jù)類型相同的情況下混合使用。如：

Case1,3,5,7,Is>10SelectCase語句的作用是：先求SelectCase后的變量或表達(dá)式的值，然后將該測(cè)試值與各Case后的“表達(dá)式列表”中的值相匹配，如果找到了匹配的Case，就執(zhí)行其后的語句塊，如果都不匹配，就執(zhí)行CaseElse后的語句塊。如果有多個(gè)Case后的“表達(dá)式列表”中的值與測(cè)試值匹配，則只執(zhí)行自上而下的第一個(gè)與之匹配的Case后的語句塊。SelectCase語句的流程圖如右圖所示。SelectCase語句流程圖例7.3

在窗體中建立一個(gè)文本框（操作略）。程序運(yùn)行后，在輸入對(duì)話框中輸入數(shù)值1，則在文本框中顯示“1”，在輸入對(duì)話框中輸入數(shù)值2或3，則在文本框中分別顯示“2”或“3”，如果輸入其他值，則在文本框中顯示“Goodbye”并結(jié)束程序。請(qǐng)讀者上機(jī)實(shí)驗(yàn)。SubForm_Click() msg="Enterdata" var=InputBox(msg) SelectCasevar Case1 Text1.Text="1" Case2 Text1.Text="2" Case3 Text1.Text="3" CaseElse Text1.Text="Goodbye" EndSelectEndSub可以看出，對(duì)于多分支結(jié)構(gòu)，用SelectCase語句比用嵌套的If語句程序可讀性強(qiáng)。但是要注意，不是所有的多分支結(jié)構(gòu)均可用SelectCase語句代替嵌套的If語句。在SelectCase語句中，各個(gè)Case中指定的表達(dá)式和語句塊不能相互矛盾。各個(gè)Case的順序?qū)?zhí)行結(jié)果沒有影響，但CaseElse一定要放在所有的其他Case之后。7.2循環(huán)結(jié)構(gòu)在程序設(shè)計(jì)中經(jīng)常需要重復(fù)執(zhí)行某些操作，這就需要用到循環(huán)結(jié)構(gòu)。和其他一些程序設(shè)計(jì)語言一樣，VB也為我們提供了多種形式的循環(huán)語句。在實(shí)際編程中讀者可根據(jù)實(shí)際情況和個(gè)人習(xí)慣選擇合適的語句用于循環(huán)。其中，在循環(huán)結(jié)構(gòu)中被重復(fù)執(zhí)行的若干語句稱為循環(huán)體。7.2.1For循環(huán)語句For循環(huán)也稱For-Next循環(huán)或計(jì)數(shù)循環(huán)，用于控制循環(huán)次數(shù)預(yù)先已知的循環(huán)結(jié)構(gòu)。語句的一般形式為：

For循環(huán)變量＝初值To終值[Step步長(zhǎng)]

[語句塊]

[ExitFor]

[語句塊]Next[循環(huán)變量]其中：循環(huán)變量：又稱循環(huán)控制變量、控制變量或循環(huán)計(jì)數(shù)器，必須是一個(gè)數(shù)值型變量，但不能是下標(biāo)變量或記錄元素。初值、終值和步長(zhǎng)：分別表示循環(huán)變量的初始值、終止值和每次循環(huán)時(shí)循環(huán)變量的增量，它們都是數(shù)值表達(dá)式。步長(zhǎng)值可以為正也可以為負(fù)，但不能為0。如果步長(zhǎng)值為1，可省略不寫。它們的值也可以是實(shí)數(shù)，VB不會(huì)對(duì)其自動(dòng)取整。For循環(huán)的循環(huán)次數(shù)由這三個(gè)值確定，計(jì)算公式為：

循環(huán)次數(shù)=Int（（終值—初值）/步長(zhǎng)）+1語句塊：即循環(huán)體，可以是一條或多條語句。ExitFor：表示遇到該語句時(shí)退出循環(huán)，執(zhí)行Next的下一條語句。Next：循環(huán)終端語句，其后的循環(huán)變量必須與對(duì)應(yīng)的For中的循環(huán)變量名相同。For語句的執(zhí)行過程如下：首先，循環(huán)變量被賦初值（注意該操作只執(zhí)行一次），接著判斷循環(huán)變量的值是否超過終值，如果超過就停止執(zhí)行循環(huán)體，跳出該循環(huán)，執(zhí)行Next后面的語句；如果未超過終值就執(zhí)行一次循環(huán)體，然后把循環(huán)變量的值加步長(zhǎng)值再賦給循環(huán)變量，再去判斷循環(huán)變量的值是否超過終值。這里所說的“超過”，是指大于或小于，即當(dāng)步長(zhǎng)值為正值時(shí)，超過就是循環(huán)變量的值大于終值，當(dāng)步長(zhǎng)值為負(fù)值時(shí)，超過就是循環(huán)變量的值小于終值。For語句的流程圖如右圖所示。For-Next循環(huán)的流程圖例7.4

計(jì)算1~100的奇數(shù)和，程序段如下。說明：（1）循環(huán)結(jié)束時(shí)，循環(huán)變量的值保持退出循環(huán)時(shí)的值。如上例中，循環(huán)結(jié)束后i的值為101。（2）初學(xué)時(shí)在循環(huán)體內(nèi)盡量不要再對(duì)循環(huán)變量賦值，以免影響循環(huán)的執(zhí)行，造成概念混亂。DimiAsInteger,sAsIntegers=0Fori=1To100Step2s=s+iNexti例7.5

閱讀下面的程序段：該程序段的運(yùn)行結(jié)果為：

第1次循環(huán)i=4 第2次循環(huán)i=9

第3次循環(huán)i=14 第4次循環(huán)i=19

退出循環(huán)后i=21j=0Fori=1To20Step2i=i+3j=j+1Print"第";j;"次循環(huán)i=";iNextiPrint"退出循環(huán)后i=";i7.2.2While循環(huán)語句Ｗhile循環(huán)也稱為當(dāng)型循環(huán)控制結(jié)構(gòu)。其格式如下：其中：條件為一布爾表達(dá)式。

While條件［語句塊］

WendWhile循環(huán)語句的執(zhí)行過程為：如果條件為True，則執(zhí)行語句塊，遇到Wend語句時(shí)返回While語句行并對(duì)條件重新判斷，如果仍為True，則重復(fù)上述過程；如果條件為False，則跳出While循環(huán)，接著執(zhí)行Wend后面的語句。While循環(huán)語句的執(zhí)行流程如右圖所示。While-Wend的流程圖While循環(huán)與For循環(huán)的區(qū)別是：For循環(huán)的循環(huán)體的執(zhí)行次數(shù)是一定的，而While循環(huán)是在給定條件為Ｔrue時(shí)重復(fù)執(zhí)行循環(huán)體，因此While循環(huán)適合循環(huán)次數(shù)未知的情況。While循環(huán)有時(shí)可以代替For循環(huán)。例7.6

用While循環(huán)計(jì)算1~100的奇數(shù)和。

DimiAsInteger,sAsInteger

s=0

i=1

While(i<=100)s=s+ii=i+2

Wend例7.7

統(tǒng)計(jì)從鍵盤輸入的字符的個(gè)數(shù)，當(dāng)輸入的字符為“＃”時(shí)停止計(jì)數(shù)，并輸出統(tǒng)計(jì)的字符個(gè)數(shù)。

SubForm_Click()

DimcharAsString

Constch$="#"

Counter=0

msg$="Enteracharacter:"

char=InputBox$(msg$)

Whilechar<>ch$

Counter=Counter+1

char=InputBox$(msg$)

Wend

Print"Numberofcharactersis:";Counter

EndSub例7.8

輸入一個(gè)正整數(shù)n（n>=3），判斷其是否為素?cái)?shù)。程序如下：PrivateSubForm_Click()DimnAsIntegern=InputBox("請(qǐng)輸入一個(gè)正整數(shù)n>=3")k=Int(Sqr(n))i=2flag=0Whilei<=kAndflag=0IfnModi=0Thenflag=1Elsei=i+1EndIfWendIfflag=0ThenPrintn;"是一個(gè)素?cái)?shù)"ElsePrintn;"不是素?cái)?shù)"EndIfEndSub7.2.3Do循環(huán)語句Do循環(huán)語句也可以用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。它有兩種語法形式。（1）Do[While|Until循環(huán)條件][語句塊][ExitDo][語句塊]Loop（2）Do[語句塊][ExitDo][語句塊]Loop[While|Until循環(huán)條件]其中：（1）Do、Loop、While、Until都是關(guān)鍵字。語句塊即循環(huán)體，循環(huán)條件是一個(gè)邏輯表達(dá)式。（2）Do和Loop構(gòu)成了Do循環(huán)。當(dāng)只有這兩個(gè)關(guān)鍵字時(shí)，Do循環(huán)的格式簡(jiǎn)化為：這時(shí)程序?qū)⒉煌５貓?zhí)行Do和Loop之間的語句塊，從而構(gòu)成一個(gè)“死循環(huán)”，只能通過人工干預(yù)的方法或由操作系統(tǒng)強(qiáng)迫其停止執(zhí)行。這是程序設(shè)計(jì)中應(yīng)當(dāng)盡量避免的。因此，必須使用可選的關(guān)鍵字While或Until及ExitDo，使Do循環(huán)能夠正常終止運(yùn)行。Do[語句塊]Loop（3）關(guān)鍵字While是當(dāng)條件為True時(shí)執(zhí)行循環(huán)，而Until正好相反，是在條件變?yōu)門rue之前執(zhí)行循環(huán)。（4）在形式（1）中，是先判斷后執(zhí)行，循環(huán)有可能一次也不執(zhí)行；而形式（2）是先執(zhí)行后判斷，循環(huán)至少執(zhí)行一次。（5）ExitDo語句表示當(dāng)遇到該語句時(shí)退出循環(huán)，接著執(zhí)行Loop的下一語句。例7.9

用輾轉(zhuǎn)相除法求兩個(gè)正整數(shù)m和n的最大公約數(shù)和最小公倍數(shù)。分析：輾轉(zhuǎn)相除法求最大公約數(shù)的算法思想如下：（1）對(duì)于已知兩個(gè)正整數(shù)m和n，先使m>n；（2）求m除以n的余數(shù)并賦值給r；（3）若r=0，則n即為求得的最大公約數(shù)，否則執(zhí)行步驟⑷；（4）將n賦值給m，r賦值給n，再重復(fù)步驟⑵。求出最大公約數(shù)后，將原來的兩數(shù)相乘除以最大公約數(shù)即為最小公倍數(shù)。程序如下：PrivateSubForm_Click()n1=InputBox("輸入n1")m1=InputBox("輸入m1")Ifm1>n1Thenm=m1:n=n1Elsem=n1:n=m1EndIfDor=mModnIfr=0ThenExitDom=nn=rLoopPrintm1;"和";n1;"的最大公約數(shù)為:";nPrint"最小公倍數(shù)為:";m1*n1/nEndSub程序運(yùn)行時(shí)單擊窗體，在輸入對(duì)話框中分別輸入24和18，運(yùn)行結(jié)果如下圖所示。程序的一次運(yùn)行結(jié)果7.2.4循環(huán)的嵌套在一個(gè)循環(huán)體內(nèi)又包含了一個(gè)完整的循環(huán)結(jié)構(gòu)稱為循環(huán)的嵌套。前面我們介紹的幾種循環(huán)語句都可以相互嵌套。對(duì)于循環(huán)的嵌套，要注意以下幾點(diǎn)：（1）各層的循環(huán)變量不要同名。（2）外層的循環(huán)必須完全包含內(nèi)層的循環(huán)，不能交叉。（3）嵌套的循環(huán)在執(zhí)行時(shí)，要從外層的循環(huán)進(jìn)入，但只有內(nèi)層的循環(huán)執(zhí)行完后才能開始下一次的外層循環(huán)。例7.10

打印“九九表”。程序如下：PrivateSubForm_Click()FontSize=12 Fori=1To9 PrintTab(i*6);i; Nexti Print Forj=1To9 Printj;""; Fori=1Toj PrintTab(i*6);i*j;""; Nexti Print NextjEndSub程序運(yùn)行結(jié)果如下圖所示。九九表例7.11

求100以內(nèi)的所有素?cái)?shù)。前面已經(jīng)介紹過了判斷一個(gè)正整數(shù)n是否為素?cái)?shù)的方法?，F(xiàn)在要求100以內(nèi)的所有素?cái)?shù)，只需將n再作循環(huán)，并將其中的素?cái)?shù)進(jìn)行輸出，即用一個(gè)二重循環(huán)實(shí)現(xiàn)。程序如下： PrivateSubForm_Click() Forn=2To100k=Int(Sqr(n))i=2flag=0Whilei<=kAndflag=0IfnModi=0Thenflag=1Elsei=i+1EndIfWendIfflag=0Thennum=num+1Printn,IfnumMod5=0ThenPrintEndIf NextnEndSub程序中外層循環(huán)用的是For循環(huán)，內(nèi)層循環(huán)用的是While循環(huán)語句。變量num用來計(jì)數(shù)，以便控制每行輸出5個(gè)素?cái)?shù)，使輸出清晰美觀。運(yùn)行結(jié)果如下圖所示。輸出100以內(nèi)的素?cái)?shù)7.3GoTo語句（無條件轉(zhuǎn)移語句）和其他程序設(shè)計(jì)語言一樣，VB中也保留了無條件轉(zhuǎn)移語句GoTo，但在一般情況下不提倡使用它，因此下面我們簡(jiǎn)單介紹一下GoTo語句。GoTo語句的形式如下：

其中：標(biāo)號(hào)是一個(gè)以冒號(hào)結(jié)尾的標(biāo)識(shí)符，如start:，而行號(hào)是一個(gè)整型數(shù)，它不以冒號(hào)結(jié)尾，如200。GoTo語句改變程序執(zhí)行的順序，它的作用是無條件地轉(zhuǎn)到標(biāo)號(hào)或行號(hào)指定的那行語句去執(zhí)行。GoTo標(biāo)號(hào)|行號(hào)例7.12

編寫程序給學(xué)生的成績(jī)下評(píng)語，該評(píng)語是根據(jù)學(xué)生考試分?jǐn)?shù)分段區(qū)分的。其中分?jǐn)?shù)為90～100評(píng)語是“VeryGood”、70～89是“Good”、60～69是“Fair”、50～59是“Poor”、50分以下“Fail”。其程序如下：PrivateSubForm_Click()DimscoreAsInteger,numAsIntegerscore=InputBox("輸入分?jǐn)?shù)")num=InputBox("輸入學(xué)號(hào)")Ifscore<=100Andscore>=90ThenGoTo100Ifscore<=89Andscore>=70ThenGoTogoodIfscore<=69Andscore>=60ThenGoTo普通入口Ifscore<=59Andscore>=50ThenGoTo150GoTo失敗入口100‘這里的100指的是行號(hào)Print"學(xué)號(hào)：";numPrint"分?jǐn)?shù)：";scorePrint"評(píng)語：VeryGood"GoTofingood：'這里的good是標(biāo)號(hào)Print"學(xué)號(hào)：";numPrint