mcs/mbas/Test/tests/LogicalOperatorsA.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module LogicalOperatorsA\r
   5 \r
   6     Sub Main()\r
   7         Dim a1, a2 As Integer\r
   8         a1 = f1() AndAlso f2()\r
   9         a2 = a1 OrElse f1()\r
  10         Console.WriteLine("{0}  {1}", a1, a2)\r
  11     End Sub\r
  12 \r
  13     Function f1() As Integer\r
  14         Return 1\r
  15     End Function\r
  16 \r
  17     Function f2() As Boolean\r
  18         Return False\r
  19     End Function\r
  20 \r
  21 End Module