CONSOLA DE VB.NET
Publicado por ALEJANDRO (2 intervenciones) el 27/04/2006 00:57:06
HOLA A TODOS, DE ANTEMANO UN SALUDO, QUISIERA QUE ALGUIEN ME AYUDARA CON EL SIGUIENTE CÓDIGO DE LA CONSOLA. ES MUY SENCILLO PERO A PESAR DE ESO NO ME DA EL RESULTADO ADECUADO.
Module Module1
Sub Main()
'SE DECLARAN LAS VARIABLES
Dim Numero1 As Double
Dim Numero2 As Double
Console.WriteLine("Introduzca el primer número")
Numero1 = Console.ReadLine()
Console.WriteLine("Introduzca el segundo número")
Numero2 = Console.ReadLine()
Console.WriteLine("Escoja una opción: S - Sumar / M - Multiplicar")
If Console.ReadLine = "S" Then
Console.WriteLine("El resultado de la suma es: " & (Numero1 + Numero2))
Console.ReadLine()
ElseIf Console.ReadLine = "M" Then
Console.WriteLine("El resultado de la multiplicacion es: " & (Numero1 * Numero2))
Console.ReadLine()
Else
Console.WriteLine("Opción Incorrecta")
End If
End Sub
End Module
CUANDO LO EJECUTO REALIZA LA SUMATORIA. PERO SI ELIJO LA LETRA M PARA QUE REALICE LA MULTIPLICACION YA NO DA NINGUN RESULTADO Y ME MANDA A LA LINEA DE OPCION INCORRECTA, ¿A QUE SE DEBE? LLEVO UN BUEN RATO INTENTANDO RESOLVERLO PERO NADA.
Module Module1
Sub Main()
'SE DECLARAN LAS VARIABLES
Dim Numero1 As Double
Dim Numero2 As Double
Console.WriteLine("Introduzca el primer número")
Numero1 = Console.ReadLine()
Console.WriteLine("Introduzca el segundo número")
Numero2 = Console.ReadLine()
Console.WriteLine("Escoja una opción: S - Sumar / M - Multiplicar")
If Console.ReadLine = "S" Then
Console.WriteLine("El resultado de la suma es: " & (Numero1 + Numero2))
Console.ReadLine()
ElseIf Console.ReadLine = "M" Then
Console.WriteLine("El resultado de la multiplicacion es: " & (Numero1 * Numero2))
Console.ReadLine()
Else
Console.WriteLine("Opción Incorrecta")
End If
End Sub
End Module
CUANDO LO EJECUTO REALIZA LA SUMATORIA. PERO SI ELIJO LA LETRA M PARA QUE REALICE LA MULTIPLICACION YA NO DA NINGUN RESULTADO Y ME MANDA A LA LINEA DE OPCION INCORRECTA, ¿A QUE SE DEBE? LLEVO UN BUEN RATO INTENTANDO RESOLVERLO PERO NADA.
Valora esta pregunta


0