mcs/mbas/Test/tests/conversions/ConversionWithXorOperatorBoolA.vb

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