|
|
|
|
|
|
|
|
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
|
|
|
|
|
