比较两个数的大小

比较a,b的大小

在command1中进行编辑：

Private Sub Command1_Click()
 Cls
     Me.Font.Size = 50
     Dim a As Integer
     Dim b As Integer
     Dim swap As Integer
     
     a = Int(Rnd * 1000)
     b = Int(Rnd * 1000)
     
     If a < b Then
         swap = a
         a = b
         b = swap
    End If
    Print a & "，" & b
End Sub