我给你的程序 能很精确地判断出 是不是三角形 是等腰三角形 等边三角形 还是 一半三角形 算面积那部分我没写 你看看 是不是你要的 Private Sub Command1_Click()If Val(Text1.Text) + Val(Text2.Text) > Val(Text3.T...