两个随机数排序

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