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