新手问题:关于条件判断的问题
我想编一个判断三角形的程序 从文本框输入数据 代码如下:
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b > c And b + c > a And c + a > b Then
If a = b = c Then
Text4.Text = "等边 "
ElseIf a = b Or a = c Or b = c Then
Text4.Text = "等腰 "
Else: Text4.Text = "任意 "
End If
Else: Text4.Text = "不是三角形 "
End If
End Sub
但是就算我输入了三个一样的数据 还是显示“等腰” 无法判断“等边”
这是怎么回事?
[解决办法]
If a = b = c Then
Text4.Text = "等边 "
条件语句不能连等或连判断,你需要用AND OR XOR连接。
应该这样写:
if a=b and b=c and a=c then
text4.text= "等边 "