用VB6.0对一批随机数进行排序（希尔排序）

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

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

3、编写一个Sub排序过程，具体内容请看图片中的注释（蓝色字为注释内容）

4、回到按钮的事件过程往下编写函数的调用和a(i)输出语句。

5、按F5运行测试。