Quick Sort البته بزبان Visual Basic
این کد Quick Sort بزبان VB است که از روش بازگشتی استفاده می کند:
کد:
Private Sub Quick_Sort(ByRef s(), ByVal low As Integer, ByVal high As Integer)
Dim pivotpoint As Integer
If high > low Then
Call PartitionArray(s(), low, high, pivotpoint)
Call Quick_Sort(s(), low, pivotpoint - 1)
Call Quick_Sort(s(), pivotpoint + 1, high)
End If
End Sub
Sub PartitionArray(ByRef s(), ByVal low As Integer, ByVal high As Integer, ByRef pivotpoint As Integer)
Dim i, j As Integer
Dim pivotitem, tmp As Variant
pivotitem = s(low)
j = low
For i = low + 1 To high
If s(i) < pivotitem Then
j = j + 1
tmp = s(i)
s(i) = s(j)
s(j) = tmp
End If
Next i
pivotpoint = j
tmp = s(low)
s(low) = s(pivotpoint)
s(pivotpoint) = tmp
End Sub
