作业二

Private Sub Command1_Click()
Cls
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 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