metodo de burbuja

Método de Burbuja - Visual Basic
Public Class Form1    Private Sub btnAdd_Click(sender As Object, e As  EventArgs) Handles btnAdd.Click         ListBox1.Items.Add(txtNumero.Text)       txtNumero.Clear()        txtNumero.Focus()    End Sub    Private Sub btnOrdenar_Click(sender As Object, e As EventArgs) Handles btnOrdenar.Click        Dim Auxiliar As Integer        For i =0 To ListBox1.Items.Count - 1            For j = 0 To ListBox1.Items.Count - 2                If (ListBox1.Items.Item(j) > ListBox1.Items.Item(i)) Then                    Auxiliar = ListBox1.Items.Item(j)                   ListBox1.Items.Item(j) = ListBox1.Items.Item(i)                    ListBox1.Items.Item(i) = Auxiliar                End If            Next        Next    End SubEnd Class

ORDENACIÓNPOR EL MÉTODO DE LA BURBUJA: Consiste en acomodar el vector moviendo el mayor hasta la última casilla comenzando desde la casilla cero del vector hasta haber acomodado el número más grande en laúltima posición, una vez acomodado el más grande, prosigue a encontrar y acomodar el siguiente más grande comparando de nuevo los números desde el inicio del vector, y así sigue hasta ordenar todo loselementos el arreglo. Este algoritmo es muy deficiente ya que al ir comparando las casillas para buscar el siguiente más grande, éste vuelve a comparar las ya ordenadas. A pesar de ser el algoritmo deordenamiento más deficiente que hay, éste es el más usado en todos los lenguajes de programación.
Entonces Dado un vector a1, a2, a3, ... an
1) Comparar a1 con a2 e intercambiarlos si a1>a2(o a12)
2) Seguir hasta que todo se haya comparado an-1 con an
3) Repetir el proceso anterior n-1 veces
Algoritmo:                                               Complejidad
    for(i=0; i <n-1; i++){                            T(n2)
           for(j=0; j < n-1; j++){                    T(n)
                if(vec[j] > vec[j+1]){               T(1)
                    ...