mcs/btests/ConditionalStatementsC11.vb

   1 REM LineNo: 14\r
   2 REM ExpectedError: BC30205\r
   3 REM ErrorMessage: End of statement expected\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ConditionalStatementsC11\r
   8 \r
   9     Sub Main()\r
  10 \r
  11         Dim i As Integer = 0\r
  12 \r
  13         Select i \r
  14                 Case 0 To 2     i++\r
  15 \r
  16                 Case Is < 2, 3, 6 To 7\r
  17                         i = i + 2\r
  18         End Select\r
  19 \r
  20     End Sub\r
  21 \r
  22 End Module