Řešení:
Strany a výška trojúhelníku ze zadaných úseků přepony c se vypočtou pomocí následujících vzorců:

Module Module1

    Sub Main()

        Dim ca, cb, v, a, b, c As Double

        Console.Write("Zadejte usek ca: ")
        ca = Console.ReadLine
        Console.Write("Zadejte usek cb: ")
        cb = Console.ReadLine

        c = ca + cb
        v = Math.Sqrt(ca * cb)
        a = Math.Sqrt(ca * c)
        b = Math.Sqrt(cb * c)

        Console.WriteLine("Strana a={0:0.000}", a)
        Console.WriteLine("Strana b={0:0.000}", b)
        Console.WriteLine("Strana c={0:0.000}", c)
        Console.WriteLine("Vyska v={0:0.000}", v)

        Console.ReadLine()

    End Sub

End Module