基于VBA设计的考试编排系统.pdf

Computer Knowledge and Technology电脑知识与技术 软件设计开发 本栏目责任编辑 谢媛媛 第7卷第17期 2011年6月 基于 VBA 设计的考试编排系统 梁小鸥 广东工程职业技术学院 教务处 广东 广州510520 摘要 近年来随着学生人数的增多 考试周教学工作人员手动制作各科考试座位表已经成为一项艰巨而繁琐的工作 考试座位表编 排的系统化是教学工作人员的迫切需求 作者通过VBA在Excel中制作一个应用程序的设计思路及操作流程 根据实际学生人数 和教室规模的选择 实现了考生座位的自动编排 打印考试座位表等功能 经实际应用表明 它能有效的将教学工作者从编排座位 工作中解救出来 减轻他们的工作负担 提高其工作效率 关键词 VBA Excel 教学安排 考试 座位编排 中图分类号 TP317文献标识码 A文章编号 1009 3044 2011 17 4089 03 Examination Seating Arrangement System Based on VBA LIANG Xiao ou Guangdong Polytechnic college Guangzhou 510520 China Abstract In recent years with the increase of students in exam week Manully making examination seat table by teaching staff manually has become an arduous and tedious work Exam seating arrangement of systematization are urgent needs for the teaching staff This system based on the actual number of students and classroom size enables candidates seat features such as automatic numbering print examinations of the seating chart In practical it proved that it effectively reduce teaching staffs work burden and improve their efficiency Key words VBA Excel teaching arrangements exam seating arrangement 考试 是一种严格的知识水平鉴定方法 为了保证结果的公平 防止考生随意就座 安排考试时需要将考生安排到指定座位并 且考试座位进行隔位处理 近年来随着高校的不断扩招 学生人数与日俱增 导致在教学安排中 特别是考试周内 为所有班级的 考试科目手动制作考试座位表成为了一项艰巨而繁琐的工作 考试座位表编排的系统化是教学工作人员的迫切需求 而教务系统 针对此项目进行二次开发成本较大 本文采用科学的方法 结合学院实际情况 通过VBA在Excel中制作 考生座位安排 的应用程 序合理 高效的解决考生座位手动编排问题 从而很大程度上减轻教学管理人员的工作量 提高其工作效率 1系统设计思路 考生考试座位表的编排主要因素有两种 学生名单和教室 学生名单是考试座位表具体编排的内容 而教室的确定是为考试座 位表提供其编排的方法 格式 因此 在系统设计中 重点考虑用户提供这两项数据的方式 尽量做到简单易用 由于我院教室资源 存在着差异性 每间教室的座位格局并非一致 编排时教室不能使用统一模板 本系统针对教室种类过多不便于用户进行选择这一 问题找到了解决办法 即分析出教室资源的不同规模 教室规模直接影响考生座位表的布局 而同一规模的考场可以是容量不同的 教室 则需要进一步用考生人数进行判断 这样就可以通过考场规模和考生人数间接的确定具体考试教室 所以系统在设计时只需 确定考试学生名单 选择教室规模及输入考生人数即可安排学生座位格式 2系统开发工具 Excel被广泛使用于数据处理 统计汇总 分析查询等操作 它强大的数据处理能力已经征服了每一个Excel使用者 考试编排 需要的学生名单 教室座位表等都是由Excel创建而来 Excel VBA Visual Basic For Application程序设计语言 是一款功能强大的办 公软件 它可以完成信息保存 数据计算 信息动态发布等功能 同时 它还是一个开放的平台 即允许用户使用VBA语言进行第二 次开发 基于Excel应用普及率较高 且教学工作人员易于操作 笔者运用Excel及其内置的VBA进行简单编程 实现考场座位表的 编排 3考场座位表编排前期数据准备工作 编程环境使用Excel2007 文件存贮格式采用2007启用宏的工作簿文件 XLSM扩展名 或者Excel97 2003 XLS扩展名 工作 簿文件 同时还需要准备以下数据 1 学生花名册 提供学生姓名字段 2 教室资源容量表 分析其不同教室的规模 如教室座位数为224位 由16列 14行组成 教室过道将其座位分为3大块 每 块分别占用5列 6列 5列 此情况则归属于教室5 6 5规模 4考场座位表编排的实施 收稿日期 2011 03 17 作者简介 梁小鸥 1985 女 湖南张家界人 广东工程职业技术学院教务处科员 学士 研究方向为计算机科学与技术 E mail xsjl Tel 86 551 56909635690964 ISSN 1009 3044 Computer Knowledge and Technology电脑知识与技术 Vol 7 No 17 June 2011 pp 4089 4091 4089 Computer Knowledge and Technology电脑知识与技术 本栏目责任编辑 谢媛媛 软件设计开发 第7卷第17期 2011年6月 此系统是在Excel2007的环境下编写 启动Excel2007载入 考试座位编 排表 后 须在安全警告选项中选择启用 宏和ActiveX 进入系统的启动界 面 如图1 4 1进入考试座位编排的制作 通过 花名册 工作表中的 显示窗体 按钮进入到考试座位安排窗口 Private Sub显示窗体 Click 点击 显示窗体 按钮 进入考试座位安排窗口 UserForm1 Show UserForm1即为考试座位安排窗口 End Sub 进入考试座位编排表后 将学生姓名录入到指定位置 点击 显示窗体 按钮 进入考场 座位编排环节 如图2 4 2考场基本信息的录入 1 在考试座位安排窗口中完善考试相关数据信息 如考试地点 考试科目等 Private Sub考试地点 Change 以录入考试地点为例 Dim ksdd As String ksdd 考试地点 Text Sheets 座位表 Select Range M2 Value ksdd 将 考试地点 后的文本框内容写入M2单元格 End Sub 2 选择对应的考场规模 来设定考场座位安排的行 列数值 Private Sub OptionButton1 Click 选择 5 6 5规模 Dim col As Integer Dim row As Integer col 9 row 13 设置列数为9 行数为13 End Sub 3 安排座位 控件 触发此按键后系统会根据选择的考场规模进行计算 得出此次排考的座位表范围 以及在此范围中所有单 元格的值 即把学生名单放入对应考场进行自动编排 Private Sub anpaizuowei Click num InputBox 此次考试的学生人数是 请输入 确定考生人数 并将考生人数赋值于num变量 Sheets 座位表 Select Range M4 Value num Dim col As Integer 定义分配学生的列数 If OptionButton1 Value True Then col 9 ElseIf OptionButton2 Value True Then col 7 End If 通过If语句来判断用户所选择的考场模式 从而得到编排考场时需要安排的列数 Sheets 花名册 Select 选择要复制的表 Range A2 Z1000 Select 确定学生名单区域 Selection Copy 复制到剪贴板上 Sheets 座位表 Select 选择要粘贴的表 Range A1 Select 选中a1单元格 准备粘贴 ActiveSheet Paste 图1考试编排系统启动界面 图2考生座位安排窗口 4090 Computer Knowledge and Technology电脑知识与技术 软件设计开发 本栏目责任编辑 谢媛媛 第7卷第17期 2011年6月 For n 2 To num ssourcecell A n 选取原单元格 stemp1 n 1 Mod col stemp2 n 1 col 1 计算目标单元格的行数 stemp3 Chr Asc A 2 stemp1 得到目标单元格的具体列值 sDestcell stemp3 stemp2 形成目标单元格 Range ssourcecell Select Selection Cut Destination Range sDestcell 移动目标单元格 Next Range A7 Select End Sub 4 清空数据 控件 它将执行于规定范围内单元格数据的删除操作 起到编排座位初始化的作用 Private Sub qingkongshuju Click Dim worksheetobject As Worksheet Dim rangeobject As Range Set rangeobject Worksheets 座位表 Range A1 Z100 rangeobject Clear 将设定区域Range A1 Z100 的数据清空 MsgBox 指定单元格区域的数据被清空 vbInformation End Sub 5 打印预览 控件 它的作用在于设置规定范围内单元格 的格式 完善 过道 讲台 等标识 使画面美观易懂 最终呈现 出考试座位编排效果 如图3 5总结 此系统是以Excel2007作为开发平台 结合VBA编写的考试座位编排系统 它成本低 兼容性强 并结合我院实际情况 通过分 析众多教室布局得出精简的教室规模 方便用户选择使用 操作简单容易掌握 经实际应用表明 它能有效的将教学工作者从编排 座位工作中解救出来 减轻他们的工作负担 提高其工作效率 取得了预期的效果 为了更加方便用户使用 今后本系统将力求与教务系统中直接导出的教室资源 学生名册进行对接 系统根据学生人数自动检 索可用教室 实现考场编排的智能化 参考文献 1 李晓