Ordenação de arrays (BubbleSort)

Para ordenar uma matriz, use a função abaixo.

Function BubbleSort( matriz )
dim i, j, aux
For i = 0 To UBound(matriz)
    For j = 0 To UBound(matriz)
        If( matriz(i) < matriz(j) ) Then
            aux = matriz(j)
            matriz(j) = matriz(i)
            matriz(i) = aux
        End If
    Next
Next
BubbleSort = matriz
End Function

Este código é destinado para organizar "matrizes pequenas, onde os itens já estejam proximamente ordenados" e não é recomendada para matrizes muito grandes. Nestas, você pode usar o algoritmo de QuickSort, encontrado em http://www.4guysfromrolla.com/webtech/012799-2.shtml

Agradecimentos à Wilker Bezerra Silva pelos apontamentos e correções.

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...