Private Sub Command2_Click()
Dim a,b,c
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a - b < c And a - c < b And b - c < a And a + b > c And a + c < b And b + c > a Then
MsgBox "该组数可构成三角形"
Else
MsgBox "该组数不可构成三角形"
End If
End Sub