来自段冲的问题
请问一下在VB里面计算三角形面积的代码是什么?
请问一下在VB里面计算三角形面积的代码是什么?
1回答
2020-12-21 22:27
请问一下在VB里面计算三角形面积的代码是什么?
请问一下在VB里面计算三角形面积的代码是什么?
三角形面积的计算公式是area=Sqr(s*(s-a)*(s-b)*(s-c)),其中,s=(a+b+c)/2
PrivateSubForm_Load()
Do
DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSingle
a=Val(InputBox("请输入三角形第1条边长"))
b=Val(InputBox("请输入三角形第2条边长"))
c=Val(InputBox("请输入三角形第3条边长"))
s=(a+b+c)/2
Ifa>=sOrb>=sOrc>=sThen
MsgBox"不能构成三角形"
Else
area=Sqr(s*(s-a)*(s-b)*(s-c))
MsgBox"面积为"&area
EndIf
Loop
End
EndSub