15位隨機數由大到小依次排序程式
阿新 • • 發佈:2019-01-26
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
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