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

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 IfNext

End Sub