vb三角形面积编程代码
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
标签：vb,编程,三角形
版权声明：文章由 酷百书 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.kubaishu.com/life/448807.html
