mcs/mbas/Test/tests/LogicalOperatorsA.vb

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