Imports System

Public Module Module1

Public Sub Main()

        Dim n1, n2 as integer

        Dim respuesta as double

        Console.Write("Ingrese un valor: ")

        n1 = Console.ReadLine()

        Console.Write("Ingrese un valor: ")

        n2 = Console.ReadLine()

        respuesta = Suma(n1,n2)

        Console.WriteLine("LA RESPUESTA ES: {0}", respuesta)

        respuesta=Resta(n1,n2)

        Console.WriteLine("LA RESPUESTA ES: {0}", respuesta)

        respuesta = Multiplicación(n1,n2)

        Console.WriteLine("LA RESPUESTA ES: {0}", respuesta)

        respuesta= División(n1,n2)

        Console.WriteLine("LA RESPUESTA ES: {0}", respuesta)

​

    End Sub

    Function Suma(num1 as integer, num2 as double)

        Dim r as integer 

        r = num1 + num2

        return r

    End Function

    function Resta(num1 as integer, num2 as double)

        Dim r as integer 

        r = num1 - num2

        return r

    End function

    Function Multiplicación(num1 as integer, num2 as double)

        Dim r as integer 

        r = num1 * num2

        return r

    End function

    function División(num1 as integer, num2 as double)

        Dim r as integer 

        r = num1 / num2

        return r

    End function

End Module

​