VB：编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示：三角形面积的计算公式
<p>问题：VB：编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示：三角形面积的计算公式<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">尚建库的回答：<div class="content-b">网友采纳 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
页:
[1]