编程问题
输入三角形三条边a,b,c的值,根据数值,判断能否构成三角形,若能还要显示三角形的性质,等边,等腰,直角,任意。这是我编的程序:
我知道问题出现在判断能否构成三角形上,“If a + b > c Or b + c > a Or a + c > b Then
Print "能构成三角形 "
Else
Print "不能构成三角形"”
这样编永远都是能构成三角形,请高手指点如何修改!
感谢
Private Sub Form_click()
Dim a!, b!, c!
a = InputBox("输入边长a")
b = InputBox("输入边长b")
c = InputBox("输入边长c")
If a + b > c Or b + c > a Or a + c > b Then
Print "能构成三角形"
If a * a + b * b = c * c Or b * b + c * c = a * a Or a * a + c * c = b * b Then
Print "直角三角形"
ElseIf a = b And b = c Then
Print "等边三角形"
ElseIf a = b And b <> c Or b = c And a <> b Then
Print "等腰三角形"
Else
Print "任意三角形"
End If
Else
Print "不能构成三角形"
End If
End Sub