Private Sub Command1_Click()
a = Val(InputBox("输入a的长"))
b = Val(InputBox("输入b的长"))
c = Val(InputBox("输入c的长"))
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "面积:"; s
Else
Print "不是三角形"
End If
End Sub
用键盘输入a 、b 、c的值,判断它们能否构成三角形的三边.如果能够构成三角形则求它的面积.
用键盘输入a 、b 、c的值,判断它们能否构成三角形的三边.如果能够构成三角形则求它的面积.
海伦公式; S = Sqr(p * (p - a)*(p - b)*(p - c)) ,其中 p = (a + b + c)/2
海伦公式; S = Sqr(p * (p - a)*(p - b)*(p - c)) ,其中 p = (a + b + c)/2
数学人气:226 ℃时间:2020-03-09 16:45:12
优质解答
我来回答
类似推荐
猜你喜欢
- 1用所给词的恰当形式填空 it's twelve.t's time___(have) lunch.
- 2弹簧测力计下挂一实心物体,示数是f,把这个物体浸没在水中央,簧测力计示数5/f,该物体的密度?
- 3一个圆锥半径为4cm,高10cm,一个圆柱半径5cm,高10cm,这个圆柱的体积是这个圆锥的多少倍?
- 4下列可以用分液漏斗分离的是
- 5描写古代皇宫大殿的语句要详细
- 6已知△ABC中,A=45°,C=30°,c=10cm,解三角形.
- 7铵盐都能与氢氧化钠溶液共热产生氨气对吗
- 8着的四个读音是什么?着的四组词是什么?
- 9假如生命是绿叶,我要让生命的绿叶永远富有活力... 假如善良是什么?
- 10He spoke very fast and people understand what he said .A.a little B.little C.a few D.few