15位随机数由大到小依次排序程序

2016-03-25 18:37:14

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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = 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

b = swap

End If

If a < b Then

swap = a

a = b

b = swap

End If Print a & "，" & b

End Sub

If a < b Then

swap = a

a = b

b = swap

End If

If b < c Then

swap = b

b = c

b = 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

b = 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