Řešení:
Úhlopříčka čtyřúhelníku ho dělí na dva trojúhelníky. Obsahy trojúhelníků vypočteme pomocí Heronova vzorce, po sečtení
obou obsahů dostaneme výsledný obsah obecného čtyřúhelníku.

Module Module1

    Sub Main()

        Dim a, b, c, d, uac, s1, s2, p1, p2, 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
        Console.Write("Zadejte uhlopricku AC: ")
        uac = Console.ReadLine

        s1 = (a + b + uac) / 2
        p1 = Math.Sqrt(s1 * (s1 - a) * (s1 - b) * (s1 - uac))
        s2 = (c + d + uac) / 2
        p2 = Math.Sqrt(s2 * (s2 - c) * (s2 - d) * (s2 - uac))
        obsah = p1 + p2

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

        Console.ReadLine()

    End Sub

End Module