Ver Mensaje Individual
  #3 (permalink)  
Antiguo 25/10/2010, 04:04
sapales
 
Fecha de Ingreso: abril-2009
Mensajes: 121
Antigüedad: 15 años
Puntos: 4
Respuesta: NO sale como deberia

Hola:

Voy a describirte varios fallos:

1.- Si es Visual basic (que creo que sí) el "AND" es "AND" no &. El caracter ampersand "&" se usa para concatenar. Luego el IF sería:

If n1 <= n2 And n2 <= n3 Then

2.- Has concatenado varios IF pero lo has hecho mal. Reduciendo a tres IF:

If n1 <= n2 And n2 <= n3 Then
...
If n1 <= n3 And n3 <= n2 Then
...
If n2 <= n1 And n1 <= n3 Then
...
End If
End If
End If

Si en el primero no entra, no entra en ningún otro. Debería ser:

If n1 <= n2 And n2 <= n3 Then
...
ElseIf n1 <= n3 And n3 <= n2 Then
...
ElseIf n2 <= n1 And n1 <= n3 Then
...
End If

En definitiva, este sería el código de los IF:

If n1 <= n2 And n2 <= n3 Then
m = n1 & " " & n2 & " " & n3
txtResultado.Text = m
ElseIf n1 <= n3 And n3 <= n2 Then
m = n1 & " " & n3 & " " & n2
txtResultado.Text = m
ElseIf n2 <= n1 And n1 <= n3 Then
m = n2 & " " & n1 & " " & n3
txtResultado.Text = m
ElseIf n2 <= n3 And n3 <= n1 Then
m = n2 & " " & n3 & " " & n1
txtResultado.Text = m
ElseIf n3 <= n1 And n1 <= n2 Then
m = n3 & " " & n1 & " " & n2
txtResultado.Text = m
ElseIf n3 <= n2 And n2 < n1 Then
m = n3 & " " & n2 & " " & n1
txtResultado.Text = m
End If