VB代码优化与排序算法实现-优快云博客

本文链接：https://blog.youkuaiyun.com/qq_34327697/article/details/51052661

哎呀，放清明节假！回家写VB

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 g 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

printa&","&b&","&c&","&d&","&e

printf&","&g&","&h&","&i&","&j

printk&","&l&","&m&","&n&","&o

End Sub

Private Sub swap(X As Integer,Y As Integer)

Dim temp As Integer

IfX<Y Then

temp=X

X=Y

Y=temp

End If

End Sub

Private Sub Form_Load()

15个数排序