VB的一個很大的優(yōu)點就是語法比較豐富、靈活。在需要進行選擇判斷時，我們通常習(xí)慣使用 if …… endif 或者 if …… else…… endif，胡子先生就是如此。雖然if語句最簡單，最容易理解，但并不是最有效率的選擇，尤其是在進行一些比較復(fù)雜的判斷的時候。

在下面的這個例子中，分別用4種語句來完成同一個任務(wù)，比較一下你就會發(fā)現(xiàn)它們有時可以互換，但也有區(qū)別。總結(jié)起來頗費文字，不如直接上代碼：

PrivateSubCommand1_Click()'switch語句
Dimi,tt
i=Val(Text1)
tt=Switch(i>=90,"優(yōu)",i>=80,"良",i>=60,"中",i<60,"差")
Label1.Caption=tt
Callclear
EndSub

PrivateSubCommand2_Click()'choose語句
Dimi,ii,iii,tt
i=Val(Text1)
ii=Int(i/10)
iii=10-ii
Ifiii>4Then
tt="差"
Else
tt=Choose(iii,"優(yōu)","良","中","中")
EndIf
Label1.Caption=tt
Callclear
EndSub


PrivateSubCommand3_Click()'iif語句
Dimi,tt
i=Val(Text1)
tt=IIf(i>=60,"及格","不及格")
Label1.Caption=tt
Callclear
EndSub

PrivateSubCommand4_Click()'selectcase語句
Dimi,tt
i=Val(Text1)
SelectCasei
CaseIs>=90:tt="優(yōu)"
CaseIs>=80:tt="良"
CaseIs>=70:tt="中"
CaseIs>=60:tt="及格"
CaseElse
tt="不及格"
EndSelect
Label1.Caption=tt
Callclear
EndSub

Subclear()
Text1=""
Text1.SetFocus
EndSub