mcs/mbas/Test/tests/RelationalOperatorsA.vb

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