本文主要是介绍Excel·VBA二维数组组合函数之穷举推理题，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
看到一个帖子《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
这篇关于Excel·VBA二维数组组合函数之穷举推理题的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
