”输入三角形的3条边,判断它是何种类型的三角形”的vb编程

'勾股定理
Private Sub Form_Click()
a = Val(InputBox("输入a:"))
b = Val(InputBox("输入b:"))
c = Val(InputBox("输入c:"))
If a + b > c Then
If c > Sqr(a ^ 2 + b ^ 2) Then
Print "钝角三角形"
ElseIf c < Sqr(a ^ 2 + b ^ 2) Then
Print "锐角三角形"
Else
Print "直角三角形"
End If
Else
Print "不是三角形"
End If
End Sub

主要知道这两点就可以了：
两边之和大于第三边；两边之差小于第三边
把他们运用到程序中去...

If a + b > c Then
text1.text = "锐角三角形"
if a + b < c Then
text1.text = "钝角三角形"
else
text1.text="这不是三角形"
end if
end if

不晓得对不对，你试试看吧