问题标题：
请问一下在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
点击显示
其它推荐
热门其它推荐