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

问题描述:

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

Option ExplicitPrivate 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);NextPrintFor i = 0 To 8 t = i For m = i + 1 ...