9. Anexos.
9. Anexos.
9. Anexos.
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
A(Lb) = A(j)<br />
A(j) = pivot<br />
Partition = j<br />
End Function<br />
Public Sub QuickSort(ByRef A() As Reg_Arcos, ByVal Lb As Long, ByVal Ub As Long)<br />
Dim M As Long<br />
Do While Lb < Ub<br />
M = Partition(A, Lb, Ub)<br />
If M - Lb