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