选择法排序的写法？使用vb代码

Private Sub Command1_Click()
Dim a(10) As Integer
Dim b As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 10
    a(i) = Int(Rnd * 90 + 10)
    Print a(i);
Next i
Print

For i = 1 To 9
    k = i
    For j = k + 1 To 10
        If a(j) < a(k) Then k = j
    Next j
    If a(i) > a(k) Then
        b = a(i)
        a(i) = a(k)
        a(k) = b
    End If
Next i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub