与视频中不同----“选择排序”也可以是自上而下的顺序

jbljypx

VBA8025集VBA数组之VBA排序算法(上)中，“选择排序”也可以是自上而下的顺序：

1. Sub 选择排序2() '由jbl增补的程序：从A1单元格开始。
   
2.   Dim arr, temp, x, y, t, iMin
   
3.   t = Timer
   
4.   arr = Range("a1:a10")
   
5.   For x = 1 To UBound(arr) - 1
   
6.      iMin = x '假设最小值的索引号（此处等于单元格行号）
   
7.      For y = x + 1 To 10
   
8.           If arr(y, 1) < arr(iMin, 1) Then iMin = y
   
9.      Next y
   
10.      temp = arr(iMin, 1)
    
11.      arr(iMin, 1) = arr(x, 1)
    
12.      arr(x, 1) = temp
    
13.   Next x
    
14.   
    
15.   Range("c1").Resize(UBound(arr)) = ""
    
16.   Range("c1").Resize(UBound(arr)) = arr
    
17.   MsgBox "排序秒数为" & Timer - t
    
18. End Sub

复制代码