Changes

Data Sorting in VB6

877 bytes added, 16:39, 29 January 2008
/* countingsort */
The following lines were added (+) and removed (-):
=== selectionsort ===  <nowiki>Sub Selectionsort (List() As Long, min As Integer, _</nowiki>  <nowiki>    max As Integer)</nowiki>  <nowiki>Dim i As Integer</nowiki>  <nowiki>Dim j As Integer</nowiki>  <nowiki>Dim best_value As Long</nowiki>  <nowiki>Dim best_j As Integer</nowiki>  <nowiki></nowiki>  <nowiki>    For i = min To max - 1</nowiki>  <nowiki>        best_value = List(i)</nowiki>  <nowiki>        best_j = i</nowiki>  <nowiki>        For j = i + 1 To max</nowiki>  <nowiki>            If List(j) < best_value Then</nowiki>  <nowiki>                best_value = List(j)</nowiki>  <nowiki>                best_j = j</nowiki>  <nowiki>            End If</nowiki>  <nowiki>        Next j</nowiki>  <nowiki>        List(best_j) = List(i)</nowiki>  <nowiki>        List(i) = best_value</nowiki>  <nowiki>    Next i</nowiki>  <nowiki>End Sub</nowiki>
Bureaucrat, administrator
16,192
edits