输入三角形的三条边a,b,c的值，根据其数值，判断能否构成三角形。若能，还要显示三角形的性质

任意两边之和大于第三边,两边之差小于第三边 就可以构成三角形.
若能构成三角形:
1)a=b=c,等边三角形
2)有两边相等,且与第三边不等,是为等腰三角形
3)做任意两边和的平方与第三边平方的差,只要有一组小于0,该三角形为钝角三角行,有一组等于0为直角三角形,三组都小于0是锐角三角形.
由余弦公式可证明。

Private Sub Form_Click()
Dim a(1 To 3) As Single
a(1) = InputBox("请输入三角形第一个边长", "输入框")
a(2) = InputBox("请输入三角形第二个边长", "输入框")
a(3) = InputBox("请输入三角形第三个边长", "输入框")

For i = 2 To 3
If a(1) > a(i) Then
temp = a(1)
a(1) = a(i)
a(i) = temp
End If
Next

If a(2) > a(3) Then
temp = a(2)
a(2) = a(3)
a(3) = temp
End If

If a(1) + a(2) > a(3) And a(3) - a(1) < a(2) And a(3) - a(2) < a(1) Then
If a(1) = a(2) And a(2) = a(3) Then
Print "该三边可以构成等边三角形"
GoTo lp
End If
If a(1) = a(2) Then
If a(1) * a(1) + a(2) * a(2) = a(3) * a(3) Then Print "该三边可以构成等腰直角三角形"
Print "该三边可以构成一般等腰三角形"