Ordenacin por intercambio

Este mtodo de ordenacin, tambin denominado de burbuja, consiste en comparar los elementos contiguos en el array, y si no estn en orden, intercambiar sus valores. El Cdigo fuente 209 muestra un ejemplo.

Public Sub Main()

Dim Numeros() As Integer = {20, 4, 12, 25, 6}

Dim Indice As Integer

Dim IndiceBis As Integer

Dim Intercambio As Integer

For Indice = 0 To UBound(Numeros) - 1

For IndiceBis = 0 To UBound(Numeros) - 1

' si valor del elemento inferior es mayor que

' el elemento superior, intercambiar utilizando

' una variable puente

If Numeros(IndiceBis) > Numeros(IndiceBis + 1) Then

Intercambio = Numeros(IndiceBis)

Numeros(IndiceBis) = Numeros(IndiceBis + 1)

Numeros(IndiceBis + 1) = Intercambio

End If

Next

Next

End Sub

Cdigo fuente 209