mcs/btests/LogicalOperatorsC2.vb

   1 'BC30201: Expression expected\r
   2 \r
   3 Imports System\r
   4 \r
   5 Module LogicalOperatorsC2\r
   6     Sub main()\r
   7 \r
   8         Dim a As Boolean = True\r
   9         Dim b As Boolean = False\r
  10         Dim c As Boolean\r
  11         c = a And\r
  12         c =  And b\r
  13         If a And b Then\r
  14             a = False\r
  15         End If\r
  16     End Sub\r
  17 End Module