Select Case结构提供了 If...Then...ElseIf结构的一个变通形式,可以从多个语句块中选择执行其中的一个。Select Case语句提供的功能与 If...Then...Else语句类似,但是可以使代码更加简练易读。
Select Case结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较。如果匹配,则执行与该Case 关联的语句块,示例代码如下:
1
2
3
4
5
6
7
8
|
Dim
value
'定义一个变量
value = 10
'变量赋值为10
Select
Case
value
'判断变量的值大小,如果相等则输出变量值
Case
0 MsgBox 0
Case
1 MsgBox 1
Case
2 MsgBox 2
Case
Else
MsgBox
"数值超出范围!"
'如过都不相等,则输出”数值超出范围!”
End
Select
|
请注意 Select Case结构只计算开始处的一个表达式(只计算一次),而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式,这些表达式可以各不相同。仅当每个 ElseIf 语句计算的表达式都相同时,才可以使用 Select Case 结构代替 If...Then...ElseIf 结构。