问题描述：
输入三角形三边,点击“计算三角形面积”按钮后,给出判断三条边所构成三角形是等边三角形、等腰三角形还是一般三角形,若能构成三角形,则输出三角形类型及面积值,若不能构成三角形,则用消息框给出提示信息.
我不会写等腰三角形和等边三角形 总是出错
问题解答：
我来补答
我给你的程序 能很精确地判断出 是不是三角形 是等腰三角形 等边三角形 还是 一半三角形 算面积那部分我没写 你看看 是不是你要的
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
是的话 要完善 找我啊!
