[VB.NET]Select Case语句拾遗

正常的Select 语句以下：

        Dim status As Integer = 5

        Select Case status
            Case 0
                Console.WriteLine("状况是:0")
            Case 1
                Console.WriteLine("状况是:1")
            Case 2
                Console.WriteLine("状况是:2")
            Case Else
                Console.WriteLine("其它状况!")
        End Select
        Dim status As Integer = 5