mcs/btests/ConditionalStatementsC6.vb

   1 REM LineNo: 16\r
   2 REM ExpectedError: BC30086\r
   3 REM ErrorMessage: 'Else' must be preceded by a matching 'If' or 'ElseIf'.\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module ConditionalStatementsC6\r
   8 \r
   9     Sub Main()\r
  10         Dim i As Integer = 0\r
  11         \r
  12         if i = 0 then\r
  13                 i = 2\r
  14         else\r
  15                 i = 3\r
  16         else\r
  17                 i = 4\r
  18         End if \r
  19 \r
  20     End Sub\r
  21 \r
  22 End Module\r