Imports System

Public Module Module1

    Public Sub Main()

         Dim Numero1 As Integer

       Dim Numero2 As Integer

​

       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: 1 - Sumar / 2 - Restar")

       If (Console.ReadLine = 1) Then

          Console.WriteLine("El resultado de la suma es: " & Numero1 + Numero2)

          Console.ReadLine()

       ElseIf (Console.ReadLine = 2) Then

          Console.WriteLine("El resultado de la resta es: " & Numero1 - Numero2)

          Console.ReadLine()

       Else

          Console.WriteLine("Opción Incorrecta")

       End If

    End Sub

End Module

​

​