逻辑题目“本题答案为？”

_ddqs.

答非所问

Global $a = 'ffffff', $b = '00ff00', $c = '00ffcc', $d = 'cccccc'
Global $t[4] = ['bcda','cdab','dabc','abcd']

For $ti = 0 To UBound($t) - 1 

        ConsoleWrite( @LF & @LF &"问题:"& $ti+1 & @LF & $t[$ti] &" = "& _exec($t[$ti]) &@LF)

Next

Func _exec($s)
        
        Local $ret = ""
        
        For $i = 0 To StringLen($s) - 1
                
                $x = StringMid($s, $i+1, 1)
                
                If $ret <> "" Then 
                        $ret &= ","
                        $ret &= Eval($x)
                Else
                        $ret &= Eval($x)
                EndIf
                
        Next

        Return $ret

EndFunc

tryhi

关于编码我也想过，只不过不知道怎么查

_ddqs.

;第8题答案(=1)
;8.1
$x = Round( (13 / Round( 53 / 5)) )
MsgBox(0,0,$x)

;8.2
$n = 53
$x = 13
For $i = 0 To 9
        $v = StringReplace($n, String($i), "")
        If $v = 5 Then 
                $x = StringReplace($x, String($i), "")
                ExitLoop
        EndIf
Next
MsgBox(0,0,$x)

_ddqs.

抗议楼主(题意是不是有BUG)
8. 如果(数码)53等于(字符)5，那么(数码)13等于？(回车符……貌似不用逻辑)(或是去逻辑出题意再去得答案)
8. 如果53等于(数码或字符)5，那么13等于？(取位返回值)

                    A.字母B        B.
                    C.ACN        D.1

;8.3
$n = 53
$x = 13
For $i = 1 To StringLen($n)
        
        $v = StringMid($n, $i, 1)
        If $v = 5 Then 
                $x = StringMid($x, $i, 1)
                ExitLoop
        EndIf
        
Next
MsgBox(0,0,$x)

pusofalse

回复 19# _ddqs.


    如果53等于5，那么13等于？
              A.字母B        B.
          C.ACN        D.1

此题有何不妥吗？

_ddqs.

一个不在答案的结果

;8. 如果(数码)53等于(字符)5，那么(数码)13等于？……(字符)5
;8.4

Local $n[2] = ['53','5']
Local $x[2] = ['13','x']

If Asc($n[1]) = $n[0] Then 
        $x[1] = Chr($x[0])
        $n1isA = True
EndIf

If $n1isA And Asc($x[1]) = $x[0] Then 
        $x[1] = $n[1]
EndIf

MsgBox(0, "逻辑的结果为:", $x[1]) ; = 5

_ddqs.

回复 20# pusofalse


疑问的是结果B

_ddqs.

;楼主高深的东西，现在还理解不了，慢慢学习~~~~
;
;把 8.形象改下,玩下真假~~~!非主帖问题.
;8. ( 5 = "今天是冬至" ),如果53等于5，那么13等于？
;8.5 

;解：
; 53 = 5 = 真 = 1
; 13 = x = 真 = 1
; 1 = 真 = 5 = "今天是冬至"

Local $1 = True
Local $Bool = False
Local $5 = "今天是冬至"
Local $n[2] = ['53', '5']
Local $x[2] = ['13', 'x']

If Asc($n[1]) = $n[0] Then

        $x[1] = Chr($x[0])
        $n1isA = True

EndIf

If $n1isA And Asc($x[1]) = $x[0] Then

        $x[1] = $n[1]
        $Bool = 1

EndIf

MsgBox(0, "逻辑的结果为:", $x[1] & @LF &"状态为: " & Eval($Bool)) ; = 5

MsgBox( 0, "换算的结果为:", Eval($x[1]) ) ; = "今天是冬至"

gto250

Chr(53)=5
Chr(13)=回车
你可以看下楼主的全部问题
所有的ABCD的选项都在一行的，唯独这道题的选项是两行的
正是因为这里隐藏了问题的提示
B项后面有个回车

你既然连第五题的答案都能接受，为什么就偏偏对这题有疑问？

gapkiller

Chr(53)=5
Chr(13)=回车
你可以看下楼主的全部问题
所有的ABCD的选项都在一行的，唯独这道题的选项是两行 ...
gto250 发表于 2010-12-22 20:36

    这些题目的排版都很严谨，不存在任何排版错误

gapkiller

咋一看不咋地, 暗藏机关哦

p兄思路真是即奇特又缜密

大绯狼

学习。。。。。。。。。。。。。。。。。。。

zhjdemon

不太懂什么意思哎  我太小白了？

gp2386

额。。。。我是来看答案的

gp2386

晕  答案都看不懂  我..............