VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出.先从中选出最小的数与第1个数交换位置;后是除第一个数外,其余9个数中选最小的数与第2个数交换位置,以此类推,选择了9

VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出.先从中选出最小的数与第1个数交换位置;后是除第一个数外,其余9个数中选最小的数与第2个数交换位置,以此类推,选择了9
VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出.
先从中选出最小的数与第1个数交换位置;后是除第一个数外,其余9个数中选最小的数与第2个数交换位置,以此类推,选择了9次后,这个数列已按升序排列.

VB中用选择法将10个整数排序,从小到大排列在另外一个文本框中输出.先从中选出最小的数与第1个数交换位置;后是除第一个数外,其余9个数中选最小的数与第2个数交换位置,以此类推,选择了9
Option Explicit
Private Sub Command1_Click()
Dim A(9) As Integer, i%, m%, t%, AA%
For i = 0 To 9
Randomize
A(i) = Int(Rnd * 90) + 10
Print A(i);
Next
Print
For i = 0 To 8
t = i
For m = i + 1 To 9
If A(m) < A(t) Then t = m
Next m
If t i Then AA = A(i): A(i) = A(t): A(t) = AA
Print A(i);
Next i
Print A(9)
End Sub