Skip to main content
3 de 3
etiquetas editadas
Diego
  • 5.6k
  • 1
  • 18
  • 38

No funciona Método de insercion Directa | Visual Basic

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.

Cesar Reyna
  • 195
  • 2
  • 2
  • 13