高中求三角形面积的程序

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 15:25:56
高中求三角形面积的程序

高中求三角形面积的程序
高中求三角形面积的程序

高中求三角形面积的程序
Public Function Area(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
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3,4,5)
End Sub