Imports System

Public Module Module1

    Public Sub Main()

        console.writeline("Calculemos lado restante del triangulo")

        dim base3 as double 

        dim hipo3 as double 

        console.writeline("Por favor ingrese el primer lado del triangulo")

        base3 = console.ReadLine()

        console.writeline ("Por favor ingrese la hipotenusa del triangulo")

        hipo3 = console.ReadLine()

        dim aux2 as double = Math.Pow (base3,2) + math.pow(hipo3,2)

        dim lado6 as double = math.sqrt(aux)     

        console.writeline ("El lado restante es " + lado6.ToString() + "cm2") 

​

    End Sub

End Module