Řešení:
Lichoběžník musíme rozdělit na kosodélník a trojúhelník.
Ze stran trojúhelníku (a-c,b,d) vypočteme pomocí Heronova vzorce jeho obsah.
Z vypočteného obsahu trojúhelníku vypočteme jeho výšku (viz. program 01.19).
Ze strany c lichoběžníku a výšky trojúhelníku vypočteme obsah kosodélníku.
Obsah obecného lichoběžníku vypočteme jako součet obsahu kosodélníku a trojúhelníku.
Dosazením všech výpočtů do jednoho dostaneme vzorec:

Module Module1

    Sub Main()

        Dim a, b, c, d, obsah 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
        Console.Write("Zadejte stranu d: ")
        d = Console.ReadLine

        obsah=(a+c)/(4*(a-c))*Math.Sqrt((a+b-c+d)*(a-b-c+d)*(a+b-c-d)*(-a+b+c+d))

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

        Console.ReadLine()

    End Sub

End Module