随机数比较大小

1.打开VB，创建按钮。

2.将按钮名称改为cmdsort，其caption改为“交换了”

3.双击按钮，在新界面输入以下代码：

Private Sub CMDsort_Click()

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

End Sub

4点击运行。