> 其他 >
请问一下在VB里面计算三角形面积的代码是什么?
人气:197 ℃ 时间:2020-01-29 22:58:00
解答
三角形面积的计算公式是 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
推荐
猜你喜欢
© 2024 79432.Com All Rights Reserved.
电脑版|手机版