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

进来帮个忙呀

关注

正常

作为一个吧主，我来教你吧，这可能是我今年回答的最后一个问题
帮你优化了一下代码：
On error resume next
Dim a,b,c
a=cint(inputbox ("三角形的一边长","输入边长"))
b=cint(inputbox ("三角形的一边长","输入边长"))
c=cint(inputbox ("三角形的一边长","输入边长"))
If a+b>c And a+c>b And b+c>a Then
If a=b And b=c Then
MsgBox "你输入的是等边三角形"
ElseIf (a=b Or a=c Or b=c) Then
MsgBox "你输入的是等腰三角形"
ElseIf a^2+b^2=c^2 Or a^2+c^2=b^2 Or b^2+c^2=a^2 Then
MsgBox "你输入的是直角三角形"
Else
MsgBox "你输入的是普通三角形"
End If
Else
MsgBox "你输入的三边不能构成三角形"
End If
注意：你之前定义的a,b,c不能识别为整型所以通过了ASCII转化成数字来比较，导致错误