mcs/mbas/Test/tests/ConversionWithAndOperatorNumE.vb

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