Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim n1, n2 as integer

        Dim respuesta as integer

        Console.Write("Ingrese un valor: ")

        n1 = Console.ReadLine()

        Console.Write("Ingrese un valor: ")

        n2 = Console.ReadLine()

        respuesta = Suma(n1, n2)

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

        respuesta = Resta(n1, n2)

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

        respuesta = Multiplicación(n1, n2)

        Console.WriteLine("LA RESPUESTA DE LA MULTIPLICACIÓN ES: {0}", respuesta)

        respuesta = División(n1, n2)

        Console.WriteLine("LA RESPUESTA DE LA DIVISIÓN ES: {0}", respuesta)

    End Sub

​

    Function Suma(num1 as integer, num2 as integer)

        Dim r as integer

        r = num1 + num2

        return r

    End Function

​

    Function Resta(num1 as integer, num2 as integer)

        Dim r as integer

        r = num1 - num2

        return r

    End Function

​

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

        Dim r as integer

        r = num1 * num2

        return r

    End Function

​

    Function División(num1 as integer, num2 as integer)

        Dim r as integer

        r = num1 / num2

        return r

    End Function

End Module

​