Bubble Sort na pole čísel

Postup:
'Předpokládá se, že položka numbers je pole číselných hodnot
For i = 1 To UBound(numbers) - 1
    For j = 1 To UBound(numbers) - 1
        If numbers(j) > numbers(j + 1) Then
            temp = numbers(j)
            numbers(j) = numbers(j + 1)
            numbers(j + 1) = temp
        End If
    Next
Next

Zpět

Autor: The Bozena