[功能]一维数组排序 按拼音排序函数

/db_自贡黄明儒_

1. '[功能]一维数组排序 按拼音排序函数
   
2. Function ArrSort(arr)
   
3. Dim i, j, flag, temp
   
4. flag = True
   
5. Do While flag = True
   
6.    i = i + 1
   
7.    flag = False
   
8.    For j = LBound(arr) To UBound(arr) - i
   
9.      If StrComp(arr(j), arr(j + 1), vbTextCompare) = 1 Then
   
10.       flag = True
    
11.       temp = arr(j)
    
12.       arr(j) = arr(j + 1)
    
13.       arr(j + 1) = temp
    
14.    End If
    
15.    Next
    
16. Loop
    
17. ArrSort = arr
    
18. End Function

'[功能]一维数组排序 按拼音排序函数<br /> Function ArrSort(arr)<br /> Dim i, j, flag, temp<br /> flag = True<br /> Do While flag = True<br />    i = i + 1<br />    flag = False<br />    For j = LBound(arr) To UBound(arr) - i<br />      If StrComp(arr(j), arr(j + 1), vbTextCompare) = 1 Then<br />       flag = True<br />       temp = arr(j)<br />       arr(j) = arr(j + 1)<br />       arr(j + 1) = temp<br />    End If<br />    Next<br /> Loop<br /> ArrSort = arr<br /> End Function

Lisphk

黄总改VBA了？