比较两个数大小

比较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