Řešení:
Použitím Pythagorovy věty lze ze zdaných stran a,b obdélníku vypočítat jeho úhlopříčku podle vzorce:

Module Module1

    Sub Main()

        Dim a, b, u As Double

        Console.Write("Zadejte stranu a: ")
        a = Console.ReadLine
        Console.Write("Zadejte stranu b: ")
        b = Console.ReadLine

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

        Console.WriteLine("Uhlopricka obdelniku= {0:0.000}", u)

        Console.ReadLine()

    End Sub

End Module