Excel Exercício em VBA (Vetores)

[Pedrockz]

3) Crie um vetor que receba 5 números e ordene-os em ordem crescente.

 

Me deem dicas para conseguir finalizar esse exercício, objetivo do exercício é trabalhar em cima de vetores, sem funções avançadas, como já vi (bubble sort).

Sub exercicio3() 

    Dim num(4) As Single 'numeros inseridos
    Dim i As Integer 'indice
    
    For i = 0 To 4 'repetição para entrar com um numero
        num(i) = InputBox("DIGITE UM NUMERO: ")
    Next

End Sub

 

[Victor Comparini]

Olá

Veja isso isso ajuda:

 

Sub exercicio3()
    '3) Crie um vetor que receba 5 números e ordene-os em ordem crescente.
    Dim num(4) As Single 'numeros inseridos
    Dim i, j, k As Integer 'indice
    Dim aux As Integer 'variavel de ordens e auxiliar
    
    For i = 0 To 4 'repetição para entrar com um numero
        num(i) = InputBox("DIGITE UM NUMERO: ")
    Next
    For j = 0 To 3 'todos os valores do vetor
        For k = 0 To 3 'comparação 2 a 2
            If num(k) > num(k + 1) Then 'empurrar o maior número para o final
                aux = num(k) 'trocar variaveis de lugar
                num(k) = num(k + 1)
                num(k + 1) = aux
            End If
        Next
    Next
    MsgBox num(0) & num(1) & num(2) & num(3) & num(4)

End Sub

 

[Pedrockz]

Essa comparação de 2 em 2, não compreendi direito!