No se si me haga entender un ejercicio en donde se digiten 3 numeros y me los ordene de menor a mayor y de mayor a menor en 2 text diferentes me ayudan?
Prueba este:
Private Sub Form_Click()
Dim x, y, z
x = InputBox("")
y = InputBox("")
z = InputBox("")
If x > y Then
If x > z Then
If y > z Then
Print x, y, z
Else
Print x, z, y
End If
Else
If z > y Then Print z, x, y
End If
Else
If y > z Then
If z > x Then
Print y, z, x
Else
Print y, x, z
End If
Else
Print z, y, x
End If
End If
End Sub
Tesis ese codigo es penoso colega. como puedes ordenar 3 numeros a base de if...
Haz 2 bucles anidados con una variable auxiliar: Los 3 numeros los metes dentro del array.
Si array<array[i+1]
aux=array
array=array[i+1]
array[i+1]=aux
Eso lo metes dentro de los 2 bucles y te lo ordenara de mayo a menor
Ordenamiento de burbuja
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja
Cita de: Crack_X en 22 Junio 2006, 01:03 AM
Ordenamiento de burbuja
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja
Usar burbuja para ordenar tres numeros es como matar mosquitos a cañonazos.
primro aprendes a ordenar 3 o mil numeros.
y segundo matarse a poner if else if else todo el rato si q es una tonteria.
Puedes hacer una funcion q la vas llamando varias veces si pero si no sabe de funciones pues no le puedes resolver la cosa asi. y un bucle es de lo mas basico.
Pense que lo entenderia mejor asi :P
Tesis seguramente si pero y cuando tenga q ordenar 100 xdd
Entonces el mas apropiado seria el Ordenamiento burbuja.
Un saludo.