0

no funciona este código, se queda trabado cada vez que quieres dar al botón de "ordenar" , los siguientes variables están declaradas como, i, j, Auxiliar, n como de valor entero. El código es el siguiente:

If rbdirecto.Checked = True Then
    n = lstnumeros.Items.Count
    For i = 1 To n
        Auxiliar = lstnumeros.Items(i)
        j = i - 1

        While (j >= 0) And (Auxiliar < lstnumeros.Items(j))
            lstnumeros.Items(j + 1) = lstnumeros.Items(j)
            j = j - 1
        End While
    lstnumeros.Items(j + 1) = Auxiliar
    Next
End If

Sería de mucha ayuda que me digan en donde esta el error del codigo.

1 respuesta 1

1

Encontré dos cosas en tu código: un es que el For debería ir de cero a N-1, ya que no es un vector, sino una lista que comienza de cero. Lo segundo es que el While en lugar de tener un And debería tener un AndAlso, para que en caso de que j sea menor a cero no de error la segunda validación del while. Te paso el código:

If rbdirecto.Checked = True Then
    n = lstnumeros.Items.Count
    For i = 0 To n - 1
        Auxiliar = lstnumeros.Items(i)
        j = i - 1

        While (j >= 0) AndAlso (Auxiliar < lstnumeros.Items(j))
            lstnumeros.Items(j + 1) = lstnumeros.Items(j)
            j = j - 1
        End While
    lstnumeros.Items(j + 1) = Auxiliar
    Next
End If

Espero te sirva. ¡Suerte!

1
  • Muchas gracias compañero, me salvaste el c*lo ! :) Commented el 25 oct. 2018 a las 15:59

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.