淮安民间传说着一则故事——“韩信点兵”：秦朝末年，楚汉相争。有一次，韩信将1500名将士与楚王大将李锋交战。苦战一场，楚军不敌，败退回营，汉军也死伤四五百人，于是，韩信整顿兵马也返回大本营。当行至一山坡，忽有后军来报，说有楚军骑兵追来。只见远方尘土飞扬，杀声震天。汉军本来已十分疲惫，这时队伍大哗。韩信兵马到坡顶，见来敌不足五百骑，便急速点兵迎敌。他命令士兵3人一排，结果多出2名；接着命令士兵5人一排，结果多出3名；他又命令士兵7人一排，结果又多出2名。韩信马上向将士们宣布：我军有1073名勇士，敌人不足五百，我们居高临下，以众击寡，一定能打败敌人。汉军本来就信服自己的统帅，这一来更认为韩信是“神仙下凡”、“神机妙算”。于是士气大振。一时间旌旗摇动，鼓声喧天，汉军步步进逼，楚军乱作一团。交战不久，楚军大败而逃。
工具/原料
Excel
方法/步骤
1
题目。
2
进入Visual Basic编辑器。
3
插入模块。
4
编程。根据题意得出结果符合3个条件：①3的倍数+2；②5的倍数+3；③7的倍数+2。联合①②得出：3a-1是5的倍数，联合①③得出：3a是7的倍数。所以取两个条件进行判断。3a+2就是所求结果。
5
关闭vbe，启动宏。
6
执行宏。
7
运行结果。
8
验证。