Método de la burbuja modificada

Así funciona el método burbuja
dim i,j,temp,TAM as integer
dim lista(20) as integer
'TAM es el tamaño del arreglo
for (i=1; i<TAM; i++)
for j=0 ; j<TAM - 1; j++)
if (lista[j]>lista[j+1])
temp = lista[j];
lista[j]=lista[j+1];
lista[j+1] = temp;
end if
next j
next i
Puedes sacar mas informacion en:
http://www.monografias.com/trabajos/algordenam/algordenam.shtml
http://html.rincondelvago.com/complejidad-y-tiempo.html
http://www.itlp.edu.mx/publica/tutoriales/estructdatos2/tema%202_3.htm