输入三角形三边,点击“计算三角形面积”按钮后,给出判断三条边所构成三角形是等边三角形、等腰三角形还是一般三角形,若能构成三角形,则输出三角形类型及面积值,若不能构成三角形,则
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 13:33:43
![输入三角形三边,点击“计算三角形面积”按钮后,给出判断三条边所构成三角形是等边三角形、等腰三角形还是一般三角形,若能构成三角形,则输出三角形类型及面积值,若不能构成三角形,则](/uploads/image/z/6842390-14-0.jpg?t=%E8%BE%93%E5%85%A5%E4%B8%89%E8%A7%92%E5%BD%A2%E4%B8%89%E8%BE%B9%2C%E7%82%B9%E5%87%BB%E2%80%9C%E8%AE%A1%E7%AE%97%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF%E2%80%9D%E6%8C%89%E9%92%AE%E5%90%8E%2C%E7%BB%99%E5%87%BA%E5%88%A4%E6%96%AD%E4%B8%89%E6%9D%A1%E8%BE%B9%E6%89%80%E6%9E%84%E6%88%90%E4%B8%89%E8%A7%92%E5%BD%A2%E6%98%AF%E7%AD%89%E8%BE%B9%E4%B8%89%E8%A7%92%E5%BD%A2%E3%80%81%E7%AD%89%E8%85%B0%E4%B8%89%E8%A7%92%E5%BD%A2%E8%BF%98%E6%98%AF%E4%B8%80%E8%88%AC%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E8%8B%A5%E8%83%BD%E6%9E%84%E6%88%90%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E5%88%99%E8%BE%93%E5%87%BA%E4%B8%89%E8%A7%92%E5%BD%A2%E7%B1%BB%E5%9E%8B%E5%8F%8A%E9%9D%A2%E7%A7%AF%E5%80%BC%2C%E8%8B%A5%E4%B8%8D%E8%83%BD%E6%9E%84%E6%88%90%E4%B8%89%E8%A7%92%E5%BD%A2%2C%E5%88%99)
输入三角形三边,点击“计算三角形面积”按钮后,给出判断三条边所构成三角形是等边三角形、等腰三角形还是一般三角形,若能构成三角形,则输出三角形类型及面积值,若不能构成三角形,则
输入三角形三边,点击“计算三角形面积”按钮后,给出判断三条边所构成三角形是等边三角形、等腰三角形还是一般三角形,若能构成三角形,则输出三角形类型及面积值,若不能构成三角形,则用消息框给出提示信息.
我不会写等腰三角形和等边三角形 总是出错
输入三角形三边,点击“计算三角形面积”按钮后,给出判断三条边所构成三角形是等边三角形、等腰三角形还是一般三角形,若能构成三角形,则输出三角形类型及面积值,若不能构成三角形,则
我给你的程序 能很精确地判断出 是不是三角形 是等腰三角形 等边三角形 还是 一半三角形 算面积那部分我没写 你看看 是不是你要的
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
是的话 要完善 找我啊!