作业帮 > 综合 > 作业

用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 12:33:29
用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误
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
MSGBOX "要求任意两边之和大于第三边"
Exit Function
endif
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 Su