VB中给三个数排序的具体程序

1、启动VB6.0，新银让建一个标准exe工程。

2、在窗体上吵答绘制一个命令按钮，名称为Command1。

3、双击命令按钮进入代码窗口。

4、编写命令按钮的单击事件。定义一个一维数组A有10个元素（1-10），随机产生一批升搏慧两位数的随机数，有序地装入A（i）中，输出A(i)，排序完成时方便观察比较。

5、编写程序中核心的代码部分。

6、断行，输出。

7、按F5运行测试即可。

Private Sub Command1_Click()

dtys Label1(0), temp

dtys Label1(1), Label1(0)

dtys temp, Label1(1)

End Sub

Sub dtys(a As Object, b As Object)

Dim x%, y%, i%, j%, k%

Const DelayN = 1000

x = a.Left: y = a.Top

For i = 1 To DelayN

j = x + (b.Left - x) / DelayN * i

k = y + (b.Top - y) / DelayN * i

a.Move j, k

a.Move x, y

Next i

b = a

DoEvents

End Sub