|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Classificar um array em ordem alfabética
|
 |
|
|
|
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
|
|
|
|
|
