算法(1)——判断作好事的人

判断作好事的人！！已知三个人说真话一个人说假话!

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