15电气齐振昊实验名称：15个数排序

最新推荐文章于 2021-12-19 20:54:56 发布

QZH060001

最新推荐文章于 2021-12-19 20:54:56 发布

阅读量554

点赞数

本文链接：https://blog.csdn.net/QZH060001/article/details/50987999

版权

实验名称：15个数排序

实验步骤

在桌面中双击VB6.0打开程序
在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序”
在窗体中双击command图标，并在弹出的对话框中输入代码

代码如下：

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

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; "," & f & "," & g& "," & h & "," & i & ","& j & "," & k & "," & l &"," & m & "," & n & "," & o

End Sub

Private Subswap(x As Integer, y As Integer)

Dim temp AsInteger

If x < y Then

temp = x

x = y

y = temp

End If
在工具栏中单击“启动”并单击“交换”即可出现效果。

2016 物理与电子信息学院15电气1班齐振昊15050341022

QZH060001

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
15电气齐振昊实验名称：15个数排序

实验名称：15个数排序实验步骤在桌面中双击VB6.0打开程序在工具箱窗口找到command的图标，单击图标并在窗体中适当位置创建并在属性窗口中找到caption并把其后面改为“排序”在窗体中双击command图标，并在弹出的对话框中输入代码代码如下：Dim a As IntegerDim b As Intege
复制链接

扫一扫