USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página