mcs/btests/ConditionalStatementsC7.vb

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