比较ab大小

来源:互联网 发布:怎样学做淘宝客服 编辑:程序博客网 时间:2024/04/30 14:32
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

0 0