作业帮 > 综合 > 作业

9编写并调用函数:编写以三角形三条边为参数的函数trangle,功能是计算三角形的面积,函数收不定义为float tri

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/24 21:43:21
9编写并调用函数:编写以三角形三条边为参数的函数trangle,功能是计算三角形的面积,函数收不定义为float triangle(float a,floatb,floatc)在主函数中,输入三角形的三条边,调用该函数求三角形的面积
9编写并调用函数:编写以三角形三条边为参数的函数trangle,功能是计算三角形的面积,函数收不定义为float tri
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 = trangle(3,4,5)
End Su