Algoritmo de clasificación del diccionario Vba

Proporciona un método general de clasificación de burbujas de matriz.

SubABC()

arr = Array("d","g","v","p","a")

Para i = 0 al límite inferior (arr) - 1

Para j = i + 1 al límite inferior (arr)

si arr(I)》arr(j) entonces

Temperatura = array(j)

Array(j) = array(I)

arr(I) = Temp

Terminará si ...

Entonces

Entonces

[a1]. resize(1,UBound(arr)+1) = arr

Conector final