第03章 分支結構

VisualBasic流程控制結構選擇結構用途：

根據不同的條件來選擇執(zhí)行不同的操作If語句SelectCase語句If語句根據程序分支的數目分為：單分支結構雙分支結構多分支結構。If語句1.單分支結構單分支結構是指只有一個程序分支，只有滿足指定的條件才能執(zhí)行該程序分支的語句。形式1：

If表達式Then

語句組

EndIf

形式2：

If表達式Then語句If語句首先計算表達式，若表達式的值為真，則執(zhí)行Then后面的語句組，若表達式的值為假，則跳過Then后面的語句，執(zhí)行EndIf后面的語句。真假語句（組）表達式

單分支結構流程圖If語句說明：1.表達式可為關系表達式、邏輯表達式或數值表達式。當表達式是數值表達式時，非零值表示True

，0表示False。If語句2.在形式1中，語句組可以為一條或多條語句。在形式2中，語句表示一條語句，若為多條語句，則必須使用冒號:進行分隔，即語句必須與Then寫在同一行上。If語句3.在形式1中，必須以EndIf語句結束；形式2為單行結構，要求語句都寫在一行上，且不能以EndIf語句結束。例3.9Dimxassingle,bassingle,maxassingleX=inputbox(“請輸入第一個數”,”輸入”)Y=inputbox(“請輸入第二個數”,”輸入”)Max=xIfmax<ythenMax=yEndifPrint“輸入的兩個數為：”;x,yPrint“最大值為:”;maxIfmax<ythenmax=yIf語句2.雙分支結構雙分支結構表示程序有兩個分支，當滿足給定條件時，執(zhí)行分支1，否則執(zhí)行分支2。形式1：

If

表達式Then

語句組1

Else

語句組2

End

If形式2為：

If

表達式Then

語句1Else

語句2If語句首先計算表達式，若表達式的值為真，執(zhí)行Then后面的語句組1（或語句1）；否則跳過語句組1（或語句1），執(zhí)行Else后面的語句組2（或語句2）。使用時應注意在形式1中的Else后不能增加表達式。假真語句(組)1語句(組)2表達式雙分支結構流程圖例3.10Dimxassingle,yassingleX=text1.textIfx>0theny=x*x-1Else

y=sqr(x*x+1)EndifText2.text=yIfx>0theny=x*x-1elsey=sqr(x*x+1)例3.11Dimaassingle,bassingle,cassingleDimsassingle,areaassingleA=text1.textB=text2.textC=text3.textIfa+b>candb+c>aanda+c>bthens=(a+b+c)/2

area=sqr(s*(s-a)*(s-b)*(s-c))

label2.caption=“三角形的面積為：”&areaElse

label2.caption=“無法構成三角形，請重新輸入！”EndifIf語句

3.多分支結構在實際問題中常常會遇到多個條件，此時就要用到多分支。If語句實現多分支結構的形式為：

If表達式1Then

語句組1ElseIf表達式2Then

語句組2

…ElseIf表達式nThen

語句組nElse

語句組n+1EndIf假

真

真

真……表達式1表達式n語句組1語句組2語句組n語句組n+1……多分支結構流程圖表達式2假If語句⑴無論有幾個分支，程序一旦執(zhí)行了某一個分支則退出If語句，其余分支不再執(zhí)行。⑵ElseIf子句的數量沒有限制，可以根據需要使用任意多個ElseIf子句。⑶Else后不能有表達式，Else表示以上表達式均為假時則執(zhí)行其下面的語句組。⑷Else及其后的語句組可以省略。⑸ElseIf

不能寫作ElseIf。例3.12Dimxassingle,yassingleX=text1.textIfx<0then

y=5Elseifx<2then

y=x+1Else

y=x^2+2EndifText2.text=yEndsub例3.13DimscoreasintegerScore=text1.textIfscore>=90then

label2.caption=“優(yōu)秀”Elseifscore>=80then

label2.caption=“良好”Elseifscore>=70then

label2.caption=“中等”Elseifscore>=60then

label2.caption=“及格”Else

