三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c)) ,其中,s = (a + b + c) / 2
Private Sub Form_Load()
Do
Dim a As Single,b As Single,c As Single,p As Single,s As Single
a = Val(InputBox("请输入三角形第1条边长"))
b = Val(InputBox("请输入三角形第2条边长"))
c = Val(InputBox("请输入三角形第3条边长"))
s = (a + b + c) / 2
If a >= s Or b >= s Or c >= s Then
MsgBox "不能构成三角形"
Else
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "面积为" & area
End If
Loop
End
End Sub
猜你喜欢
- 1根据首字母选择单词的适当形式填空
- 2人体内成熟的红细胞没有线粒体?不是只是没有细胞核吗?
- 3唐代诗人李白有“腾云”一诗吗?内容呢?
- 4甲乙两车同时从两地相对开出甲车速度是每小时45千米乙车速度是每小时55千米3.5小时后两车相距50千米
- 5I think tennis is very interesting(就划线部分提问,划线部分指tennis)
- 6讴歌赞颂英雄人物的古诗文名句
- 7sqrt(1-cos(x)^2)j积分如何计算
- 8小亮是个小马虎,在计算小数加法时,把其中一个加数3.6看成了36,结果得48.5.正确得数应该是多少?
- 9she can speak Japanese_______( beautiful)
- 10在一幅比例尺是8:1的图纸上,量得一个零的长是4厘米,零件的实际长度是多少毫米?