mcs/mbas/Test/errors/ConditionalStatementsC22.vb

   1 'Author:\r
   2 '   V. Sudharsan (vsudharsan@novell.com)\r
   3 '\r
   4 ' (C) 2005 Novell, Inc.\r
   5 \r
   6 REM LineNo: 13\r
   7 REM ExpectedError:  BC30081\r
   8 REM ErrorMessage: 'If' must end with a matching 'End If'.\r
   9 \r
  10 Module Test\r
  11     Sub Main()  \r
  12         Dim i as integer = 1000\r
  13         if i then \r
  14                 i = 4\r
  15         else\r
  16                 i = 1\r
  17         if i<>4 then\r
  18                 Throw New System.Exception("If else if not working properly. Expected 4 but got "&i)\r
  19         End if\r
  20     End Sub\r
  21 End Module\r
  22 \r