大家好!今天让小编来大家介绍下关于vb编程小程序(vb小程序代码)的问题,以下是小编对此问题的归纳整理,让我们一起来看看吧。
您好,今天芳芳来为大家解答以上的问题。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、如果能构成一个三角形,请计算该三角形的面积。
本文就为大家分享到这里,希望小伙伴们会喜欢。
以上就是小编对于vb编程小程序(vb小程序代码)问题和相关问题的解答了,vb编程小程序(vb小程序代码)的问题希望对你有用!