الگوريتم مرتب سازي quick sort رو مي خواستم ؟

[majidmir]

سلام دوستان
من خودم برنامه رو نوشتم ولي راستش رو بخواهي هيچي ازش نفهميدم اگه كسي الگوريتمش رو داره بنويسه و اين كد رو هم كه مينويسم واسم تحليل كنه
[
QUOTE]Option Base 1
Private Sub Command1_Click()
Randomize
Dim a(10) As Integer
' Get the Array and print it ======
For i = 1 To 10
a(i) = Int(Rnd() * (20 - 1 + 1) + 1)
Print a(i);
Next i
Print
' call the Quick Sort procedure===
Call QuickSort(a(), 1, 10)
' print
For i = 1 To 10
Print a(i);
Next i
Print
' end print
End Sub
Private Sub QuickSort(x() As Integer, left, right)
Dim temp As Integer
Dim i, j As Integer
If left < right Then
i = left
j = right + 1
Pivot = x(i)

Do
Do
i = i + 1
Loop Until x(i) >= Pivot
Do
j = j - 1
Loop Until x(j) <= Pivot
If i < j Then
temp = x(i)
x(i) = x(j)
x(j) = temp
End If
Loop Until i >= j
temp = x(left)
x(left) = x(j)
x(j) = temp
Call QuickSort(x, left, j - 1)
Call QuickSort(x, j + 1, right)

End If

End Sub
[/QUOTE]

[majidmir]

كسي نبود ما رو راهنمايي كنه