Imports System

Public Module Module1

    Public Sub Main()

        Dim numero1 as Decimal

        Dim numero2 as Decimal

        Dim numero3 as Decimal

        Console.WriteLine("Ingrese el primer número")

        numero1 = Console.ReadLine()

        Console.WriteLine("Ingrese el segundo número")

        numero2 = Console.ReadLine()

        Console.WriteLine("Ingrese el tercer número")

        numero3 = Console.ReadLine()

​

        Console.WriteLine("Suma " & numero1+numero2)

        Console.WriteLine("Resta " & numero1-numero2)

        Console.WriteLine("Multiplicación " & numero1*numero2)

        Console.WriteLine("División " & numero1/numero2)

        Console.WriteLine("Suma " & numero2+numero3)

        Console.WriteLine("Suma " & numero1+numero3)

        Console.WriteLine("Resta " & numero2-numero3)

        Console.WriteLine("Resta " & numero1-numero3)

        Console.WriteLine("Multiplicación " & numero2*numero3)

        Console.WriteLine("Multiplicación " & numero1*numero3)

        Console.WriteLine("División " & numero2/numero3)

        Console.WriteLine("División " & numero1/numero3)

​

    End Sub

End Module