Skip to main content
etiquetas editadas
Enlace
Diego
  • 5.6k
  • 1
  • 18
  • 38
se eliminaron 56 caracteres en el cuerpo
Origen Enlace
J. Castro
  • 2.5k
  • 8
  • 21
  • 32

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.

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.

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.

Origen Enlace
Cesar Reyna
  • 195
  • 2
  • 2
  • 13

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.