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
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 & " ,"
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
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分,开心开心。