Visual Basic - leer tres numeros

Life is soft - evento anual de software empresarial
   
Vista:

leer tres numeros

Publicado por JORGE (1 intervención) el 13/01/2011 05:12:52
Buenas agradeceria mucho la ayuda que me puedan prestar estoy como novato en la programacion aunque me parece bastante interesante tengo un problema que por mas que le doy no me corre debo tener algun error que no se cual es disculpen y agradeceria mucho su ayuda estoy trabajando con visual Basic 2008

Programa que lea tres numeros y me indique cual es el mayor
esto es lo que yo e echo pero no me funciona ayuda plis


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Val(num1.Text) > Val(num2.Text) And Val(num1.Text) > Val(num3.Text) Then
result.Text = Val(num1.Text)
End If
If Val(num2.Text) > Val(num1.Text) And Val(num2.Text) > Val(num3.Text) Then
result.Text = Val(num2.Text)
End If
If Val(num3.Text) > Val(num1.Text) And Val(num3.Text) > Val(num2.Text) Then
result.Text = Val(num3.Text)
End If

End Sub

hasta aqui me quedo no se que mas hacer para que corraaa
gracias....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Crear MsgBox
- Mensajes por LAN
- Formato UUE

Leer tres numeros

Publicado por Antoni Masana (79 intervenciones) el 13/01/2011 12:08:49
Lo he probaro con Visual Basic 6.0

Cuando dices que no funciona no especificas donde, cuando, como o en que casos NO funciona.

Seria de gran ayuda que especifiques las circustancias y el error si lo hay, porque he tenido que crear una prueba simple y me ha funcionado y mi primer impluso era pasar de ello. pero como esta vez no he pasado aqui tienes mi respuesta.


Esto me funciona para tres números diferentes pero tiene una pega y es en el caso de dos valores iguales, por ejemplo 3,5,5 aqui no funciona o los tres iguales tampoco.

Private Sub Button1_Click()
If Val(Num1.Text) > Val(Num2.Text) And Val(Num1.Text) > Val(Num3.Text) Then
Result.Text = Val(Num1.Text)
End If

If Val(Num2.Text) > Val(Num1.Text) And Val(Num2.Text) > Val(Num3.Text) Then
Result.Text = Val(Num2.Text)
End If

If Val(Num3.Text) > Val(Num1.Text) And Val(Num3.Text) > Val(Num2.Text) Then
Result.Text = Val(Num3.Text)
End If

Pero esto es algo más simple y funciona siempre

Private Sub Button1_Click()
Result.Text = 0
If Val(Result.Text) < Val(Num1.Text) Then Result.Text = Num1.Text
If Val(Result.Text) < Val(Num2.Text) Then Result.Text = Num2.Text
If Val(Result.Text) < Val(Num3.Text) Then Result.Text = Num3.Text
End Sub

Y si en lugar de 3 numeros fuesen 50 seria asi de simple

Private Sub Button1_Click()
Result.Text = 0
for a=1 to 50
If Val(Result.Text) < Val(Num(a).Text) Then Result.Text = Num(a).Text
next
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar