Visual Basic 嵌套 Select Case 语句

可以将 select 语句作为外部 select 语句的语句序列的一部分。即使内部和外部选择的情况常量包含共同的值，也不会产生冲突。

实例

Module decisions
  Sub Main()
   'local variable definition
   Dim a As Integer = 100
   Dim b As Integer = 200
   Select a
     Case 100
      Console.WriteLine("This is part of outer case ")
      Select Case b
        Case 200
         Console.WriteLine("This is part of inner case ")
      End Select
     End Select
   Console.WriteLine("Exact value of a is : {0}", a)
   Console.WriteLine("Exact value of b is : {0}", b)
   Console.ReadLine()
  End Sub
End Module

结果如下:

This is part of outer case
This is part of inner case
Exact value of a is : 100
Exact value of b is : 200