三角形面积编程程序 vb三角形面积编程代码

今天来聊聊关于三角形面积编程程序，vb三角形面积编程代码的文章，现在就为大家来简单介绍下三角形面积编程程序，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三角形面积编程代码这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。