Office中国论坛/Access中国论坛

标题: [源码]Access VBA对一维数组快速排序的函数(也适合Excel VBA) [打印本页]

作者: admin 时间: 2015-9-9 12:21
标题: [源码]Access VBA对一维数组快速排序的函数(也适合Excel VBA)
Arr为需要进行排序的一维数组变量
Function QuickSort(Arr)
Dim i, j
Dim bound, t
bound = UBound(Arr)

For i = 0 To bound - 1
      For j = i + 1 To bound
         If Arr(i) > Arr(j) Then
            t = Arr(i)
            Arr(i) = Arr(j)
            Arr(j) = t
         End If
      Next
Next
QuickSort = Arr
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)