很多读者小时候都玩过心算24点吧，一副扑克牌，洗匀后，平均分发给四个小伙伴。玩时，每人盲抽一张牌，同时亮牌，看谁最快根据四张牌面代表的数字，组合成一个四则运算算式，计算出24点，那么他取走四张牌。如果没有人可以算出，则本轮作废，收回各自纸牌，重新下一轮。不知道各位读者的战绩如何，小编玩的很糟，常常输成大光光。出于一点小兴趣，这里小编给大家介绍一种通过ACCESS中VBA代码，编写它自动穷举计算24点的实现过程。

工具/原料

ACCESS
VBA
穷举算法
子函数调用

方法/步骤

主窗体界面如下；

现在仅仅只介绍手工输入4个1~13的随机数，例如主窗体中的5,9,10,3这样四个数字，按下Command02的按钮控件，我们看下得到什么结果。数据库弹出一个信息框，VBA穷举出了三个等式，值均为24。仔细观察下，其中有两个应该算作重复等式了，它们仅仅是9和3的加法交换律；

当然也不是每组随机数都可以得到结果为24的算式的，例如，把四个随机数改为5,8,10,3，即第二个9改为8，我们看下又有什么情况发生。数据库再次弹出一个信息框，这次它也是黔驴技穷，表示没有任何值为24的等式可以被穷举出。各位读者是不是觉得很有趣呢；

接下来小编会把VBA代码公示给各位读者，对于核心代码，各位读者一定要仔细推敲啊，希望能让大家有所启示收获。VBA代码1st如下；

VBA代码2nd如下；

VBA代码3rd如下；