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
网站建设 IT知识 IT知识教程 VBA中实现选择排序算法 
最新文章
热门文章
猜你喜欢
