vb 学习

如何将三个数从大到小排列 。（真难）

Private Sub Command1_Click()
Cls
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)

If a < b Then
swap = a
a = b
b = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If c < d Then
swap = c
c = d
d = swap
End If
If a < c Then
swap = a
a = c
c = swap
End If
If a < d Then
swap = a
a = d
d = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If b < d Then
swap = b
b = d
d = swap
End If
Print a & "," & b & "," & c & "," & d


End Sub
以此列举可以运用到n个数的大小排列

例如将十五个数大小排

Private Sub Command1_Click()
Cls
Me.Font.Size = 20
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim a5 As Integer
Dim a6 As Integer
Dim a7 As Integer
Dim a8 As Integer
Dim a9 As Integer
Dim a10 As Integer
Dim a11 As Integer
Dim a12 As Integer
Dim a13 As Integer
Dim a14 As Integer
Dim a15 As Integer

a1 = Int(Rnd * 1000)
a2 = Int(Rnd * 1000)
a3 = Int(Rnd * 1000)
a4 = Int(Rnd * 1000)
a5 = Int(Rnd * 1000)
a6 = Int(Rnd * 1000)
a7 = Int(Rnd * 1000)
a8 = Int(Rnd * 1000)
a9 = Int(Rnd * 1000)
a10 = Int(Rnd * 1000)
a11 = Int(Rnd * 1000)
a12 = Int(Rnd * 1000)
a13 = Int(Rnd * 1000)
a14 = Int(Rnd * 1000)
a15 = Int(Rnd * 1000)


