Simonevb三角形面积编程代码
的有关信息介绍如下：
PrivateSubForm_Load()
Do
DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSingle
a=Va这振银检沿问l(InputBox("请输入三角形第1条边长"))
b=Val(InputBox("请输入三角果步木官怎形第2条边长"))
c=Val(InputBox("请输入三角形第3条边长"))
s=(a+b+c)/2
Ifa>=sOrb>=sOrc>=sThen
MsgBox"不能构成三角形"
E来自lse
area=Sqr(s*(s-a)*(s-b)*(s-360问答c))
MsgBox"面积为"&area
EndIf
Loop
End
EndSub
