《VB写的快速排序算法.docx》由会员分享，可在线阅读，更多相关《VB写的快速排序算法.docx（3页珍藏版）》请在三一办公上搜索。
1、VB写的快速排序算法VB写的快速排序算法 快速排序算法(递归算法) Public Sub QuickSort(ByRef aStrSort As String, ByVal lngleft As Long, ByVal lngright As Long) Dim i As Long Dim j As Long Dim temp As String i = lngleft j = lngright temp = aStrSort(i) NextStep: Do Until i = j While (aStrSort(j) temp And j i) j = j - 1 Wend If j i T
2、hen aStrSort(i) = aStrSort(j) aStrSort(j) = temp i = i + 1 End If While (aStrSort(i) i) i = i + 1 Wend If j i Then aStrSort(j) = aStrSort(i) aStrSort(i) = temp j = j - 1 End If Loop If lngleft i + 1 Then QuickSort aStrSort, i + 1, lngright End Sub 二分法查找算法 Public Function BinSearch(ByRef strElement As String, ByVal strKey As String) As Long Dim lngLow As Long Dim lngHigh As Long Dim lngMiddle As Long lngLow = 0 lngHigh = UBound(strElement) While (lngLow strKey Then lngHigh = lngMiddle - 1 Else lngLow = lngMiddle + 1 End If End If Wend BinSearch = -1 查找失败 End Function
