看到一个帖子《CSDN-求助一道推理题》，与之前《python穷举暴力破解《2018年刑侦推理题》用python穷举的推理题很类似

• 那么是否可以使用《Excel·VBA二维数组组合函数、组合求和》combin_arr2d函数，生成结果进行穷举呢？

Sub 穷举推理题()Dim x&, y&, z&, a, arr, brr, b, i&, j&, c, crr, t&x = 2: y = 8: z = 3  '变量题号a = [{"A", "B", "C", "D"}]  '答案类型，答案二维数组ReDim arr(1 To 10, 1 To UBound(a)), c(1 To UBound(a))  '答案二维数组，共10题For i = 1 To UBound(arr)For j = 1 To UBound(arr, 2)arr(i, j) = a(j)NextNexttm = Timer: brr = combin_arr2d(arr)  '调用函数返回组合，一维嵌套数组For Each b In brrIf (b(2) = "A" And b(5) = "C") Or (b(2) = "B" And b(5) = "D") Or _(b(2) = "C" And b(5) = "A") Or (b(2) = "D" And b(5) = "B") Then  '第2题If (b(4) = "A" And b(1) = b(5)) Or (b(4) = "B" And b(x) = b(y)) Or _(b(4) = "C" And b(x) = b(z)) Or (b(4) = "D" And b(z) = b(y)) Then  '第4题If (b(5) = "A" And b(5) = b(8)) Or (b(5) = "B" And b(5) = b(4)) Or _(b(5) = "C" And b(5) = b(9)) Or (b(5) = "D" And b(5) = b(7)) Then  '第5题If (b(6) = "A" And b(2) = b(4) And b(2) = b(8)) Or _(b(6) = "B" And b(1) = b(6) And b(1) = b(8)) Or _(b(6) = "C" And b(3) = b(10) And b(3) = b(8)) Or _(b(6) = "D" And b(5) = b(9) And b(5) = b(8)) Then  '第6题i = Application.Match(b(1), a, 0)If (b(8) = "A" And Abs(Application.Match(b(7), a, 0) - i) <> 1) Or _(b(8) = "B" And Abs(Application.Match(b(5), a, 0) - i) <> 1) Or _(b(8) = "C" And Abs(Application.Match(b(2), a, 0) - i) <> 1) Or _(b(8) = "D" And Abs(Application.Match(b(10), a, 0) - i) <> 1) Then  '第8题If (b(9) = "A" And ((b(1) = b(6)) <> (b(6) = b(5)))) Or _(b(9) = "B" And ((b(1) = b(6)) <> (b(10) = b(5)))) Or _(b(9) = "C" And ((b(1) = b(6)) <> (b(2) = b(5)))) Or _(b(9) = "D" And ((b(1) = b(6)) <> (b(9) = b(5)))) Then  '第9题For j = 1 To UBound(a)  '字符串计数crr = Split(Join(b, ""), a(j)): c(j) = UBound(crr)Nextt = Application.Match(WorksheetFunction.Min(c), c, 0)If (b(7) = "A" And t = 3) Or (b(7) = "B" And t = 2) Or _(b(7) = "C" And t = 1) Or (b(7) = "D" And t = 4) Then   '第7题t = WorksheetFunction.Max(c) - WorksheetFunction.Min(c)If (b(10) = "A" And t = 3) Or (b(10) = "B" And t = 2) Or _(b(10) = "C" And t = 4) Or (b(10) = "D" And t = 1) Then  '第10题Debug.Print "答案", Join(b, "") ': Exit For  '得到1个答案退出End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfNextDebug.Print "累计用时" & Format(Timer - tm, "0.00")  '耗时
End Sub

• 举例

x = 1: y = 3: z = 5

运行结果

答案          DACDCDBCCA
答案          DADBCDCCCC
答案          DDDBBDCBBA
答案          DDDBBDCBBC
累计用时6.04

---

x = 2: y = 8: z = 3

运行结果

答案          DAACCDBCCA
答案          DAACCDBCCC
答案          DACDCDBCCA
答案          DCCCADBAAA
累计用时6.01