信息技术在学校考场编排系统中的应用研究

1 / 8 信息技术在学校考场编排系统中的应用研究 信息技术在学校考场编排系统中的应用研究 摘要：信息技术广泛应用于日常生活和工作，提高了我们的办事效率和质量。同样，在学校的校务和教务方面，信息技术也给我们带来了很大的便捷。文章针对校内考试的考场座位编排情况进行分析，就考场人数不等情况下的考场座位编排，提出切实可行、科学高效的座位编排算法，并通过 Excel与其内置的 VBA系统开发工具配合实现了该算法。 关键词：信息技术； ExcelVBA；座位编排；应用 一引言 为保障考试的公平与质量，科学的考场座 位编排是一个重要手段。因此，各类考试，如中考、高考等重大考试，对考场座位都有严格的要求，相应算法与软件日益完善，但是有关学校内部考试的相关研究却不是很多。考场座位编排是教务信息化管理中的一项十分重要的工作 1，科学的座位编排方法可以对考务管理起到很大的促进作用。 二系统开发工具 Excel 是微软公司的 microsoftoffice 的组件之一， Excel2 / 8 具有强大的制表功能，广泛地应用于管理、统计财经、金融等众多领域，它可以进行各种数据的处理、统计分析和辅助决策操作。同样，在学校工作中也有着广泛的应用。 例如班级点名册、课室座位表等的电子文档都是使用它来创建的。 Excel 内 置 了 VBA 系 统 开 发 工 具 ， VBA 指VisualBasicforApplication，它是在 office中广泛应用的宏语言，可以直接对 Excel对象进行编程 2，从而提高 Excel的利用效率。使用它可以增强 Excel 的自动化能力，使用户更高效地完成完成特定任务。 三系统开发 1系统总体设计 在通常的考试中考场人数一般都是 30 人，但是在学校内部考试中考场人数不一定是 30人，本系统充分考虑到这一点，所以在信息输入时每个考场的人数 都要输入。同时也要输入下列信息：考场教室名称、考场数、班级数和考试总人数。系统输入信息的总界面如图 1。 图 1 系统生成编号之前要准备所有学生的信息并用 excel 表示出来，具体格式如图 2 图 2 2、生成考场座位编号程序 系统先对学生进行编号 3 / 8 .cells(n,1+(c-1)*4).Value=0+Trim(Str(c)+.cells(n,1+(c-1)*4).Value 通过上面的语句对学生信息表中的学生序号进行重新编号。因为考场的人数不定，所以考场座位编号是按照几个班 级交替编号的方式生成的，即从 1 班选一个编号在从 2 班选一个编号，以此顺序循环编号，直至编完最后一个学生。 考场座位号生成程序如下： Forn=3To69假设一个考场最多 70人 Forc=1Tobanjishu Ifnum2+110Then Iftemp=10Thenstep2=0+Trim(Str(num2+1)+Trim(Str(temp) EndIf ElseIfnum2+1=10Then Iftemp=10Thenstep2=Trim(Str(num2+1)+Trim(Str(temp) EndIf EndIf 4 / 8 (n,2+(c-1)*4).ValueThen 将编号填入对应的单元格 .cells(n,3+(c-1)*4).Value=step2 修改下次循环的参数程序省略 EndIf NextNext 程序执行完成后的结果如图 3 图 3 3、生成班级查询表程序 在全面生成编号的基础上，生成班级查询表，主要是方便各个班级查询本班学生的考场编号信息。该程序的方法是对生成的 “ 编号表 ” 里面的数据按要求读取并重新排列。具体程序如下 banjishu=(6,7).Value读取班级数 Forj=1Tobanjishu r=1+40*(j-1):cu=1:r1=1:cu1=1+4*(j-1) Fori=1To70假设一个班最多 70人 Ifi=36Then r=3+40*(j-1):cu=5 (2+40*(j-1),cu).Value=(2,cu1).Value 5 / 8 (2+40*(j-1),cu+1).Value=(2,cu1+1).Value (2+40*(j-1),cu+2).Value=(2,cu1+2).Value 复制标题 EndIf (r,cu).Value=(r1,cu1).Value (r,cu+1).Value=(r1,cu1+1).Value (r,cu+2).Value=(r1,cu1+2).Value r=r+1， r1=r1+1复制数据 Next Next 生成后的你表格如图 4 图 4 4.考场座位表生成程序 考场座位表和班级查询表生成是原理是一样的，都是读取“ 编号表 ” 里面的内容重新按照要求排列。首先要读取班级数和每个考场的人数，程序如下： num1=.cells(6,2) Forx=0Tonum1-1 arr(x)=.cells(6+x,4) Next 针对不同考场选择不同数量的学生进行排列 6 / 8 Fori=1Toarr(j) Ifi7And(imod8=1)Then分列 ,每列 10人 num2=num2+1： r=3+jianju*j:cu=1+3*num2 EndIf Ifcount=0Then r1=r1+1： cu1=1： count=8 EndIf count=count-1 Do (r1,cu1).ValueThenExitDo cu1=cu1+4 Ifcount=0Then r1=r1+1： cu1=1： count=8 EndIf count=count-1 Loopdo-loop 目的是删除空白的部分，寻找后面有用的数据 (r,cu).Value=(r1,cu1).Value 当找到数据的时候填入到对应的单元格。 (r,cu+1).Value=(r1,cu1+1).Value (r,cu+2).Value=(r1,cu1+2).Value cu1=cu1+4： r=r+1复制数据 7 / 8 Next 程序执行完成后的表格如下图 5 图 5 四结束语 本系统的开发只是利用了 Excel 众多功能中的一小部分，Excel本身功能强大 3，包括打印、文件处理、格式化和文本编辑；内置大量函数；并可连接到多种数据库。以 Excel作为二次开发平台，结合 VBA编写的计算机程序较好地解决了学校组织考试时座位的编排，提高了工作效率，也减轻了老师的负担。 参考文献： 1安晓东 .基于蚁群算法的电子化考试考场座位编排方法