Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim hipotenusa as Integer = 0

        Dim ladoB as Integer = 0

        Dim ladoA as Integer = 0

        Console.WriteLine("Ingrese la hipotenusa")

        hipotenusa = Console.ReadLine()

        Console.WriteLine("Ingrese el lado B")

        ladoB = Console.ReadLine()

        ladoA =(hipotenusa * hipotenusa) - (ladoB * ladoB)

        'Para sacar la raiz cuadrada de un nro usamosla funcion sqrt()

        ladoA = Math.Sqrt(ladoA)

        Console.WriteLine("El lado A es: " + ladoA.ToString())

    End Sub

End Module

​