Ř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
Trojúhelník lze sestrojit, pokud součet libovolných dvou stran je větší než strana třetí.

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

        If a > 0 And b > 0 And c > 0 And a + b > c And a + c > b And b + c > a Then
            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)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module