打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“升序排列”和“降序排列”，添加两个个标签控件，将名字分别改为Lbl1和Lbl2，将窗体Form1的caption属性改为“选择法数组排序”，将界面设置成下图：

首先产生10个随机数在标签中显示。

双击窗体，在Load事件中写入如下代码：

Randomize

For i = 1 To 10

a(i) = Int(Rnd * 101 + 100)

Lbl1.Caption = Lbl1.Caption a(i)

Next i

在通用对话框对数组进行定义，使其成为窗体级变量：

Dim a(1 To 10) As Integer

双击“升序排列”命令按钮，进入代码编辑窗口，输入如下代码：

For i = 1 To 9

Min = a(i)

For j = i + 1 To 10

If a(j) Min Then

Min = a(j)

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

Lbl2.Caption =

For i = 1 To 10

Lbl2.Caption = Lbl2.Caption a(i)

Next i

双击“降序排列”命令按钮，进入代码编辑窗口，输入如下代码：

For i = 1 To 9

Max = a(i)

For j = i + 1 To 10

If a(j) Max Then

Max = a(j)

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

Lbl2.Caption =

For i = 1 To 10

Lbl2.Caption = Lbl2.Caption a(i)

Next i

关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数：

单击“升序排列”命令按钮，标签一中的数组按升序排列在标签二中显示，如图：

单击“降序排列”命令按钮，标签一中的数组按降序排列在标签二中显示，如图：

数组排序有很多种方法，具体选用何种方法需要根据具体实例决定。

算法实质是一次寻找最小数、倒数第二、第三、第n-1小数，完成整个数组排序。