首页 >> 生活百科 >

vb三角形面积代码实现(vb三角形面积代码)

2023-03-19 11:50:51 来源: 用户:冯士枝 

大家好,乐天来为大家解答以下的问题,关于vb三角形面积代码实现,vb三角形面积代码这个很多人还不知道,现在让我们一起来看看吧!

1、三角形面积的计算公式是 area = Sqr(s * (s - a) * (s - b) * (s - c)) 。

2、其中。

3、s = (a + b + c) / 2 Private Sub Form_Load()DoDim a As Single, b As Single, c As Single, p As Single, s As Singlea = Val(InputBox("请输入三角形第1条边长"))b = Val(InputBox("请输入三角形第2条边长"))c = Val(InputBox("请输入三角形第3条边长"))s = (a + b + c) / 2If a >= s Or b >= s Or c >= s ThenMsgBox "不能构成三角形"Elsearea = Sqr(s * (s - a) * (s - b) * (s - c)) MsgBox "面积为" & areaEnd IfLoopEndEnd Sub。

本文分享完毕,希望对大家有所帮助。

  免责声明:本文由用户上传,与本网站立场无关。财经信息仅供读者参考,并不构成投资建议。投资者据此操作,风险自担。 如有侵权请联系删除!

 
分享:
最新文章