输入三角形三条边a,b,c的值，根据数值，判断能否构成三角形，若能还要显示三角形的性质，等边，等腰，直角，任意。
这是我编的程序：
我知道问题出现在判断能否构成三角形上，“If a + b > c Or b + c > a Or a + c > b Then
Print "能构成三角形 "
Else
Print "不能构成三角形"”
这样编永远都是能构成三角形，请高手指点如何修改！
感谢
Private Sub Form_click()
Dim a!, b!, c!
a = InputBox("输入边长a")
b = InputBox("输入边长b")
c = InputBox("输入边长c")
If a + b > c Or b + c > a Or a + c > b Then
Print "能构成三角形"
If a * a + b * b = c * c Or b * b + c * c = a * a Or a * a + c * c = b * b Then
Print "直角三角形"
ElseIf a = b And b = c Then
Print "等边三角形"
ElseIf a = b And b <> c Or b = c And a <> b Then
Print "等腰三角形"
Else
Print "任意三角形"
End If
Else
Print "不能构成三角形"
End If
End Sub

If a + b &gt; c And b + c &gt; a And a + c &gt; b Then

谢谢！！