请问一下在VB里面计算三角形面积的代码是什么?-查字典问答网

来自段冲的问题

　　请问一下在VB里面计算三角形面积的代码是什么?

1回答

2020-12-2122:27

我要回答

提示：回答问题需要登录哦！

师黎

　　三角形面积的计算公式是area=Sqr(s*(s-a)*(s-b)*(s-c)),其中,s=(a+b+c)/2

　　PrivateSubForm_Load()

　　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

2020-12-21 22:31:16

大家都在问