Ordenar 3 numeros

[kontaminator]

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?

[ReViJa]

Prueba este:

Código [Seleccionar] Expandir


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

[CA]

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

[Crack_X]

Ordenamiento de burbuja
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja

[Gorky]

Ordenamiento de burbuja
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja

Usar burbuja para ordenar tres numeros es como matar mosquitos a cañonazos.

[CA]

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.

[ReViJa]

Pense que lo entenderia mejor asi 

[CA]

Tesis  seguramente si pero y cuando tenga q ordenar 100 xdd

[ReViJa]

Entonces el mas apropiado seria el Ordenamiento burbuja.

Un saludo.