求三角形面积的编程代码（vb三角形面积编程代码）
发布日期：2023-05-26 01:52:17
导读 关于求三角形面积的编程代码，vb三角形面积编程代码这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！1、Pri
关于求三角形面积的编程代码，vb三角形面积编程代码这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！
1、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。
本文到此分享完毕，希望对大家有所帮助。
标签： vb三角形面积编程代码
免责声明：本文由用户上传，如有侵权请联系删除！