0040-Ordenando vetores

Seguem abaixo dois códigos que realizam a ordenação de vetores:

Function OrdenarCrescente(Vetor)
Dim k As Long
Dim i As Long
Dim Aux As Variant

For k = LBound(Vetor) To UBound(Vetor)
    For i = LBound(Vetor) To UBound(Vetor) - 1
        If Vetor(i) > Vetor(i + 1) Then
        Aux = Vetor(i)
        Vetor(i) = Vetor(i + 1)
        Vetor(i + 1) = Aux
        End If
    Next i
Next k
End Function
Function OrdenarDecrescente(Vetor)
Dim k As Long
Dim i As Long
Dim Aux As Variant

For k = LBound(Vetor) To UBound(Vetor)
    For i = LBound(Vetor) To UBound(Vetor) - 1
        If Vetor(i) < Vetor(i + 1) Then
        Aux = Vetor(i)
        Vetor(i) = Vetor(i + 1)
        Vetor(i + 1) = Aux
        End If
    Next i
Next k
End Function
Anúncios

In Excel We Trust

Marcado com: ,
Publicado em Nível: Avançado
2 comentários em “0040-Ordenando vetores
  1. Jose Arnaldo disse:

    Caro Adilson,

    Teria como dispor exemplos com ordenação de vetores?

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: