15个数据的排序

版权声明：本文为博主原创文章，遵循 CC 4.0 by-sa 版权协议，转载请附上原文出处链接和本声明。 本文链接：https://blog.csdn.net/qq_34327546/article/details/51028237                 Private Sub Command1_Click()
Cls
Me.Font.Size = 10
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim o As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
c = Int(Rnd * 1000)
d = Int(Rnd * 1000)
e = Int(Rnd * 1000)
f = Int(Rnd * 1000)
g = Int(Rnd * 1000)
h = Int(Rnd * 1000)
i = Int(Rnd * 1000)
j = Int(Rnd * 1000)
k = Int(Rnd * 1000)
l = Int(Rnd * 1000)
m = Int(Rnd * 1000)
n = Int(Rnd * 1000)
o = 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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
If j < k Then
swap = j
j = k
k = swap
End If
If k < l Then
swap = k
k = l
l = swap
End If
If l < m Then
swap = l
l = m
m = swap
End If
If m < n Then
swap = m
m = n
n = swap
End If
If n < o Then
swap = n
n = o
o = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
If j < k Then
swap = j
j = k
k = swap
End If
If k < l Then
swap = k
k = l
l = swap
End If
If l < m Then
swap = l
l = m
m = swap
End If
If m < n Then
swap = m
m = n
n = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
If j < k Then
swap = j
j = k
k = swap
End If
If k < l Then
swap = k
k = l
l = swap
End If
If l < m Then
swap = l
l = m
m = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
If j < k Then
swap = j
j = k
k = swap
End If
If k < l Then
swap = k
k = l
l = swap
End If
If l < m Then
swap = l
l = m
m = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
If j < k Then
swap = j
j = k
k = swap
End If
If k < l Then
swap = k
k = l
l = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
If j < k Then
swap = j
j = k
k = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
If i < j Then
swap = i
i = j
j = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
g = h
h = swap
End If
If h < i Then
swap = h
h = i
i = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
If g < h Then
swap = g
3ff7 g = h
h = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
If f < g Then
swap = f
f = g
g = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
If e < f Then
swap = e
e = f
f = swap
End If
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 d < e Then
swap = d
d = e
e = swap
End If
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 < b Then
swap = a
a = b
b = swap
End If
If b < c Then
swap = b
b = c
c = swap
End If
If a < b Then
swap = a
a = b
b = swap
End If

Print a & " ," & b & " , " & c & " ," & d & " ," & e & " ," & f & " ," & g & " ," & h & " ," & i & " ," & j & " ," & k & " , " & l & " ," & m & " ," & n & " ," & o & " ,"

End Sub

这就是我做15个数字的排序，刚开始我先做5个数字的排序，然后找出规律后才做15个数字的排序，成功做出来了。还加了5分，开心开心。