mcs/btests/LogicalOperatorsC3.vb

   1 ' BC30512: Option Strict On disallows implicit conversions from 'Integer' to 'Boolean'.\r
   2 \r
   3 Option Strict On\r
   4 Imports System\r
   5 \r
   6 Module LogicalOperatorsC3\r
   7 \r
   8     Sub Main()\r
   9         Console.WriteLine(f())\r
  10     End Sub\r
  11 \r
  12     Function f1() As Integer\r
  13         Console.WriteLine("Function f1() is called")\r
  14         Return 1\r
  15     End Function\r
  16 \r
  17     Function f2() As Boolean\r
  18         Console.WriteLine("Function f2() is called")\r
  19         Return False\r
  20     End Function\r
  21 \r
  22     Function f() As Integer\r
  23 \r
  24         Dim a1, a2 As Integer\r
  25         a1 = f1() AndAlso f2()\r
  26         a2 = a1 OrElse f1()\r
  27 \r
  28         Return 0\r
  29 \r
  30     End Function\r
  31 \r
  32 End Module