Question

vb编程。判断三条边能否构成三角形

在inputbox中，输入三个数，判断三条边能否构成三角形，如果可以，在窗体上显示三角形面积。当输入-1时结束程序。

求详解！

Answer 1

前提：输入不为空，输入必须是数字。
1：判断三个数分别>0，并存储在a、b、c三个变量中
2：判断a+b>c 或 b+c>a 或 a+c>b 是三角形，如果不满足条件就提示“不是三角形”
3：将a，b，c套入到三角形计算面积公式。

“输入-1时结束程序”不明白是在哪个控件里操作，你可以在某个控件里end就可以了。

追问

也十分感谢你，给我提供严谨的思路

Answer 2

利用任意两边这和大于第三边判断是不是三角形，然后用海伦公式求面积http://baike.baidu.com/view/1279.htm

Answer 3

两条小边的和大于第三边，即成三角形。

面积： S＝ah/2
(2).已知三角形三边a,b,c，则　　（海伦公式）（p=(a+b+c)/2）
　　S=√[p(p-a)(p-b)(p-c)]
　　=（1/4）√[(a+b+c)(a+b-c)(a+c-b)(b+c-a)]

会写了吗，朋友？

追问

我用for循环设定inputbox只能出现三次，然后“并存储在a、b、c三个变量中”就不会了，放在循环内外都不行

追答

Private Sub Command1_Click()
Dim a, b, c
a = InputBox("a", "a", 1)
b = InputBox("b", "b", 1)
c = InputBox("c", "c", 1)
If a + b > c Then
Me.Print "可以形成三角行"
End If
End Sub

Me.Print "可以形成三角行"  &“，面积为：海伦公式   

海伦公式    这里你自己算下吧。直接加减这些；