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

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Ordenar Vetor [Crescente/Decrescente]
Postada em 16/9/2003 por Gustavo            
Const Max = 5
Dim Vetor(Max) As Integer, X As Integer, Y As Integer, Aux As Integer

Private Sub Command1_Click() ' Ordenar em Ordem Crescente
    For X = 0 To Max - 1 Step 1
        For Y = X + 1 To Max Step 1
            If Vetor(X) > Vetor(Y) Then
                Aux = Vetor(Y)
                Vetor(Y) = Vetor(X)
                Vetor(X) = Aux
            End If
        Next Y
    Next X
End Sub

Private Sub Command2_Click() ' Ordenar em Ordem Decrescente
    For X = 0 To Max - 1 Step 1
        For Y = X + 1 To Max Step 1
            If Vetor(X) < Vetor(Y) Then
                Aux = Vetor(Y)
                Vetor(Y) = Vetor(X)
                Vetor(X) = Aux
            End If
        Next Y
    Next X
End Sub

By G. Bitten
 


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