Question

vb三角形判断

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a + b > c And a + c > b And b + c> a Then
If a = b Or b = c Or a = c Then Label1 ="isoceles triangle"
If a= b = c Then
Label1 = "equilateral triangle"
Else
Label1 = "arbitrary triangle "
End If
Else
Label1 = "a, b, c; 不能构成三角形"
End If

End Sub

是这样写的，可是怎么输就是arbitrary triangle的结果。。。= =

Answer 1

Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a + b > c And a + c > b And b + c> a Then
If a = b And b = c Then ' a=b=c 是错误的！！！
Label1 = "等边三角形"
ElseIf a = b Or b = c Or a = c Then
Label1 = "等腰三角形"
Else
Label1 = "任意三角形"
End If
Else
Label1 = "不能构成三角形"
End If
End Sub

Answer 2

网海1书生 的答案是正确的!
你是先判断等腰三角形,然后判断等边三角形,而且先用的是行IF语句,所以,无论是否等腰三角形,都会去判断是否等边三角形.
所以，对于等边三角形,就会先输出:等腰三角形,后输出:等边三角形.
因为:等边三角形从任意两边来判断,它首先是等腰三角形.
另外,判断3个变量是否相等,不能用:a=b=c
要用:a = b And b = c And c = a
当然,可以简化为:a = b And b = c