改成VB这三个人分别为ABC
答案:1 悬赏:30 手机版
解决时间 2021-03-26 09:06
- 提问者网友：动次大次蹦擦擦
- 2021-03-25 16:33
改成VB这三个人分别为ABC
最佳答案
- 五星知识达人网友：走死在岁月里
- 2021-03-25 17:41
Sub main()
Dim a%, b%, c%
For a = 0 To 1
For b = 0 To 1
For c = 0 To 1
If ((a And a + b + c = 2 Or 0 = a And a + b + c <> 2) _
And (b And a + b + c = 1 Or 0 = b And a + b + c <> 1) _
And (c And a + b + c = 1 Or 0 = c And a + b + c <> 1)) Then
Debug.Print "A is a "; IIf(a, "honest", "lier")
Debug.Print "B is a "; IIf(b, "honest", "lier")
Debug.Print "C is a "; IIf(c, "honest", "lier")
End If
Next c, b, a
End Sub
Dim a%, b%, c%
For a = 0 To 1
For b = 0 To 1
For c = 0 To 1
If ((a And a + b + c = 2 Or 0 = a And a + b + c <> 2) _
And (b And a + b + c = 1 Or 0 = b And a + b + c <> 1) _
And (c And a + b + c = 1 Or 0 = c And a + b + c <> 1)) Then
Debug.Print "A is a "; IIf(a, "honest", "lier")
Debug.Print "B is a "; IIf(b, "honest", "lier")
Debug.Print "C is a "; IIf(c, "honest", "lier")
End If
Next c, b, a
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