Algoritmos - Estructura Condicinal

Ejercicio N° 01

Module Module1

    'Realizar la suma de dos números,Mostar la suma y determinar si el resultado es positivo, negativo o cero.

    Sub Main()

        Console.Title = "Sumar Números"

        Dim Num1, Num2, Res As Double

        Console.Write("Ingrese primer número: ")

        Num1 = Console.ReadLine

        Console.Write("Ingrese segundo número: ")

        Num2 = Console.ReadLine

        Res = Num1 + Num2

        Console.WriteLine()

        Console.WriteLine("********************************************************")

        Console.WriteLine()

        Console.ForegroundColor = ConsoleColor.Cyan

        If (Res >= 1) Then

            Console.WriteLine("La suma es: " & Res)

            Console.WriteLine("El resultado es positivo")

        ElseIf (Res <= -1) Then

            Console.WriteLine("El resultado es negativo")

        Else

            Console.WriteLine("El resultado es cero")

        End If

        Console.ReadKey()

    End Sub

End Module