Dim a,b,c
a=inputbox ("三角形的一边长","输入边长")
b=inputbox ("三角形的一边长","输入边长")
c=inputbox ("三角形的一边长","输入边长")
If a+b>c And a+c>b And b+c>a Then
If a=b And b=c Then
MsgBox "你输入的是[url]http://等边三角形[/url]"
ElseIf (a=b Or a=c Or b=c) Then
MsgBox "你输入的是[url]http://等腰三角形[/url]"
ElseIf a^2+b^2=c^2 Or a^2+c^2=b^2 Or b^2+c^2=a^2 Then
MsgBox "你输入的是[url]http://直角三角形[/url]"
Else
MsgBox "你输入的是普通三角形"
End If
Else
MsgBox "你输入的三边不能构成三角形"
End If
以上是我写的判断三角形的脚本 为什么在运行的时候输入5,5,10会是[url]http://等腰三角形[/url]呢
还有3,4,5，显示不是三角形 上面程序是哪里有问题么 我自己研究了很长时间 实在不知道错哪了 希望大神们帮帮忙哈

很多要用or的地方用了and
你的初中数学是怎么学的？？

Dim a,b,c
a=inputbox ("三角形的一边长","输入边长")
b=inputbox ("三角形的一边长","输入边长")
c=inputbox ("三角形的一边长","输入边长")
if a=b or b=c or a=c then
MsgBox "你输入的是[url]http://等边三角形[/url]"
end if
if a*a+b*b=c*c or b*b+c*c=a*a or c*c+a*a=b*b then
MsgBox "你输入的是[url]http://直角三角形[/url]"
end if
if a+b<c or a+b=c or b+c<a or b+c=a or a+c<b or a+c=b then
MsgBox "你输入的三边不能构成三角形"
end if
你看看行不行