mcs/btests/ConditionalStatementsC13.vb

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