用vb编一个找小偷的程序

来源：百度知道 编辑：UC知道 时间：2024/07/03 08:01:10
A，B，C和D人中有1个是小偷，审问中，A说：“我不是小偷”；B说：“C是小偷”；C说：“小偷肯定是D”；D说：“C在冤枉人”。其中有三人说真话，一人说假话。请编程找出谁说谎，谁是小偷。
因为是初学者，所以拜托写简单点
O(∩_∩)O谢谢啦

A,B,C,D分别用1，2，3，4（即i）表示 这里FALSE=0，ture=-1
Private Sub Command2_Click()
Dim a%, b%, c%, d%, i%, k%, e As Boolean
For i = 1 To 4
a = (i <> 1) '1号不是小偷
b = (i = 3) + (i <> 2) '2号不是小偷，并且三号是小偷
c = (i = 4) + (i <> 3) '3号不是小偷，并且四号是小偷
d = (i <> 4) '4号不是小偷
If (b * c = 0) And b + c = -1 And (a + b + c + d = -3) And (a * b * c * d = 0) Then Print a, b, c, d, i
Exit for
Next i
End Sub

穷举所有可能性，对ABCD说的话执行模拟和验证，看我空间文章，有源代码下载：