Public Sub BubbleSort(ByRef lngArray() As Long) Dim iOuter As Long Dim iInner As Long Dim iLBound As Long Dim iUBound As Long Dim iTemp As Long iLBound = LBound(lngArray)iUBound = UBound(lngArray) '冒泡排序 For iOuter = iLBound To iUBound - 1 For iInner = iLBound To iUBound - iOuter - 1 '比较相邻项 If lngArray(iInner) > lngArray(iInner + 1) Then '交换值 iTemp = lngArray(iInner)lngArray(iInner) = lngArray(iInner + 1)lngArray(iInner + 1) = iTemp End If Next iInner Next iOuterEnd Sub
网站建设 IT知识 IT知识教程 使用VBA实现冒泡法排序 
最新文章
热门文章
猜你喜欢
