Public Function trangle(a As Double, b As Double, c As Double) As Double
If a + b < c Or a + c < b Or b + c < a Then Exit Function
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
trangle = Sqr(s * a * b * c)End Function Private Sub Command1_Click()
Me.Caption = ...
