
25/10/2010, 04:04
|
| | Fecha de Ingreso: abril-2009
Mensajes: 121
Antigüedad: 15 años, 10 meses 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 |