mcs/btests/ConditionalStatementsC8.vb

   1 REM LineNo: 12\r
   2 REM ExpectedError: BC30201\r
   3 REM ErrorMessage: Expression expected\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ConditionalStatementsC8\r
   8 \r
   9     Sub Main()\r
  10 \r
  11         Dim i As Integer = 0\r
  12         Select \r
  13                 Case 0 To \r
  14                     i = 10\r
  15                 Case Else\r
  16                     i = 11\r
  17         End Select   \r
  18 \r
  19     End Sub\r
  20 \r
  21 End Module