Imports System
Module HeronTriangleArea
' Function to calculate area using Heron's formula
Public Function HeronArea(a As Double, b As Double, c As Double) As Double
Dim s As Double = (a + b + c) / 2.0 ' semi-perimeter
Return Math.Sqrt(s * (s - a) * (s - b) * (s - c))
End Function
Sub Main()
Dim a As Double = 6, b As Double = 9, c As Double = 13
' Check validity of triangle
If (a + b > c) AndAlso (a + c > b) AndAlso (b + c > a) Then
Dim area As Double = HeronArea(a, b, c)
Console.WriteLine($"Area of the triangle = {area:F4}")
Else
Console.WriteLine("Invalid triangle sides!")
End If
End Sub
End Module
' run:
'
' Area of the triangle = 23.6643
'
