判断作好事的人!!已知三个人说真话一个人说假话!
A说:不时我
B说:是C
C说:是D
D说:他胡说
转换成计算机语言是:
TEMP <> 'A'
TEMP == 'C'
TEMP == 'D'
TEMP <> 'D'
编程代码:
Dim i As Integer
Dim temp As String
For i = 0 To 3
temp = Chr(65 + i)
If ((temp <> "A") + (temp = "C") + (temp = "D") + (temp <> "D")) = -3 Then
Me.Label1.Caption = temp
Exit For
End If
Next i
说明:
(temp <> "A") 如果为 TRUE 转换成值类型为 -1
(temp <> "A") 如果为 FALSE 转换成值类型为 0