文档介绍：选择排序的过程：
对比数组中前一个元素跟后一个元素的大小，如果后面的元素比前面的元素小则用一个变量k来记住他的位置，接着第二次比较，前面“后一个元素”现变成了“前一个元素”，继续跟他的“后一个元素”进行比较如果后面的元素比他要小则用变量k记ck()
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, k As Integer ‘k变量代表是找到的最小数
Print "排序以前的数:"
For i = 1 To 10
a(i) = Int(100 * Rnd)
Print a(i);
Next i
Print
For i = 1 To 9
‘For i=1 to 9是因为数组a只包含10个元素，按选择排序的要求，需要将数组前9个元素分别与后面的元素（从i+1起，直到10为止）比较大小
k = i ‘k=i的作用为把a(i)视为最小元素，记录a(i)的数组下标
For j = i + 1 To 10
If a(k) > a(j) Then
k = j ‘k=j的作用为当a(j)比a(k)小时，记录a(j)的数组下标，k=j记录的是每一轮选择排序过程的最小值的数组下标。
End If
Next j
t = a(i): a(i) = a(k): a(k) = t
Next i
Print "排序以后的数:"
For i = 1 To 10
Print a(i);
Next I
Print
End Sub
第10页/共16页
第十页，共17页。
三、，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“升序排列”和“降序排列”，添加两个个标签控件。
第11页/共16页
第十一页，共17页。
在通用声明对话框对数组进行定义，使其成为窗体级变量：
Dim a(1 To 10) As Integer
Dim i, j, min, max As Integer
首先产生10个3位整数的随机数在标签中显示。
双击窗体，在Load事件中写入如下代码：
Private Sub Form_Load()
= ""
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
= & a(i) & " "
Next i
End Sub
第12页/共16页
第十二页，共17页。
双击“升序排列”命令按钮，进入代码编辑窗口，输入如下代码：
Private Sub Command1_Click()
For i = 1 To 9
Min = a(i)
For j = i + 1 To 10
If Min > a(j) Then
Min = a(j)
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
= ""
For i = 1 To 10
= & a(i) & " "
Next i
End Sub
第13页/共16页
第十三页，共17页。
双击“降序排列”命令按钮，进入代码编辑窗口，输入如下代码：
Private Sub Command2_Click()
For i = 1 To 9
Max = a(i)
For j = i + 1 To 10
If Max < a(j) Then
Max = a(j)
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
= ""
For i = 1 To 10
= & a(i) & " "
Next i
End Sub
第14页/共16页
第十四页，共17页。
单击按钮，弹出输入对话框，输入5个数，用选择排序算法对其进行从小到大进行排序
Private Sub Command1_Click()
Dim x(1 To 5) As Integer
Dim n, i, j As Integer
n = 5
For i = 1