欢迎来到文章屋!

免费注册| 登录| 加入收藏| 设为首页
首页 问题大全 我要提问 我的问题
VB:编程计算三角形面积编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.提示:三角形面积的计算公式
提问时间:2024-04-23 04:33:57 1人问答
问题描述:

  VB:编程计算三角形面积

  编程计算三角形面积.要求通过输入框输入三角形的三个边长a、b、c,当单击命令按钮“计算”时,计算并在文本框中显示三角形的面积area.

  提示:三角形面积的计算公式是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
尚老师
2024-04-23 22:38:09
点赞0
热门问答