|
问题：VB：编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示：三角形面积的计算公式
答案：↓↓↓ 尚建库的回答： 网友采纳 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 | 
