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

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

关注:65  答案:5  mip版

解决时间 2021-01-31 07:52

提问者酒瘾渼亽兒

2021-01-30 16:58

、甲，乙，丙，丁四个人中有一个人是小偷，请根据四个人的谈话判断谁是小偷？已知四个人中有一个人说假话。甲：我不是小偷乙：丙是小偷丙：丁是小偷丁：丙说谎 用VB求做法，，快

最佳答案

二级知识专家甜甜少女心

2021-01-30 18:03

放一个按钮和一个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

全部回答

1楼小河边唱歌

2021-01-30 21:24

丙说谎，乙是小偷

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

2楼笑尽沧桑

2021-01-30 21:04

复杂点，可能好理解些。如下：

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楼敌不过时间逃不过距离

2021-01-30 20:35

分析：可以采用枚举法，依次假设甲、乙、丙、丁是小偷，再根据他们的谈话找到关系式。由于有一个人说谎，所以四个关系式相加值为-3时即可找到小偷。 for x=1 to 4 p=(x<>1)+(x=3)+(x=4)+(x<>4) if p=-3 then print x: end next x end

4楼在時光深處躲貓貓

2021-01-30 19:25

丙是小偷

如果甲说假话：则乙、丙都说了假话，不符合题意；

如果乙说假话：则丁也说了假话，不符合题意；

如果丁说假话：则乙和丙其中一个说了假话，也不符合题意；

所以，只有丙说了假话时，题意才符合。

我要举报

如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！

→点此我要举报以上信息！←

推荐资讯

大家都在看