VB：if之外的4种判断语句

VB的一个很大的优点就是语法比较丰富、灵活。在需要进行选择判断时，我们通常习惯使用 if …… endif 或者 if …… else…… endif，胡子先生就是如此。虽然if语句最简单，最容易理解，但并不是最有效率的选择，尤其是在进行一些比较复杂的判断的时候。

在下面的这个例子中，分别用4种语句来完成同一个任务，比较一下你就会发现它们有时可以互换，但也有区别。总结起来颇费文字，不如直接上代码：

PrivateSubCommand1_Click()'switch语句
Dimi,tt
i=Val(Text1)
tt=Switch(i>=90,"优",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,"优","良","中","中")
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="优"
CaseIs>=80:tt="良"
CaseIs>=70:tt="中"
CaseIs>=60:tt="及格"
CaseElse
tt="不及格"
EndSelect
Label1.Caption=tt
Callclear
EndSub

Subclear()
Text1=""
Text1.SetFocus
EndSub