Řešení:
Řešení má dva kroky:
1. vypočítat obsah trojúhelníku pomocí Heronova vzorce
2. z obsahu a strany vypočítat délku výšek

Module Module1

    Sub Main()

        Dim a, b, c, s, p, va, vb, vc As Double

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

        s = (a + b + c) / 2
        p = Math.Sqrt(s * (s - a) * (s - b) * (s - c))

        va = 2 * p / a
        vb = 2 * p / b
        vc = 2 * p / c

        Console.WriteLine("Vyska va={0:0.000}", va)
        Console.WriteLine("Vyska vb={0:0.000}", vb)
        Console.WriteLine("Vyska vc={0:0.000}", vc)

        Console.ReadLine()

    End Sub

End Module