三角形面积的计算公式是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