|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Datas/Números/Strings)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Classificar um array em ordem alfabética
|
![](images/box01dirsup.gif) |
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Sub OrdemAlfa(sArray(), ByVal ini, ByVal fim) Dim i, j, aux For i = ini to fim - 1 For j = i + 1 to fim If StrComp(sArray(i), sArray(j), 1) = 1 then aux = sArray(i) sArray(i) = sArray(j) sArray(j) = aux End if Next Next End Sub
|
|
|
|
![](images/hosted.gif)
|