Private Sub Command1_Click()
Cls
Me.Font.Size = 70
Dim a As Integer, b As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
End If
Print a & "," & b
End Sub
Cls
Me.Font.Size = 70
Dim a As Integer, b As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
Else
End If
Print a & "," & b
End Sub