我给你的程序 能很精确地判断出 是不是三角形 是等腰三角形 等边三角形 还是 一半三角形 算面积那部分我没写 你看看 是不是你要的
Private Sub Command1_Click()
If Val(Text1.Text) + Val(Text2.Text) > Val(Text3.Text) And Val(Text1.Text) + Val(Text3.Text) > Val(Text2.Text) And Val(Text3.Text) + Val(Text2.Text) > Val(Text1.Text) And (Val(Text2.Text) - Val(Text1.Text)) ^ 2 < Val(Text3.Text) ^ 2 And (Val(Text1.Text) - Val(Text3.Text)) ^ 2 < Val(Text2.Text) ^ 2 And (Val(Text2.Text) - Val(Text3.Text)) ^ 2 < Val(Text1.Text) ^ 2 Then
If Val(Text1.Text) = Val(Text2.Text) And Val(Text1.Text) = Val(Text3.Text) Then
MsgBox "你输入的数据构成等边三角形"
ElseIf Val(Text1.Text) = Val(Text2.Text) And Val(Text1.Text) Val(Text3.Text) Or Val(Text1.Text) And Val(Text1.Text) Val(Text2.Text) Val(Text2.Text) Or Val(Text3.Text) = Val(Text2.Text) And Val(Text1.Text) Val(Text2.Text) Then
MsgBox "你输入的数据构成等腰三角形"
Else
MsgBox "你输入的数据构成的是般三角形"
End If
Else
MsgBox "你输入的数据不能构成三角形"
End If
End Sub
是的话 要完善 找我啊!