Programación General > Visual Basic 6.0 e inferiores

 No Me Lo Ordena El Arreglo

(1/1)

JPVM:

--- Código: Text ---Public Sub ordena()Dim i, j As IntegerDim cant2 As IntegerDim aux As Integercant2 = Val(txtcant.Text)i = 1j = 1Do While i < ((cant2 - 1))    Do While j <= ((cant2 - i))        If num(i - 1) > num(j) Then            aux = num(i - 1)            num(i - 1) = num(j)            num(j) = aux         End If         j = j + 1     Loop     j = i     i = i + 1Loop End Sub 
tengo ese codigo para ordenar un arreglo numerico pero me ordena como los 2 primeros campos y luegos otros no y otros si

fuhrer:
Hola que tal.

Creo que lo que esta mal es la condición de tu segundo ciclo:

--- Código: Text ---Do While j <= ((cant2 - i)) con esto no terminas de comparar todo tu arreglo, deberia ser:

--- Código: Text ---Do While j <= ((cant2 - 1)) ademas creo deberias cambiar esto:

--- Código: Text ---    j = i    i = i + 1 por esto:

--- Código: Text ---     i = i + 1   j = i no es un error esto último, pero es lo correcto.

Espero te haya ayudado.

Hasta luego.

Navegación

[0] Índice de Mensajes