1、首先是自动计算质数ACCESS的主窗体视图；
2、其中Here input the upper number，表示输入所计算的数值范围上限，查找100以内的质数，或是1000以内，甚至10000以内；The quantity of prime number，表示统计出在计算范围内质数的数量；Prime表则汇总数值范围内所有的质数合集；我们在计算上限内输入200，点击Calculate按钮，弹出对话框”Please confirm whether you will do calculation right now!”，点击确定；
3、显示结果如下，200以内的质数有46个，Prime表中会详细列出具体有哪些质数，最小数是2，最大数是199；
4、在计算上限内输入2000，则显示结果如下，2000以内的质数有303个，最小数是2，最大数是1999；
5、在计算上限内输入20000，则显示结果如下，20000以内的质数有2262个，最小数是2，最大数是19997；
6、在计算上限内输入200000，则显示结果如下，200000以内的质数有17984个，最小数是2，最大数是199999；
7、可以发现，当取值范围10倍增加时，质数的数量并不是线型增加的，呈放慢增速的趋势，有兴趣的读者可以思考一下其中规律。接下来介绍下设计思路与算法构成，从质数定义出发，使用For循环代码，将取值范凿速钲挞围内的每个自然数，从与2开始的自然数，直到与其自身平方根的整数求模，即余数是否为零，只要每次都不为零，即不能整除，则此自然数为质数，记录到Prime表中，以此类推，最终汇总。相应VBA代码如下1st；
8、相应VBA代码如下2nd；
