mcs/btests/RelationalOperatorsA.vb

   1 \r
   2 ' Relational Operators\r
   3 \r
   4 Imports System\r
   5 \r
   6 Module M3\r
   7 \r
   8     Sub main()\r
   9         Console.WriteLine(f3())\r
  10     End Sub\r
  11 \r
  12     Function f3() As Integer\r
  13 \r
  14         Dim arr(16) As Boolean\r
  15 \r
  16         Dim a1, a2, a3, a4 As Boolean\r
  17         a1 = False : a2 = False : a3 = True : a4 = True\r
  18 \r
  19         If a1 = a2 Then arr(0) = True Else arr(0) = False\r
  20         If a3 = a4 Then arr(1) = True Else arr(1) = False\r
  21         If a1 <> a2 Then arr(2) = False Else arr(2) = True\r
  22         If a3 <> a4 Then arr(3) = False Else arr(3) = True\r
  23         If a1 = a3 Then arr(4) = False Else arr(4) = True\r
  24         If a1 <> a3 Then arr(5) = True Else arr(5) = False\r
  25 \r
  26 \r
  27         Dim b1 As String = "a"\r
  28         Dim b2 As String = "b"\r
  29         ' Only the equality (=) and inequality (<>) operators are \r
  30         ' defined for Strings \r
  31 \r
  32         If b1 = "a" Then arr(6) = True Else arr(6) = False\r
  33         If b1 <> "a" Then arr(7) = False Else arr(7) = True\r
  34         If b1 = b2 Then arr(8) = False Else arr(8) = True\r
  35         If b1 <> b2 Then arr(9) = True Else arr(9) = False\r
  36 \r
  37         Dim c1 As Date = New Date(2004, 7, 29)\r
  38         Dim c2 As Date = New Date(2004, 7, 28)\r
  39 \r
  40         If c1 = c2 Then arr(10) = False Else arr(10) = True\r
  41         If c1 <> c2 Then arr(11) = True Else arr(11) = False\r
  42         If c1 = "#7/29/2004#" Then arr(12) = True Else arr(12) = False\r
  43         If c1 <> "#7/29/2004#" Then arr(12) = False Else arr(12) = True\r
  44 \r
  45         Dim d1 As Char = "a"c\r
  46         Dim d2 As Char = "b"c\r
  47 \r
  48         If d1 = "a"c Then arr(13) = True Else arr(13) = False\r
  49         If d1 <> "a"c Then arr(14) = False Else arr(14) = True\r
  50         If d1 = d2 Then arr(15) = False Else arr(15) = True\r
  51         If d1 <> d2 Then arr(16) = True Else arr(16) = False\r
  52 \r
  53         For i As Integer = 0 To arr.GetUpperBound(0) \r
  54             Console.WriteLine("{0}: {1}", i, arr(i))\r
  55         Next\r
  56 \r
  57         For Each bval As Boolean In arr\r
  58             If Not bval Then\r
  59                 Return 1\r
  60             End If\r
  61         Next\r
  62 \r
  63         Return 0\r
  64 \r
  65     End Function\r
  66 \r
  67 End Module