请问一下在VB里面计算三角形面积的代码是什么?
<p>问题：请问一下在VB里面计算三角形面积的代码是什么?<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">师黎的回答：<div class="content-b">网友采纳 三角形面积的计算公式是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
页:
[1]