[VBA函数]：给数组内数从大到小排序

fjw_ok

给数组内数从大到小排序

2. 
   
3. Sub BubbleSort(List() As Double)
   
4. '   Sorts an array using bubble sort algorithm
   
5. 
   
6.     Dim First As Double, Last As Double
   
7.     Dim i As Integer, j As Integer
   
8.     Dim Temp As Double
   
9.    
   
10.     First = LBound(List)
    
11.     Last = UBound(List)
    
12.     For i = First To Last - 1
    
13.         For j = i + 1 To Last
    
14.             If List(i) > List(j) Then
    
15.                 Temp = List(j)
    
16.                 List(j) = List(i)
    
17.                 List(i) = Temp
    
18.             End If
    
19.         Next j
    
20.     Next i
    
21. End Sub
    

<br /> Sub BubbleSort(List() As Double)<br /> '   Sorts an array using bubble sort algorithm<br /> <br />     Dim First As Double, Last As Double<br />     Dim i As Integer, j As Integer<br />     Dim Temp As Double<br />     <br />     First = LBound(List)<br />     Last = UBound(List)<br />     For i = First To Last - 1<br />         For j = i + 1 To Last<br />             If List(i) > List(j) Then<br />                 Temp = List(j)<br />                 List(j) = List(i)<br />                 List(i) = Temp<br />             End If<br />         Next j<br />     Next i<br /> End Sub<br />