Select Case语句

Select Case语句也是条件判断语句，通用性不如If语句，只能根据一个值的清单来测试一个变量，但是Select Case语句比If语句要简洁一些。
Select Case语句的语法为：

Select Case 变量
    Case 值1
        代码1
    Case 值2
        代码2
    Case 值3
        代码3
    Case Else
        代码X
End Select

如果变量的值等于值1，则执行代码1，如果等于值2，则执行代码2，依次类推，如果不等于已经列出的任何值，则执行代码X

例如，在命令窗口输入：

Dim Value As Integer = 5
Dim Result As String
Select Case Value
    Case 1
        Result = "低于20分"
    Case 2
        Result = "低于60分"
    Case 3
        Result = "低于80分"
    Case 4
        Result = "低于90分"
    Case 5
        Result = "超过90分"
    Case Else
        Result = "无效值"
End Select
Output.Show(Result)

将变量Value的值分别设为1、2、3、4、5、6，然后执行代码，看看会得到什么结果。

一个Case语句可以同时设置多个值，各个值之间用逗号分开，例如：

Case语句还可以是一个范围，起始值和终止值用关键词To隔开，例如：

Select Case语句可以对各种数据类型的变量进行比较，包括字符型、日期型、逻辑型、各种数值型，例如下面使用字符型变量：

Dim Value As String = "A"
Dim Result As String
Select Case Value
    Case "E"
        Result = "低于20分"
    Case "D"
        Result = "低于60分"
    Case "C"
        Result = "低于80分"
    Case "B"
        Result = "低于90分"
    Case "A"
        Result = "超过90分"
    Case Else
        Result = "无效值"
End Select
Output.Show(Result)