mcs/mbas/Test/tests/ConversionWithOrOperatorBoolC.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>\r
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)\r
   3 \r
   4 Imports System\r
   5 Module ConversionOrOperator\r
   6 \r
   7 Sub Main()\r
   8         Dim A As Integer = 333\r
   9         Dim B As Long = 555.555   \r
  10         Dim R As Boolean\r
  11         R = (B > A) Or (A > B) \r
  12         if R = False Then\r
  13                 throw new Exception("#Error With Or Operator")\r
  14         End if\r
  15 End Sub\r
  16 End Module\r