Excel·VBA二维数组组合函数之穷举推理题

2024-04-02 07:04

本文主要是介绍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二维数组组合函数之穷举推理题的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!


原文地址:
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.chinasem.cn/article/869295

相关文章

Python Pandas高效处理Excel数据完整指南

《PythonPandas高效处理Excel数据完整指南》在数据驱动的时代,Excel仍是大量企业存储核心数据的工具,Python的Pandas库凭借其向量化计算、内存优化和丰富的数据处理接口,成为... 目录一、环境搭建与数据读取1.1 基础环境配置1.2 数据高效载入技巧二、数据清洗核心战术2.1 缺失

JAVA数组中五种常见排序方法整理汇总

《JAVA数组中五种常见排序方法整理汇总》本文给大家分享五种常用的Java数组排序方法整理,每种方法结合示例代码给大家介绍的非常详细,感兴趣的朋友跟随小编一起看看吧... 目录前言:法一:Arrays.sort()法二:冒泡排序法三:选择排序法四:反转排序法五:直接插入排序前言:几种常用的Java数组排序

利用Python实现Excel文件智能合并工具

《利用Python实现Excel文件智能合并工具》有时候,我们需要将多个Excel文件按照特定顺序合并成一个文件,这样可以更方便地进行后续的数据处理和分析,下面我们看看如何使用Python实现Exce... 目录运行结果为什么需要这个工具技术实现工具的核心功能代码解析使用示例工具优化与扩展有时候,我们需要将

MySQL 字符串截取函数及用法详解

《MySQL字符串截取函数及用法详解》在MySQL中,字符串截取是常见的操作,主要用于从字符串中提取特定部分,MySQL提供了多种函数来实现这一功能,包括LEFT()、RIGHT()、SUBST... 目录mysql 字符串截取函数详解RIGHT(str, length):从右侧截取指定长度的字符SUBST

通过C#获取Excel单元格的数据类型的方法详解

《通过C#获取Excel单元格的数据类型的方法详解》在处理Excel文件时,了解单元格的数据类型有助于我们正确地解析和处理数据,本文将详细介绍如何使用FreeSpire.XLS来获取Excel单元格的... 目录引言环境配置6种常见数据类型C# 读取单元格数据类型引言在处理 Excel 文件时,了解单元格

C#实现高性能Excel百万数据导出优化实战指南

《C#实现高性能Excel百万数据导出优化实战指南》在日常工作中,Excel数据导出是一个常见的需求,然而,当数据量较大时,性能和内存问题往往会成为限制导出效率的瓶颈,下面我们看看C#如何结合EPPl... 目录一、技术方案核心对比二、各方案选型建议三、性能对比数据四、核心代码实现1. MiniExcel

POI从入门到实战轻松完成EasyExcel使用及Excel导入导出功能

《POI从入门到实战轻松完成EasyExcel使用及Excel导入导出功能》ApachePOI是一个流行的Java库,用于处理MicrosoftOffice格式文件,提供丰富API来创建、读取和修改O... 目录前言:Apache POIEasyPoiEasyExcel一、EasyExcel1.1、核心特性

Kotlin运算符重载函数及作用场景

《Kotlin运算符重载函数及作用场景》在Kotlin里,运算符重载函数允许为自定义类型重新定义现有的运算符(如+-…)行为,从而让自定义类型能像内置类型那样使用运算符,本文给大家介绍Kotlin运算... 目录基本语法作用场景类对象数据类型接口注意事项在 Kotlin 里,运算符重载函数允许为自定义类型重

Pandas中统计汇总可视化函数plot()的使用

《Pandas中统计汇总可视化函数plot()的使用》Pandas提供了许多强大的数据处理和分析功能,其中plot()函数就是其可视化功能的一个重要组成部分,本文主要介绍了Pandas中统计汇总可视化... 目录一、plot()函数简介二、plot()函数的基本用法三、plot()函数的参数详解四、使用pl

使用Java将各种数据写入Excel表格的操作示例

《使用Java将各种数据写入Excel表格的操作示例》在数据处理与管理领域,Excel凭借其强大的功能和广泛的应用,成为了数据存储与展示的重要工具,在Java开发过程中,常常需要将不同类型的数据,本文... 目录前言安装免费Java库1. 写入文本、或数值到 Excel单元格2. 写入数组到 Excel表格