Public Sub SelectionSort(ByRef lngArray() As Long)Dim iOuter As LongDim iInner As LongDim iLBound As LongDim iUBound As LongDim iTemp As LongDim iMax As LongiLBound = LBound(lngArray)iUBound = UBound(lngArray)'选择排序For iOuter = iUBound To iLBound + 1 Step -1iMax = 0'得到最大值得索引For iInner = iLBound To iOuterIf lngArray(iInner) > lngArray(iMax) Then iMax = iInnerNext iInner'值交换iTemp = lngArray(iMax)lngArray(iMax) = lngArray(iOuter)lngArray(iOuter) = iTempNext iOuterEnd Sub