我是靠谱客的博主 真实菠萝,最近开发中收集的这篇文章主要介绍算法(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)——判断作好事的人所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错,欢迎将靠谱客网站推荐给程序员好友。

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

评论列表共有 0 条评论

立即
投稿
返回
顶部