第四章VB基本控制結(jié)構(gòu)(2)學(xué)習(xí)目標(biāo)If語句、iif函數(shù)、Select語句選擇結(jié)構(gòu)的基本技巧復(fù)習(xí)與總結(jié)單分支、雙分支均有單行的語法形式；單分支、雙分支是多分支格式的特例。單分支

if條件then

Aendif雙分支

if條件then

Aelse

Bendif多分支

if

條件一

then

A1

[elseif

條件二

then

A2]……

[else

An]

endif練習(xí)2、用If語句表示分段函數(shù)，下列不正確的程序是______

A.f=x*x+3Ifx>=1thenf=sqr(x+1)B.Ifx>=1thenf=sqr(x+1)Ifx<1thenf=x*x+3C.Ifx>=1thenf=sqr(x+1)f=x*x+3D.Ifx<1thenf=x*x+3elsef=sqr(x+1)Ciif函數(shù)此例亦可用iif函數(shù)完成：

f=iif(x>=1,sqr(x+1),x*x+3)相當(dāng)于C語言的f=(x>=1)?sqr(x+1):x*x+3;功能：根據(jù)表達(dá)式的值，來返回兩部分中的一個。語法：IIf(邏輯表達(dá)式,true部分,false部分)多分支if中條件的層次在下面“分?jǐn)?shù)評定程序”中，可以看到，條件的層次與邏輯的重要性。練習(xí)：程序的修改

Ifmark<60then Print"不及格"

elseifmark<70thenPrint"及格"

elseifmark<80then Print"中等"

elseifmark<90thenPrint"良好"

elsePrint"優(yōu)秀"

endif或Ifmark>=90thenPrint"優(yōu)秀"elseifmark>=80then

Print"良好"elseifmark>=70then

Print“中等elseifmark>=60thenPrint"及格“elsePrint"不及格"endif多分支if中條件表達(dá)式的處理當(dāng)條件表達(dá)式較為復(fù)雜時，可利用邏輯型變量進(jìn)行簡化。整除判斷程序整除的判斷程序輸入一個整數(shù)，判斷它是否是3、5、7的倍數(shù)，程序結(jié)果要具體指出各種情況，如：48能被3整除，但不能被5和7整除。整除的判斷

IfaAndbAndcThenMsgBoxn&"能同時被3、5和7整除",64,"結(jié)果"ElseIfaAndbAndNotcThenMsgBoxn&"能被3和5整除，但不被7整除",64,"結(jié)果“ElseIfaAndNotbAndcThenMsgBoxn&"能被3和7整除，但不被5整除",64,"結(jié)果"ElseIfNotaAndbAndcThenMsgBoxn&"能被5和7整除，但不被3整除",64,"結(jié)果"ElseIfNotaAndNotbAndcThenMsgBoxn&"不被3和5整除，但能被7整除",64,"結(jié)果"ElseIfNotaAndbAndNotcThen

MsgBoxn&"不被3和7整除，但能被5整除",64,"結(jié)果"整除的判斷

ElseIfaAndNotbAndNotcThenMsgBoxn&"不被5和7整除，但能被3整除",64,"結(jié)果"ElseMsgBoxn&"不能被3、5與7整除",64,"結(jié)果"EndIfCallForm_Load'重新加載窗體，即重新執(zhí)行該程序EndSub多分支if對復(fù)雜條件的處理獎學(xué)金計(jì)算程序獎學(xué)金計(jì)算界面：獎學(xué)金計(jì)算代碼PrivateSubCommand1_Click()Dimb1AsBoolean,b2AsBooleanDimb3AsBoolean,b4AsBooleanDimflagAsBoolean,m1%,m2%,m3%flag=False:m1=Text1:m2=Text2:m3=Text3b1=(m1+m2+m3)/3>=95b2=(m1=100Andm2=100Andm3>=80)b3=(m3=100Andm2=100Andm1>=80)b4=(m1=100Andm3=100Andm2>=80)Ifb1Orb2Orb3Orb4ThenText4="一等獎“:flag=True

獎學(xué)金計(jì)算

b1=(m1+m2+m3)/3>=90b2=(m1=100Andm2>=75Andm3>=75)b3=(m2=100Andm1>=75Andm3>=75)b4=(m3=100Andm1>=75Andm2>=75)If(b1Orb2Orb3Orb4)AndNotflagThenText4="二等獎":flag=TrueEndifb1=(m1>=70)And(m2>=70)And(m3>=70)Ifb1AndNotflagThenText4="三等獎":flag=TrueIfNotflagThenText4="未獲得獎學(xué)金"EndSub多分支的Select語句格式

SelectCase

變量

Case

取值列表１A1

Case

取值列表2A2......

[CaseelseAn]

Endselect

取值列表：case5case1to10case2,4,6,8case1to10,50,Is>100caseIs<0,Is>10Select的語法*不能含多個變量**不能在列表中出現(xiàn)除逗號、Is、To以外的其它符號。錯誤的例子

Selectcase

x,y

case

x>0

and

y>0

print“第一象限” case

x<0

and

y<0

print“第三象限” Endselect該例只能通過多分支if語句解決，這表明了Select的局限性。SelectCase變量*Case取值列表１**A1Case取值列表2A2......CaseelseAnEndselectSelect：示例分析三種寫法的對錯selectcasemarkcasemark>=90print“優(yōu)”casemark>=80print“良”casemark>=70print“中”casemark>=60print“及格”caseelseprint“不及格”EndselectselectcasemarkcaseIs>=90print“優(yōu)”caseIs>=80print“良”caseIs>=70print“中”caseIs>=60print“及格”caseelseprint“不