VB之15个数字的排序

15个数字的排序

step1.打开VB程序，在窗体上新建commandbutton图标，在右侧按钮属性栏中，将“caption”改为“排序”，将“name”改为“cmdSort”

step2.双击按钮图标，编写程序，程序如下：

Private Sub cmdSort_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

 

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 AsInteger)

Dim temp As Integer

If x < y Then

temp = x

x = y

y = temp

End If

 

End Sub

step3.运行程序，得到结果如下：

运行前：

运行后：

课堂小结：这堂VB课，我学会了如何自己编写程序来排列15个任意数字的顺序，编写程序的过程是一段较为繁琐需要耐心的过程，中间的call swap部分需要有选择性的不断粘贴复制。程序结果的正确运行，让我体会到了VB的趣味性，希望在日后对这门课的学习中，我可以利用更加高级的程序使得复杂的内容简单化。