ORDENAR VETOR ALFABETICO

USUARIO.EXCLUIDOS 01/06/2004 01:13:47
#27570
Bem galera e o seguinte, tenho que ordenar um vetor que possui strings por exemplo
vetor1(1)="brasil"
vetor1(2)="bahia"
vetor1(3)="maranhão"

como posso criar um codigo que coloque o vetor em ordem alfabética?
USUARIO.EXCLUIDOS 01/06/2004 07:16:24
#27576 Resposta escolhida
Tente isso:

For counter1 = UBound(vetor1) To 2 Step -1
    If ordered = True Then Exit For
    ordered = True
    For counter2 = 0 To counter1 - 1
        If vetor1(counter2) > vetor1(counter2 + 1) Then
            vetor1(0) = vetor1(counter2)
            vetor1(counter2) = vetor1(counter2 + 1)
            vetor1(counter2 + 1) = vetor1(0)
            ordered = False
        End If
    Next counter2
Next counter1

Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar