Řešení:
Řešení má dva kroky:
1. Vypočítat pomocí Pythagorovy věty z ramene b a poloviny základny a výšku trojúhelníku.
2. Ze základny a vypočtené výšky vypočítat obsah trojúhelníku.

Module Module1

    Sub Main()

        Dim a, b, v, obsah As Double

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

        v = Math.Sqrt(b ^ 2 - (a / 2) ^ 2)

        obsah = a * v / 2

        Console.WriteLine("Obsah trojuhelniku: {0:0.000}", obsah)

        Console.ReadLine()

    End Sub

End Module