• Lenguaje

    Visual Basic .Net

  • Descripción

    Compare dos números enteros, si el primero es mayor al segundo se restan, caso contrario, se sumarán.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Module SumaORestaDe2Numeros

    Sub Main()
        Dim a, b, resultado As Double
        Console.Write("Ingresa el valor de a: ")
        a = Double.Parse(Console.ReadLine())
        Console.Write("Ingresa el valor de b: ")
        b = Double.Parse(Console.ReadLine())
        If a>b Then
            resultado=a-b
        Else
            resultado=a+b
        End If
        Console.WriteLine("Valor de resultado: " & resultado)
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module