Řešení:
Řešení má tři kroky:
1. Vypočítat délku úseku e jako polovinu rozdílu základen.
2. Pomocí Pytharorovy věty vypočítat výšku lichoběžníku z ramene b a úseku e.
3. Ze základen a výšky lichoběžníku spočítat obsah lichoběžníku.

Module Module1

    Sub Main()

        Dim a, b, c, e, v, o As Double

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

        e = (a - c) / 2
        v = Math.Sqrt(b ^ 2 - e ^ 2)
        o = (a + c) * v / 2

        Console.WriteLine("Obsah lichobezniku: {0:0.000}", o)

        Console.ReadLine()

    End Sub

End Module