、甲，乙，丙，丁四个人中有一个人是小偷，请根据四个人的谈话判断谁是小偷？已知四个人中有一个人说假话

、甲，乙，丙，丁四个人中有一个人是小偷，请根据四个人的谈话判断谁是小偷？已知四个人中有一个人说假话

放一个按钮和一个label在form1上然后在窗体中复制进这些代码

Private Sub Command1_Click()
Cls
For x = 1 To 4
If (x <> 1) + (x = 3) + (x = 4) + (x <> 4) = -3 Then
T = Chr$(64 + x)
End If
Next x

Select Case T
Case "A"
Label1.Caption = "小偷是甲"
Case "B"
Label1.Caption = "小偷是乙"
Case "C"
Label1.Caption = "小偷是丙"
Case "D"
Label1.Caption = "小偷是丁"
End Select
End Sub

f5运行就可以了，如果不懂再问。
分析:可以采用枚举法,依次假设甲,乙,丙,丁是小偷,再根据他们的谈话找到关系式.由于有一个人说谎,所以四个关系式相加值为-3时即可找到小偷.
(X1)+(X=3)+(X=4)+(X4)=-3

复杂点，可能好理解些。如下：
Private Sub CommandButton1_Click()
'有一个人说假话，有一个是小偷
'甲: 我不是小偷
'乙: 丙是小偷
'丙: 丁是小偷
'丁：丙说谎
Dim p(3) As Boolean '人是小偷
Dim s(3) As Boolean '说话是真话
For i = 0 To 3
personCount = 0
For j = 0 To 3 '初始，设其中一个是假话，其他是真话
If j = i Then s(j) = False Else s(j) = True
Next
'条件判断，按每一种情况下，是小偷的人都有谁
If s(0) Then p(0) = False Else p(0) = True
If s(1) Then p(2) = True Else p(2) = False
If s(2) Then p(3) = True Else p(3) = False
If s(3) Then p(3) = False Else p(3) = True
'统计是小偷的个数
For j = 0 To 3
If p(j) Then personCount = personCount + 1
Next
'等于1个的是正解，则打印
If personCount = 1 Then
For j = 0 To 3
Debug.Print "s(" & j & ")=" & s(j)
Next
End If
Next
End Sub

为什么值 等于 -3？(x=1) 若x=1 (x=1)返回的值是-1?

飞扬星星:丙说谎，说明乙没说谎，怎么可能是乙是小偷呢？

丙说谎，乙是小偷
丁不可能说谎，同理甲也不能，如果说谎，那就有两个小偷，那丙说谎，乙是小偷。

丙是小偷
如果甲说假话：则乙、丙都说了假话，不符合题意；
如果乙说假话：则丁也说了假话，不符合题意；
如果丁说假话：则乙和丙其中一个说了假话，也不符合题意；
所以，只有丙说了假话时，题意才符合。