mcs/btests/ConditionalStatementsC10.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30095\r
   3 REM ErrorMessage: 'Select Case' must end with a matching 'End Select'.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ConditionalStatementsC10\r
   8 \r
   9     Sub Main()\r
  10 \r
  11         Dim i As Integer = 0\r
  12 \r
  13         Select case i \r
  14                 case 0 To 1\r
  15                         Console.WriteLine("i is either 0 or 1")\r
  16       \r
  17     End Sub\r
  18 \r
  19 End Module