• Home
 · 
• Math/Dates
 · 
• Find Area of a triangle by Hero's Formula

Find Area of a triangle by Hero's Formula

Find Area of a triangle by Hero's Formula

API Declarations



Event CLICK



Rate Find Area of a triangle by Hero's Formula

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Name: - Area of triangle by HERO's Formula
'Date: - 16/10/04      3:03Pm
'Day: - Wednesday



Private Sub Command1_Click()
Dim a, b, c, s, area, p As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
s = (a + b + c) / 2
p = (s - a) * (s - b) * (s - c)
area = (s * p) ^ 0.5
MsgBox "Area of the triangleby hero's Formula Is" & area
End Sub