Ř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 p obecného čtyřúhelníku. Ve vzorcích je s pouze pomocná proměnná.

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

        If a>0 And b>0 And c>0 And d>0 And uac>0 And a+b>uac And c+d>uac Then
            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)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module