题目
用键盘输入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
提问时间:2020-07-13
答案
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 = 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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1写出含有动物的成语:( )歌( )舞
- 2如图,一次函数y=ax+b的图象与反比例函数y=k/x的图象交于M(2,3),N(-1,-4)
- 3设x1,x2是方程x2+px+q=0的两实根,x1+1,x2+1是关于x的方程x2+qx+p=0的两实根,则p=_,q=_.
- 4现有10t含Fe2O3 60%的赤铁矿石在高温下与一氧化碳气体充分反应
- 5美国人是怎样招待客人的?
- 6已知a、b、c是△ABC的三条边,证明:|a+b-c|+|a-b-c|=2b
- 7一辆汽车装满货物共重4.9×10四次方牛顿,在平直公路上匀速行驶,在10min内前进了6km,这时发动机的功率为6.615×10四次方瓦特,求:(1)这段时间内汽车的牵引力做了多少功?(2)汽车所受重
- 8走进安徒生--安徒生及《安徒生童话》读书报告会
- 9the only thing to do was ask him to come.
- 10英文的狐狸和葡萄的故事
热门考点