Utilizaremos el NameSpace System.Math para leer dos datos ingresados por consola, y que retorne la suma de sus cuadrados y su diferencia, usando las funciones SumaCuadrado y RestaCuadrado

Código Fuente

'Importamos el NameSpace System.Math con un AliasName M para hacer referencia_

'a los elementos de Math

Imports M = System.Math

Module Module1

    Public N1 As Double 'Sumando uno

    Public N2 As Double 'Sumando dos

Sub Main()

    Try

        Console.Write("Ingrese sumando uno: ")

        N1 = Console.ReadLine 'Leer sumando uno ingresado

        Console.WriteLine()

        Console.Write("Ingrese sumando dos: ")

        N2 = Console.ReadLine 'Leer sumando dos ingresado

        Console.WriteLine()

        Console.WriteLine("Suma de los cuadrados: ")

        Console.WriteLine(SumaCuadrado(N1, N2)) 'se llama a la función SumaCuadrado con los datos ingresados

        Console.WriteLine()

        Console.WriteLine("Diferencia de los cuadrados: ")

        Console.WriteLine(RestaCuadrado(N1, N2)) 'se llama a la función RestaCuadrado con los datos ingresados

        Console.WriteLine()

        Console.WriteLine("Ejecución Finalizada")

        Console.WriteLine("Presione ENTER pasa salir")

        Console.ReadLine()

    Catch err As Exception

        Console.Write(err.Message)

    End Try

End Sub

Function SumaCuadrado(ByVal NOne As Double, ByVal NTwo As Double) As Double

    Try

        SumaCuadrado = M.Pow(NOne, 2) + M.Pow(NTwo, 2)

        Return SumaCuadrado

    Catch err As Exception

    End Try

End Function

Function RestaCuadrado(ByVal NOne As Double, ByVal NTwo As Double) As Double

    Try

        RestaCuadrado = M.Pow(NOne, 2) - M.Pow(NTwo, 2)

        Return RestaCuadrado

    Catch err As Exception

    End Try

End Function

'En las funciones se utiliza el método Pow que recibe dos argumentos_

'el primero es el número que se va a elevar a una potencia y el segundo es la potencia

'Los bloques TRY CATCH me controlan las excepciones para evitar que el programa se desborde_

'en tiempo de ejecucíón

End Module

Fichero con el código de ejemplo: luisf_aplicacionconsolasystemmath.zip - Tamaño 4.83 KB