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 Sub
用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误
用VB编程,根据输入的3个边长值计算三角形的面积,如果输入值不符合“任意两边之和大于第三边”提示错误
其他人气:748 ℃时间:2020-04-23 09:36:10
优质解答
我来回答
类似推荐
猜你喜欢
- 1水果店运来的苹果比橘子多150千克,当苹果卖掉一半时,比橘子少35千克.原来两种水果各多少千克
- 2铜有哪些分类?具体些!
- 3求一段选词填空解释,
- 4先将分式(1+x-1分之3)÷(x+2)/(x²-1)进行化简,然后请你给x选择一个合适的值,求原式的值.
- 5walk buy,walk between,walk through,walk over有什么区别
- 6问职业是用Who are you?还是用What are you?
- 7杯子上的三角符号里什么都没写是什么意思
- 81.又是一年芳草绿,_________ .春回大地千山秀,_________ ._________ ,春风送暖
- 9★已知两点A(0,2),B(4,1),点P是X轴上的一点,求PA+PB的最小值?
- 10英语翻译