vb6.0用选择法对10个整数排列

做过的。
建个按钮

Private Sub command1_click()
Dim a(1 To 10) As Long

For i = 1 To 10
a(i) = InputBox("请输入数值") '接受输入10个整数，放入数组a(1 to 10)中
Next

For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then 'a(i)与其他元素依次进行比较 如果比某元素大则交换
'这样内层循环进行之后 a(i)中放的是a(i)-a(10)中最小的数
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i

For i = 1 To 10
Print a(i) '输出排完序的数
Next

End Sub