已知数组中有六个数，9，7，10，4，3，8 设计一个数对数组中的数按递增顺序排列，并显示每一轮排序后的结

form上放一个文本框，多行，垂直滚动条；一个按钮。
----------------
代码：
Dim a(1 To 6) As Integer

Private Sub Command1_Click()
Dim i As Integer, j As Integer, p As Integer
Dim min As Integer
a(1) = 9
a(2) = 7
a(3) = 10
a(4) = 4
a(5) = 3
a(6) = 8
max = -1
Text1.Text = "原数组："
Call prt

Text1.Text = Text1.Text + vbCrLf + vbCrLf
'排序
Text1.Text = Text1.Text + "开始排序..." + vbCrLf
For i = 1 To 6
Text1.Text = Text1.Text + "第 " + CStr(i) + " 轮: "
min = a(i)
For j = i + 1 To 6
If min > a(j) Then
min = a(j)
p = j
End If
Next
If min <> a(i) Then
a(p) = a(i)
a(i) = min
End If
Call prt
Next