Ř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

        If a > 0 And b > 0 And 2 * b > a Then
            v = Math.Sqrt(b ^ 2 - (a / 2) ^ 2)
            obsah = a * v / 2
            Console.WriteLine("Obsah trojuhelniku: {0:0.000}", obsah)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module