Ř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

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

        Console.ReadLine()

    End Sub

End Module