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 "該組數(shù)可構(gòu)成三角形"
Else
MsgBox "該組數(shù)不可構(gòu)成三角形"
End If
End Sub