应用VBA轻松编排考试试场

龙源期刊网 https://www.sodocs.net/doc/8c12159809.html,

应用VBA轻松编排考试试场

作者：苏志龙

来源：《学习导刊》2013年第01期

【摘要】为了防止学生考试时作弊，有利于班级的管理和教学，本文结合自己的工作经验总结出了一种科学合理地安排考试试场的方法，每次考试编排试场时考生单人单桌，考生座位随机编排，而且前后座位不是同班的同学，同时打印出贴在试场桌子的考生标签。

【关键词】随机函数；四舍五入函数；VBA代码；主要关键字；排序

为了尽量防止考生考试时作弊，得到考生比较的真实的成绩，每次考试学校都要求编排试场时学生单人单桌，而且前后座位不能是同班的同学，同时打印出贴在试场桌子的考生标签。为此笔者在Excel中用VBA代码轻松实现了学校的要求。

一、试场安排表的设置

试场安排表设有“班别”、“人数”、“桌子数”、“试场”、“考生人数”共五列，由于我校是俩学生同坐一张课桌，可以利用四舍五入函数取得桌子数：ROUND（B2/2，0），根据桌子数安排考生人数。

二、贴班级教室表的设置

贴班级教室表即是学生考试时所在试场的去向表，按“试场”、“考号”、“班级”、“姓名”、“性别”、“随机数”设计字段，利用随机函数RAND（）获得随机数，原始表可以不按班级连续存放考生记录，代码中含有按班级排序程序段。

三、编排试场的设计思路及代码

1、思路：分别以随机数和班级为关键字段进行排序，确保每次考生座位随机编排，为了防止前后座位是同班的同学，以人数最多的班级为准先给“贴班级教室”表中的考号赋临时值，按照先排奇数考号再排偶数考号，然后按“考号”字段排序，即可实现同一个班的考生的考号不连续。最后根据“试场安排表”的顺序给考生赋连续的考号和对应的试场教室。

2、代码：

（1）右击工作表标签，在出现的快捷菜单中单击“查看代码”，打开代码设计窗口。

（2）在代码窗口中执行命令“插入/模块”，插入模块1。

（3）录入代码如下：