|
问题：请问一下在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 | 
