ordenar varios números ascendentemente

[lokoman]

Hola!!
Usando el metodo de la burbuja, mira el codigo:

Código vb:

Private Sub Command1_Click()
    Dim Numeros(10) As Integer, I As Integer, J As Integer
    Dim Aux As Integer
    Dim strMsg As String
    
    Numeros(0) = 23
    Numeros(1) = 4
    Numeros(2) = 27
    Numeros(3) = 30
    Numeros(4) = 1
    Numeros(5) = 8
    Numeros(6) = 13
    Numeros(7) = 26
    Numeros(8) = 32
    Numeros(9) = 2
 
    For I = 0 To 10
        For J = 0 To 10
            If Numeros(I) < Numeros(J) Then
                Aux = Numeros(J)
                Numeros(J) = Numeros(I)
                Numeros(I) = Aux
            End If
        Next J
    Next I
    
    For I = 0 To 10
        strMsg = strMsg & Numeros(I) & ", "
    Next I
    
    MsgBox strMsg
End Sub
 

Nos cuentas!!