您好,今天芳芳来为大家解答以上的问题。vb小程序代码大全，vb小程序代码相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox("请输入三角形的边a:", "输入")) b = Val(InputBox("请输入三角形的边b:", "输入")) c = Val(InputBox("请输入三角形的边c:", "输入")) If (a + b) <= c Or b + c <=a Or a + c <= b Then MsgBox "三条边不能构成三角形,请重新输入!", , "注意" Exit Sub End If q = (a + b + c) / 2 s = Sqr(q * (q - a) * (q - b) * (q - c)) Print "三角形的面积是: "; s End Sub 这个是由键盘输入3个数，试编程判断它们是否可以构成一个三角形。
2、如果能构成一个三角形，请计算该三角形的面积。
本文就为大家分享到这里，希望小伙伴们会喜欢。
标签：