问vba 小程序（vb小程序代码）

大家好,小东方来为大家解答以上的问题。vba 小程序，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、如果能构成一个三角形，请计算该三角形的面积。

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