Řešení:
Pomocí Pythagorovy věty lze přeponu c pravoúhlého trojúhelníku vypočítat ze zadaných délek stran a,b podle vzorce:

Module Module1

    Sub Main()

        Dim a, b, c As Double
        
        Console.Write("Zadejte delku prvni odvesny: ")
        a = Console.ReadLine
        Console.Write("Zadejte delku druhe odvesny: ")
        b = Console.ReadLine

        c = Math.Sqrt(a ^ 2 + b ^ 2)

        Console.WriteLine("Delka prepony= {0:0.000}", c)

        Console.ReadLine()

    End Sub

End Module