Private Sub cmdSort_Click()
Cls Me.Font.Size = 24 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) f = Int(Rnd * 1000) g = 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, g) End If If j < k Then Call swap(g, 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 & "," & f & "," & g & "," & h & "," & i & "," & j & "," & 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 |
十五个数的排序
最新推荐文章于 2023-12-26 21:29:40 发布