VB对数字字符数组的快速排序.查找(转).docVIP

VB对数字字符数组的快速排序.查找(转） 数值与数组操作 Option Explicit 数值快速排序(从小到大) 函数:NumSortAZ 参数:Myarray Double数组,L 数组的左边界,R 数组右边界. 返回值:无 例子: Public Sub NumSortAZ(ByRef Myarray, l As Long, R As Long) Dim I As Long, J As Long, A As Long Dim TmpX As Variant, TmpA As Variant I = l: J = R: TmpX = Myarray((l + R) / 2) While (I lt;= J) While (Myarray(I) lt; TmpX And I lt; R) I = I + 1 Wend While (TmpX lt; Myarray(J) And J gt; l) J = J - 1 Wend If (I lt;= J) Then TmpA = Myarray(I) Myarray(I) = Myarray(J) Myarray(J) = TmpA I = I + 1: J = J - 1 End If Wend If (l lt; J) Then Call NumSortAZ(Myarray, l, J) If (I lt; R) Then Call NumSortAZ(Myarray, I, R) End Sub 数值快速排序(从大到小) 函数:NumSortZA 参数:Myarray Double数组,L 数组的左边界,R 数组右边界. 返回值:无 例子: Public Sub NumSortZA(ByRef Myarray, l As Long, R As Long) Dim I As Long, J As Long, A As Long Dim LT As Long, RT As Long Dim TmpX As Variant, TmpA As Variant I = l: J = R: TmpX = Myarray((l + R) / 2) While (I lt;= J) While (Myarray(I) gt; TmpX And I lt; R) I = I + 1 Wend While (TmpX gt; Myarray(J) And J gt; l) J = J - 1 Wend If (I lt;= J) Then TmpA = Myarray(I) Myarray(I) = Myarray(J) Myarray(J) = TmpA I = I + 1: J = J - 1 End If Wend If (l lt; J) Then Call NumSortZA(Myarray, l, J) If (I lt; R) Then Call NumSortZA(Myarray, I, R) End Sub 字符串快速排序(从大到小) 函数:StrSortZA 参数:sArr String数组,L 数组的左边界,R 数组右边界. 返回值:无 例子: Public Sub StrSortZA(ByRef sArr() As String, First As Long, Last As Long) Dim vSplit As String, vT As String Dim I As Long, J As Long, iRand As Long If First lt; Last Then If Last - First = 1 Then If sArr(First) lt; sArr(Last) Then vT = sArr(First): sArr(First) = sArr(Last): sArr(Last) = vT