教育技术余晓红

Private Sub 排序了_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

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
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If i < j Then
Call swap(i, j)
End If
    
If j < k Then
Call swap(j, k)
End If
    
If k < l Then
Call swap(k, l)
End If
    
If l < m Then
Call swap(l, m)
End If
    
If m < n Then
Call swap(m, n)
End If
    
If n < o Then
Call swap(n, o)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If i < j Then
Call swap(i, j)
End If
    
If j < k Then
Call swap(j, k)
End If
    
If k < l Then
Call swap(k, l)
End If
    
If l < m Then
Call swap(l, m)
End If
    
If m < n Then
Call swap(m, n)
End If
    
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If i < j Then
Call swap(i, j)
End If
    
If j < k Then
Call swap(j, k)
End If
    
If k < l Then
Call swap(k, l)
End If
    
If l < m Then
Call swap(l, m)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If i < j Then
Call swap(i, j)
End If
    
If j < k Then
Call swap(j, k)
End If
    
If k < l Then
Call swap(k, l)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If i < j Then
Call swap(i, j)
End If
    
If j < k Then
Call swap(j, k)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If i < j Then
Call swap(i, j)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If h < i Then
Call swap(h, i)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
End If
    
If g < h Then
Call swap(g, h)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
    End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If f < g Then
Call swap(f, g)
    End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If e < f Then
Call swap(e, f)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
    
If d < e Then
Call swap(d, e)
End If
    
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If c < d Then
Call swap(c, d)
End If
   
If a < b Then
Call swap(a, b)
End If
    
If b < c Then
Call swap(b, c)
End If
    
If a < b Then
Call swap(a, b)
End If
    
Print a & " ，" & b & " ，" & c & " ，" & d & " ，" & e
Print f & " ，" & g & " ，" & h & " ，" & i & " ，" & j
Print k & " ，" & l & " ，" & m & " ，" & n & " ，" & o
    
End Sub

Private Sub swap(x As Integer, y As Integer)
    Dim temp As Integer
    If x < y Then
        temp = x
        x = y
        y = temp
    End If

End Sub