mcs/btests/ConditionalStatementsC13.vb

   1 REM LineNo: 17\r
   2 REM ExpectedError: BC30071\r
   3 REM ErrorMessage: 'Case Else' can only appear inside a 'Select Case' statement.\r
   4 \r
   5 REM LineNo: 19\r
   6 REM ExpectedError: BC30088\r
   7 REM ErrorMessage: 'End Select' must be preceded by a matching 'Select Case'.\r
   8 \r
   9 Imports System\r
  10 \r
  11 Module ConditionalStatementsC13\r
  12 \r
  13     Sub Main()\r
  14 \r
  15         Dim i As Integer = 0\r
  16         \r
  17                 Case Else\r
  18                     Console.WriteLine("Hello World")\r
  19         End Select   \r
  20 \r
  21     End Sub\r
  22 \r
  23 End Module