算法的三種基本控制結構順序結構選擇結構循環(huán)結構選擇結構流程圖嚴格遵循“一路”原則(1)行IF語句IF條件表達式then語句1

Else語句2或者：IF條件表達式then語句(2)塊IF語句If條件表達式Then語句1ElseIf條件表達式Then語句2……Else語句nEndIF選擇結構流程圖格式：

(2012年3月浙江省高考信息卷)下列能準確表達“如果明天不下雨，那么我們騎車去郊游”是(

)A．lf(明天下雨)Then(我們騎車去郊游)B．If(明天不下雨)Then(我們騎車去郊游)Else(我們不去郊游)C．If(明天下雨)Then(我們不去郊游)Else(我們騎車去郊游)D．lf(明天不下雨)Then(我們騎車去郊游)（浙江省2009年9月高考）”如果a，b中任意一個為0，那么y=y+l”。能實現(xiàn)該功能的VB語句是（）

A.Ifa=0Andb=0Theny=y+1 B.Ifa*b=0Theny=y+1C.Ifa=0,b=0Theny=y+1 D.Ifa,b=0Theny=y+1(2011年9月高考題)有如下VB程序段：s=2:k=1IfNotk=sThens=s+k該程序段運行后，s的值是（）A.3B.2C.1D.0（浙江省2012年6月會考）若x=1，執(zhí)行語句Ifx<3Theny=1－xElsey=1+x后，變量y的值是（）

A．0 B．1 C．2 D．3(2013年3月浙江省高考)有如下VB程序段：a＝3:b＝4:c＝5Ifa>＝bAnda>＝cThen

y＝aElseIfb>＝cThen

y＝bElse

y＝cEndIf該程序段運行之后，整數(shù)型變量y的值(

)A．0 B．3 C．5 D．4有如下VB程序段:x=-4.2y=Abs(Int(x))Ifx>0Andx<5Then

y=y+1Else

y=y-1EndIf該程序段運行后,y的值為(

)A.3 B.4 C.5 D.6解析:本題主要考查的是選擇語句。由于x=-4.2,則Abs(Int(x))=Abs(-5)=5,因此不滿足If條件,即執(zhí)行y=y-1語句,y=4,答案為B。下列VB程序運行時，在文本框Text1中輸入數(shù)據(jù)90，單擊命令按鈕Command1后，文本框Text2中顯示的內容是______。PrivateSubCommand1_Click()DimxAsInteger,sAsStringx=Val(Text1.Text)s="Y"Ifx<>100Andx>80Thens="N"Text2.Text=sEndSubPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Val(Text1.Text)IfaMod2=0Thenb=a+1ElseIfaMod3=0Thenb=a+2ElseIfaMod5=0Thenb=a+4Elseb=aEndIfLabel1.Caption=Str(b)EndSub運行該程序，在文本框Text1中輸入25，單擊命令按鈕command1，在標簽Label1中顯示的內容是

。有下列VB程序段：

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,cAsInteger

a＝Val(Text1.Text)

b＝Val(Text2.Text)

Ifa>bAnda>0Thenc＝Sqr(a)Elsec＝Sqr(Abs(b))

Text3.Text＝Str(c)

EndSub運行時，在文本框Text1中輸入數(shù)據(jù)－25，在文本框Text2中輸入數(shù)據(jù)－100，單擊命令按鈕Command1后，文本框Text3中顯示的內容是（）A.10 B.25C.50 D.100某地出租車按照行駛距離（以千米為單位按整數(shù)計，小數(shù)部分四舍五入）計費，行駛距離取整后，計費規(guī)則如下：3千米（包括3千米）以內10元；超過3千米但低于10千米（包括10千米）時，超過部分每千米2元；超過10千米時，超過部分每千米3元。例如，行駛距離8千米時將收取10+（8-3）×2=20元，行駛距離12千米時將收取10+（10-3）×2+（12-10）×3=30元?，F(xiàn)要求編寫VB程序（運行界面如第16題圖所示），實現(xiàn)如下功能：在文本框Text1中輸入行駛距離，單擊“計算”按鈕Command1，在標簽Label3中顯示相應的費用。某同學按此要求編寫的程序如下，其中函數(shù)f(x)用于計算費用，但加框處代碼有錯，請改正。Functionf(xAsInteger)AsIntegerIf①Then f=10ElseIfx<=10Thenf=②

Elsef=10+（10-3）*2+（x-10）*3EndIfEndFunctionPrivateSubCommand1_Click()DimnAsInteger,rAsIntegern=Int(Val(Text1.Text)+0.5) ′n為取整后的行駛距離

r=f(n) ′r為需收取的費用

Label3.Caption=Str(r)EndSub

x<=310+(x-3)*2下面VB程序的功能是根據(jù)身份證號判斷性別。程序運行時,在文本框Text1中輸入18位的身份證號,單擊Command1按鈕,在標簽Label1中顯示其性別(判斷方法:身份證第17位上的數(shù)字表示性別,如果該數(shù)是奇數(shù)表示男性,偶數(shù)表示為女性)。PrivateSubCommand1_Click()

DimxAsString,yAsInteger

x=①

y=