_ddqs. 发表于 2010-12-21 19:19:26

本帖最后由 _ddqs. 于 2010-12-21 19:21 编辑

答非所问
Global $a = 'ffffff', $b = '00ff00', $c = '00ffcc', $d = 'cccccc'
Global $t = ['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 发表于 2010-12-21 21:59:45

关于编码我也想过，只不过不知道怎么查{:face (197):}

_ddqs. 发表于 2010-12-22 10:49:30

;第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. 发表于 2010-12-22 11:19:19

本帖最后由 _ddqs. 于 2010-12-22 11:32 编辑

抗议楼主(题意是不是有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 发表于 2010-12-22 12:21:42

回复 19# _ddqs.


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

此题有何不妥吗？

_ddqs. 发表于 2010-12-22 13:54:15

一个不在答案的结果
;8. 如果(数码)53等于(字符)5，那么(数码)13等于？……(字符)5
;8.4

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

If Asc($n) = $n Then
        $x = Chr($x)
        $n1isA = True
EndIf

If $n1isA And Asc($x) = $x Then
        $x = $n
EndIf

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

_ddqs. 发表于 2010-12-22 13:57:50

回复 20# pusofalse


疑问的是结果B

_ddqs. 发表于 2010-12-22 20:27:05


;楼主高深的东西，现在还理解不了，慢慢学习~~~~
;
;把 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 = ['53', '5']
Local $x = ['13', 'x']

If Asc($n) = $n Then

        $x = Chr($x)
        $n1isA = True

EndIf

If $n1isA And Asc($x) = $x Then

        $x = $n
        $Bool = 1

EndIf

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

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

gto250 发表于 2010-12-22 20:36:16

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

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

gapkiller 发表于 2011-2-26 12:20:41

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


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

gapkiller 发表于 2011-2-26 12:21:34

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

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

大绯狼 发表于 2011-3-1 11:04:48

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

zhjdemon 发表于 2011-3-3 20:53:04

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

gp2386 发表于 2011-3-5 10:30:43

额。。。。我是来看答案的{:face (460):}

gp2386 发表于 2011-3-5 10:32:27

晕答案都看不懂我..............{:face (368):}
页: 1 [2] 3
查看完整版本: 逻辑题目“本题答案为？”