Cls
Me.Font.Size = 50
Dim a As Integer
Dim a As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
Me.Text1.Text = "a>=b"
If a = b Then
Me.Text1.Text = "a=b"
Else
Me.Text1.Text = "a>b"
End If
End If
Me.Font.Size = 50
Dim a As Integer
Dim a As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
Me.Text1.Text = "a>=b"
If a = b Then
Me.Text1.Text = "a=b"
Else
Me.Text1.Text = "a>b"
End If
End If