【研究】来来,看看这个有意思的题...十道逻辑题,我直接被转晕了,用编程实现吧...

Question

请回答下面10个问题：　1、第一个答案是b的问题是哪一个？
（a）2；（b） 3；（c）4；（d）5；（e）6 　2、唯一的连续两个具有相同答案的问题是：
（a）2，3；（b）3，4；（c）4，5；（d）5，6；（e）6，7；　3、本问题答案和哪一个问题的答案相同？
（a）1；（b）2；（c）4；（d）7；（e）6 　4、答案是a的问题的个数是： 
（a）0；（b）1；（c）2；（d）3；（e）4 　5、本问题答案和哪一个问题的答案相同？
（a）10；（bbi）9；（c）8；（d）7；（e）6   6、答案是a的问题的个数和答案是什么的问题的个数相同？
（a）b；（b）c；（c）d；（d）e；（e）以上都不是  7、按照字母顺序，本问题的答案和下一个问题的答案相差几个字母？
（a）4；（b）3；（c）2；（d）1；（e）0。（注：a和b相差一个字母）
 
　8、答案是元音字母的问题的个数是：
（a）2；（b）3；（c）4；（d）5；（e）6。（注：a和e是元音字母）  9、答案是辅音字母的问题的个数是： 
（a）一个质数；（b）一个阶乘数；（c）一个平方数；（d）一个立方数，（e）5的倍数　10、本问题的答案是：
（a）a；（b）b；（c）c；（d）d；（e）e //来来,300分奉上~~~大家有空的都来折腾.....第一个折腾出来的100分.....没GOOGLE过,希望不通过搜索而自行解答出来,最好有思路.PS:本来我也想做,不过懒得做了,反正手头又正好还有大家送的分,干脆借花献佛,顺便拜一拜~~~嘿嘿

Answer 1

ok,费了n张稿纸，搞定！
俺滴答案：1.c 2.d 3.e 4.b 5.e 6.e 7.d 8.c 9.b 10.a

Answer 2

俺好像搞不懂辅音是啥玩意了，
如果b，c，d都是辅音，那么9就是b，10是a，
如果就d是辅音，那么9就是a罗。
晕，汗一个

Answer 3

咱用笨办法，:-)
2008-07-11 16:41:59         by Tiger_Zhao
Match:        1.c 2.d 3.e 4.b 5.e 6.e 7.d 8.c 9.b 10.a 
Last:         1.e 2.e 3.e 4.e 5.e 6.e 7.e 8.e 9.e 10.e 
2008-07-11 16:42:12Option Explicit
#Const ONLY_ONE = False                 '是否找到一种组合就退出Private m_Answer(1 To 10)   As Long     '各题答案，值 1-5 表示 a-e
Private m_Sum(1 To 5)       As Long     '统计 a-e 的个数Sub Main()
    Debug.Print Now, "by Tiger_Zhao"
    Recursion 1
    Output "Last:"
    Debug.Print Now
End SubFunction Recursion(ByVal Index As Long) As Boolean
    Dim i As Long
    For i = 1 To 5
        m_Sum(i) = m_Sum(i) + 1
        m_Answer(Index) = i
        
        If Index = 10 Then
            If CheckMatch() Then
                Recursion = True
                Exit Function
            End If
        Else
            If Recursion(Index + 1) Then
                Recursion = True
                Exit Function
            End If
        End If
        
        m_Sum(i) = m_Sum(i) - 1
    Next
End FunctionFunction CheckMatch() As Boolean
    Dim i As Long, j As Long, k As Long
    ' 1、第一个答案是b的问题是哪一个？
    '（a）2；（b） 3；（c）4；（d）5；（e）6
    For i = 2 To 6
        If m_Answer(i) = 2 Then
            If (i - 1) = m_Answer(1) Then
                Exit For
            Else
                Exit Function
            End If
        End If
    Next
    If i > 6 Then Exit Function
    ' 2、唯一的连续两个具有相同答案的问题是：
    '（a）2，3；（b）3，4；（c）4，5；（d）5，6；（e）6，7；
    k = 0
    j = m_Answer(1)
    For i = 2 To 10
        If j = m_Answer(i) Then
            If (i - 2) <> m_Answer(2) Then Exit Function
            k = k + 1
        End If
        j = m_Answer(i)
    Next
    If k <> 1 Then Exit Function
    ' 3、本问题答案和哪一个问题的答案相同？
    '（a）1；（b）2；（c）4；（d）7；（e）6
    j = Choose(m_Answer(3), 1, 2, 4, 7, 6)
    If m_Answer(j) <> m_Answer(3) Then Exit Function
    ' 4、答案是a的问题的个数是：
    '（a）0；（b）1；（c）2；（d）3；（e）4
    If (m_Sum(1) + 1) <> m_Answer(4) Then Exit Function
    ' 5、本问题答案和哪一个问题的答案相同？
    '（a）10；（bbi）9；（c）8；（d）7；（e）6
    j = Choose(m_Answer(5), 10, 9, 8, 7, 6)
    If m_Answer(j) <> m_Answer(5) Then Exit Function
    ' 6、答案是a的问题的个数和答案是什么的问题的个数相同？
    '（a）b；（b）c；（c）d；（d）e；（e）以上都不是
    j = m_Sum(1)
    For i = 2 To 5
        If m_Sum(i) = j Then Exit For
    Next
    If (i - 1) <> m_Answer(6) Then Exit Function
    ' 7、按照字母顺序，本问题的答案和下一个问题的答案相差几个字母？
    '（a）4；（b）3；（c）2；（d）1；（e）0。（注：a和b相差一个字母）
    i = Abs(m_Answer(8) - m_Answer(7))
    If (5 - i) <> m_Answer(7) Then Exit Function
    ' 8、答案是元音字母的问题的个数是：
    '（a）2；（b）3；（c）4；（d）5；（e）6。（注：a和e是元音字母）
    i = m_Sum(1) + m_Sum(5)
    If (i - 1) <> m_Answer(8) Then Exit Function
    ' 9、答案是辅音字母的问题的个数是：
    '（a）一个质数；（b）一个阶乘数；（c）一个平方数；（d）一个立方数，（e）5的倍数
    i = m_Sum(2) + m_Sum(3) + m_Sum(4)
    Select Case m_Answer(9)
        Case 1: If Not IsMember(i, 2, 3, 5, 7) Then Exit Function
        Case 2: If Not IsMember(i, 2, 6) Then Exit Function
        Case 3: If Not IsMember(i, 4, 9) Then Exit Function
        Case 4: If i <> 8 Then Exit Function
        Case 5: If i <> 5 Then Exit Function
    End Select
    '10、本问题的答案是：
    '（a）a；（b）b；（c）c；（d）d；（e）e
    
    
    '全部通过
    Output "Match:"
    #If ONLY_ONE Then
        CheckMatch = True
    #End If
End FunctionFunction IsMember(ByVal Item As Long, ParamArray List()) As Boolean
    Dim i As Long
    For i = 0 To UBound(List)
        If Item = List(i) Then
            IsMember = True
            Exit Function
        End If
    Next
End FunctionSub Output(ByVal Caption As String)
    Dim i As Long
    Debug.Print Caption, ;
    For i = 1 To 10
        Debug.Print i & "." & Chr(96 + m_Answer(i)) & " ";
    Next
    Debug.Print
End Sub

Answer 4

答案是：1.c 2.d 3.e 4.b 5.e 6.e 7.d 8.c 9.b 10.a接分