信息技术在学校考场编排系统中的应用研究（黄尧颖原创）

信息技术在学校考场编排系统中的应用研究黄尧颖(巢湖市第二中学 安徽 巢湖 238000)摘要：信息技术广泛应用于日常生活和工作，提高了我们的办事效率和质量。同样，在学校的校务和教务方面，信息技术也给我们带来了很大的便捷。文章针对校内考试的考场座位编排情况进行分析，就考场人数不等情况下的考场座位编排，提出切实可行、科学高效的座位编排算法，并通过Excel与其内置的VBA系统开发工具配合实现了该算法。关键词：信息技术；ExcelVBA；座位编排；应用4一引言为保障考试的公平与质量，科学的考场座位编排是一个重要手段。因此，各类考试，如中考、高考等重大考试，对考场座位都有严格的要求，相应算法与软件日益完善，但是有关学校内部考试的相关研究却不是很多。考场座位编排是教务信息化管理中的一项十分重要的工作1，科学的座位编排方法可以对考务管理起到很大的促进作用。二系统开发工具Excel 是微软公司的Microsoft office 的组件之一，Excel 具有强大的制表功能，广泛地应用于管理、统计财经、金融等众多领域，它可以进行各种数据的处理、统计分析和辅助决策操作。同样，在学校工作中也有着广泛的应用。例如班级点名册、课室座位表等的电子文档都是使用它来创建的。，Excel 内置了VBA系统开发工具，VBA 指VisualBasic for Application，它是在Office 中广泛应用的宏语言，可以直接对Excel 对象进行编程2，从而提高Excel 的利用效率。使用它可以增强Excel 的自动化能力，使用户更高效地完成完成特定任务。三系统开发1系统总体设计在通常的考试中考场人数一般都是30人，但是在学校内部考试中考场人数不一定是30人，本系统充分考虑到这一点，所以在信息输入时每个考场的人数都要输入。同时也要输入下列信息：考场教室名称、考场数、班级数和考试总人数。系统输入信息的总界面如图1。图1系统生成编号之前要准备所有学生的信息并用excel表示出来，具体格式如图2图22、生成考场座位编号程序 系统先对学生进行编号 .Cells(n, 1 + (c - 1) * 4).Value = 0 + Trim(Str(c) + .Cells(n, 1 + (c - 1) * 4).Value通过上面的语句对学生信息表中的学生序号进行重新编号。因为考场的人数不定，所以考场座位编号是按照几个班级交替编号的方式生成的，即从1班选一个编号在从2班选一个编号，以此顺序循环编号，直至编完最后一个学生。考场座位号生成程序如下：For n = 3 To 69 假设一个考场最多70人 For c = 1 To banjishu If num2 + 1 10 Then If temp = 10 Then step2 = 0 + Trim(Str(num2 + 1) + Trim(Str(temp) End If ElseIf num2 + 1 = 10 Then If temp = 10 Then step2 = Trim(Str(num2 + 1) + Trim(Str(temp) End If End If If .Cells(n, 2 + (c - 1) * 4).Value Then 将编号填入对应的单元格 .Cells(n, 3 + (c - 1) * 4).Value = step2 修改下次循环的参数程序省略End If Next Next程序执行完成后的结果如图3图33、生成班级查询表程序在全面生成编号的基础上，生成班级查询表，主要是方便各个班级查询本班学生的考场编号信息。该程序的方法是对生成的“编号表”里面的数据按要求读取并重新排列。具体程序如下banjishu = st0.Cells(6, 7).Value 读取班级数 For j = 1 To banjishu r = 1 + 40 * (j - 1): cu = 1: r1 = 1: cu1 = 1 + 4 * (j - 1) For i = 1 To 70 假设一个班最多70人 If i = 36 Then r = 3 + 40 * (j - 1): cu = 5 st2.Cells(2 + 40 * (j - 1), cu).Value = st1.Cells(2, cu1).Value st2.Cells(2 + 40 * (j - 1), cu + 1).Value = st1.Cells(2, cu1 + 1).Value st2.Cells(2 + 40 * (j - 1), cu + 2).Value = st1.Cells(2, cu1 + 2).Value 复制标题 End If st2.Cells(r, cu).Value = st1.Cells(r1, cu1).Value st2.Cells(r, cu + 1).Value = st1.Cells(r1, cu1 + 1).Value st2.Cells(r, cu + 2).Value = st1.Cells(r1, cu1 + 2).Value r = r + 1， r1 = r1 + 1 复制数据 Next Next生成后的你表格如图4图44. 考场座位表生成程序考场座位表和班级查询表生成是原理是一样的，都是读取“编号表”里面的内容重新按照要求排列。首先要读取班级数和每个考场的人数，程序如下： num1 = .Cells(6, 2) For x = 0 To num1 - 1 arr(x) = .Cells(6 + x, 4) Next针对不同考场选择不同数量的学生进行排列 For i = 1 To arr(j) If i 7 And (i Mod 8 = 1) Then 分列,每列10人 num2 = num2 + 1： r = 3 + jianju * j: cu = 1 + 3 * num2 End If If count = 0 Then r1 = r1 + 1： cu1 = 1： count = 8 End If count = count - 1 Do If st1.Cells(r1, cu1).Value Then Exit Do cu1 = cu1 + 4 If count = 0 Then r1 = r1 + 1： cu1 = 1： count = 8 End If count = count - 1 Loop do-loop目的是删除空白的部分，寻找后面有用的数据 st3.Cells(r, cu).Value = st1.Cells(r1, cu1).Value当找到数据的时候填入到对应的单元格。 st3.Cells(r, cu + 1).Value = st1.Cells(r1, cu1 + 1).Value st3.Cells(r, cu + 2).Value = st1.Cells(r1, cu1 + 2).Value cu1 = cu1 + 4： r = r + 1 复制数据 Next程序执行完成后的表格如下图5：图5四结束语本系统的开发只是利用了Excel众多功能中的一小部分，Excel 本身功能强大3，包括打印、文件处理、格式化和文本编辑；内置大量函数；并可连接到多种数据库。以Excel 作为二次开发平台，结合 VBA 编写的计算机程序较好地解决了学校组织考试时座位的编排，提高了工作效率，也减轻了老师的负担。参考文献：1 安晓东. 基于蚁群算法的电子化考试考场座位编排方法. 中北大学学报(自然科学版). 2007,28(3), 212-216.2 谢红霞，吴红梅. 基于VBA的考场排座程序的开发及应用.计算机教育.2007(10), 9-11.3 罗勇为. 基于生态学视角的基础教育信息化可持续发展研究. 中国电化教育. 2010.6. (281), 22-25.作者简介：黄尧颖，中学教师，硕士研究生，研究方向信息技术教育，智能算法