Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b <= c Or b + c <= a Or a + c <= b Then
MsgBox "不是三角形"
Else
  If a = b And b = c Then
  Label1.Caption = "等边三角形"
  Else
     If a = b Or b = c Or a = c Then
     Label1.Caption = "等腰三角形"
     Else
        If a ^ 2 + b ^ 2 = c ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Or a ^ 2 + c ^ 2 = b ^ 2 Then
        Label1.Caption = "直角三角形"
        Else
        Label1.Caption = "任意三角形"
        End If
     End If
  End If
End If


End Sub