什么是网站挂马,整合营销经典案例,公司网站怎么建站,网站基础内容看到一个帖子《CSDN-求助一道推理题》#xff0c;与之前《python穷举暴力破解《2018年刑侦推理题》用python穷举的推理题很类似
那么是否可以使用《ExcelVBA二维数组组合函数、组合求和》combin_arr2d函数#xff0c;生成结果进行穷举呢#xff1f;
Sub 穷举推理题()Dim …看到一个帖子《CSDN-求助一道推理题》与之前《python穷举暴力破解《2018年刑侦推理题》用python穷举的推理题很类似
那么是否可以使用《Excel·VBA二维数组组合函数、组合求和》combin_arr2d函数生成结果进行穷举呢
Sub 穷举推理题()Dim x, y, z, a, arr, brr, b, i, j, c, crr, tx 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.04x 2: y 8: z 3运行结果
答案 DAACCDBCCA
答案 DAACCDBCCC
答案 DACDCDBCCA
答案 DCCCADBAAA
累计用时6.01
