'Listing 21.1 21LIST01.TXT --- Zastosowanie operatorw porwnania

Private Sub Command1_Click()
  X = 7
  Y = 5

  Form1.Print Spc(3); "X < Y = ";
  Form1.Print X < Y

  Form1.Print Spc(3); "X > Y = ";
  Form1.Print X > Y

  Form1.Print Spc(3); "X <= Y = ";
  Form1.Print X <= Y

  Form1.Print Spc(3); "X <= Y = ";
  Form1.Print X <= Y

  Form1.Print Spc(3); "X <> Y = ";
  Form1.Print X <> Y
End Sub