If a1 < a2 Then
Call swap(a1, a2)
End If
If a1 < a3 Then
Call swap(a1, a3)
End If
If a1 < a4 Then
Call swap(a1, a4)
End If
If a1 < a5 Then
Call swap(a1, a5)
End If
If a1 < a6 Then
Call swap(a1, a6)
End If
If a1 < a7 Then
Call swap(a1, a7)
End If
If a1 < a9 Then
Call swap(a1, a9)
End If
If a1 < a10 Then
Call swap(a1, a10)
End If
If a1 < a11 Then
Call swap(a1, a11)
End If
If a1 < a12 Then
Call swap(a1, a12)
End If
If a1 < a13 Then
Call swap(a1, a13)
End If
If a1 < a14 Then
Call swap(a1, a14)
End If
If a1 < a15 Then
Call swap(a1, a15)
End If
If a2 < a3 Then
Call swap(a2, a3)
End If
If a2 < a4 Then
Call swap(a2, a4)
End If
If a2 < a5 Then
Call swap(a2, a5)
End If
If a2 < a6 Then
Call swap(a2, a6)
End If
If a2 < a7 Then
Call swap(a2, a7)
End If
If a2 < a8 Then
Call swap(a2, a8)
End If
If a2 < a9 Then
Call swap(a2, a9)
End If
If a2 < a10 Then
Call swap(a2, a10)
End If
If a2 < a11 Then
Call swap(a2, a11)
End If
If a2 < a12 Then
Call swap(a2, a12)
End If
If a2 < a13 Then
Call swap(a2, a13)
End If
If a2 < a14 Then
Call swap(a2, a14)
End If
If a2 < a15 Then
Call swap(a2, a15)
End If
If a3 < a4 Then
Call swap(a3, a4)
End If
If a3 < a5 Then
Call swap(a3, a5)
End If
If a3 < a6 Then
Call swap(a3, a6)
End If
If a3 < a7 Then
Call swap(a2, a7)
End If
If a3 < a8 Then
Call swap(a3, a8)
End If
If a3 < a9 Then
Call swap(a3, a9)
End If
If a3 < a10 Then
Call swap(a3, a10)
End If
If a3 < a11 Then
Call swap(a3, a11)
End If
If a3 < a12 Then
Call swap(a3, a12)
End If
If a3 < a13 Then
Call swap(a3, a13)
End If
If a3 < a14 Then
Call swap(a3, a14)
End If
If a3 < a15 Then
Call swap(a3, a15)
End If
If a4 < a5 Then
Call swap(a4, a5)
End If
If a4 < a6 Then
Call swap(a4, a6)
End If
If a4 < a7 Then
Call swap(a4, a7)
End If
If a4 < a8 Then
Call swap(a4, a8)
End If
If a4 < a9 Then
Call swap(a4, a9)
End If
If a4 < a10 Then
Call swap(a4, a10)
End If
If a4 < a11 Then
Call swap(a4, a11)
End If
If a4 < a12 Then
Call swap(a4, a12)
End If
If a4 < a13 Then
Call swap(a4, a13)
End If
If a4 < a14 Then
Call swap(a4, a14)
End If
If a4 < a15 Then
Call swap(a4, a15)
End If
If a5 < a6 Then
Call swap(a5, a6)
End If
If a5 < a7 Then
Call swap(a5, a7)
End If
If a5 < a8 Then
Call swap(a5, a8)
End If
If a5 < a9 Then
Call swap(a5, a9)
End If
If a5 < a10 Then
Call swap(a5, a10)
End If
If a5 < a11 Then
Call swap(a5, a11)
End If
If a5 < a12 Then
Call swap(a5, a12)
End If
If a5 < a13 Then
Call swap(a5, a13)
End If
If a5 < a14 Then
Call swap(a5, a14)
End If
If a5 < a15 Then
Call swap(a5, a15)
End If
If a6 < a7 Then
Call swap(a6, a7)
End If
If a6 < a8 Then
Call swap(a6, a8)
End If
If a6 < a9 Then
Call swap(a6, a9)
End If
If a6 < a10 Then
Call swap(a6, a10)
End If
If a6 < a11 Then
Call swap(a6, a12)
End If
If a6 < a13 Then
Call swap(a6, a13)
End If
If a6 < a14 Then
Call swap(a6, a14)
End If
If a6 < a15 Then
Call swap(a6, a15)
End If
If a7 < a8 Then
Call swap(a7, a8)
End If
If a7 < a9 Then
Call swap(a7, a9)
End If
If a7 < a10 Then
Call swap(a7, a10)
End If
If a7 < a11 Then
Call swap(a7, a12)
End If
If a7 < a13 Then
Call swap(a7, a14)
End If
If a7 < a15 Then
Call swap(a7, a15)
End If
If a8 < a9 Then
Call swap(a8, a9)
End If
If a8 < a10 Then
Call swap(a8, a10)
End If
If a8 < a11 Then
Call swap(a8, a11)
End If
If a8 < a12 Then
Call swap(a8, a12)
End If
If a8 < a13 Then
Call swap(a8, a13)
End If
If a8 < a14 Then
Call swap(a8, a14)
End If
If a8 < a15 Then
Call swap(a8, a15)
End If
If a9 < a10 Then
Call swap(a9, a10)
End If
If a9 < a11 Then
Call swap(a9, a11)
End If
If a9 < a12 Then
Call swap(a9, a12)
End If
If a9 < a13 Then
Call swap(a9, a13)
End If
If a9 < a14 Then
Call swap(a9, a14)
End If
If a9 < a15 Then
Call swap(a9, a15)
End If
If a10 < a11 Then
Call swap(a10, a11)
End If
If a10 < a12 Then
Call swap(a10, a12)
End If
If a10 < a13 Then
Call swap(a10, a13)
End If
If a10 < a14 Then
Call swap(a10, a14)
End If
If a10 < a15 Then
Call swap(a10, a15)
End If
If a11 < a12 Then
Call swap(a11, a12)
End If
If a11 < a13 Then
Call swap(a11, a13)
End If
If a11 < a14 Then
Call swap(a11, a14)
End If
If a11 < a15 Then
Call swap(a11, a15)
End If
If a12 < a13 Then
Call swap(a12, a13)
End If
If a12 < a14 Then
Call swap(a12, a15)
End If
If a13 < a14 Then
Call swap(a13, a14)
End If
If a13 < a15 Then
Call swap(a13, a15)
End If
If a14 < a15 Then
Call swap(a14, a15)
End If
Print a1 & "," & a2 & "," & a3 & "," & a4 & "," & a5 & "," & a6 & "," & a7 & "," & a8 & "," & a9 & "," & a10 & "," & a11 & "," & a12 & "," & a13 & "," & a14 & "," & a15
End Sub

 Private Sub swap(x As Integer, y As Integer)
Dim temp As Integer
If x < y Then
temp = x
x = y
y = temp
End If
End Sub
（这里运用了一个函数）