我是靠谱客的博主 真实菠萝,这篇文章主要介绍算法(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 

最后

以上就是真实菠萝最近收集整理的关于算法(1)——判断作好事的人的全部内容,更多相关算法(1)——判断作好事内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(137)

评论列表共有 0 条评论

立即
投稿
返回
顶部