label2.caption=“不及格”EndifIf語句If語句的嵌套If語句的嵌套也可實現多分支結構。If表達式1ThenIf表達式2Then

語句組1Else

語句組2EndIfElseIf表達式3Then

語句組3Else

語句組4EndIfEndIf內層內層外層兩層嵌套的If語句例3.14Dimxassingle,yassingleX=text1Ifx>=0then

ifx>=2then

y=x^2+2

else

y=x+1

endifElse

y=5EndifText2=y例3.15SelectCase語句

SelectCase語句也稱為情況語句，是多分支結構的另一種表示形式。SelectCase測試表達式

Case表達式列表1

語句組1

Case

表達式列表2

語句組2

……

Case

表達式列表n

語句組n

CaseElse

語句組n+1EndSelectSelectCase語句⑴測試表達式可以是各類表達式，還可以是常量、變量或對象屬性值，通常為變量。SelectCase語句⑵Case后的表達式列表的類型必須與測試表達式值的類型相同。表達式列表通常有四種形式：單個表達式、一組用逗號隔開的枚舉值、某個范圍及Is關系運算表達式。單個表達式Case2Case“A”一組用逗號隔開的枚舉值Case1,3,5Case“Y”,”y”某個范圍，由“表達式1to表達式2”組成值較小的表達式在前，值較大的表達式在后，字符串常量按字符的編碼順序從低到高排列Case1to10Case“a”to“e”Is關系運算表達式Caseis>=80Caseis<>“Y”只要測試表達式的值使得關系表達式成立即可Is后只能用關系運算符并且只能為簡單條件，不能使用邏輯運算符連接兩個或多個簡單條件Caseis>=60caseis>=50andis<=40(錯)Case1,3,5,10to20,is<0四種形式可混用SelectCase語句⑶當有多個Case子句的值與測試表達式的值匹配時，只執(zhí)行第一個與之匹配的語句組。SelectCase語句CaseElse及其對應的語句組放在所有Case的表達式列表的下面，它們用于指定當測試表達式的值與所有表達式列表都不匹配時所執(zhí)行的操作。SelectCase語句⑸Select表示SelectCase語句的開始，EndSelect表示SelectCase語句的結束，它們必須成對出現。SelectCase語句⑹語句組可由一行或多行語句組成，還可以是If語句或其他SelectCase語句等。例3.16DimscoreasintegerScore=text1.textSelectcasescore

caseis>=90

label2.caption=“優(yōu)秀”caseis>=80label2.caption=“良好”caseis>=70label2.caption=“中等”caseis>=60label2.caption=“及格”caseelselabel2.caption=“不及格”Endselect例3.17DimaasintegerA=inputbox(“請輸入一個0~6的整數”,”輸入”)Selecasea

case0

print“星期日”case1print“星期一”case2print“星期二”case3print“星期三”case4print“星期四”case5print“星期五”case6print“星期六”caseelseprint“輸入錯誤”EndselectDimaasintegerA=inputbox(“請輸入一個0~6的整數”,”輸入”)Ifa=0then

print“星期日”Elseifa=1then

print“星期一”Elseifa=2thenprint“星期二”Elseifa=3thenprint“星期三”Elseifa=4thenprint“星期四”Elseifa=5thenprint“星期五”Elseifa=6thenprint“星期六”Else

print“輸入錯誤”endif條件函數VisualBasic中提供了IIf條件函數用于實現簡單的條件選擇，它是雙分支選擇結構的另一種表達形式。IIf函數的格式為：

IIf(表達式1,表達式2,表達式3)IIf函數在執(zhí)行時，首先計算表達式1的值，當表達式1的值為真時，計算表達式2的值，并將其作為IIf函數的返回值；當表達式1的值為假時，計算表達式3的值，并將其作為IIf函數的返回值。說明：三個表達式均不能省略，且可為任意表達式。例3.18Dimxassingle,yassingle,maxassingleX=inputbox(“請輸入第一個數”,”輸入”)Y=inputbox(“請輸入第二個數”,”輸入”)Max=IIF(x>y,x,y)Print“最大值為：”&max例3.19Dimaassingle,bassingle,cassin