Nested 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 SubEnd Module
当上述代码被编译和执行时,它产生以下结果:
This is part of outer caseThis is part of inner caseExact value of a is : 100Exact value of b is : 200
转载本站内容时,请务必注明来自W3xue,违者必究。


优化或报错有奖
皖公网安备34020702000426号