Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
'Dim swap As Integer'用来交换的
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)
d = Int(Rnd * 1000)
'ab bc cd ac ad bd
If a < b Then
Call swap(a, b)
End If
End Sub
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
'Dim swap As Integer'用来交换的
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)
d = Int(Rnd * 1000)
'ab bc cd ac ad bd
If a < b Then
Call swap(a, b)
End If
End Sub