通用题库管理系统的设计与实现
- 格式:pdf
- 大小:817.06 KB
- 文档页数:4
96.勰j…~5齐南职业学院学报 Feb.2013 No.1(SeriaI No.96
通用题库管理系统的设计与实现
张玉叶
(济南职业学院,山东济南250103)
摘要:题库系统不但有利于实现教考分离,还能减轻任课教师组织试卷的工作负担,提高工作效率, 同时避免人工组卷过程的主观性和片面性,保证同一教学大纲指导下多班级考试的公平性。利用VBA开发 的通用题库管理系统,具有良好的通用性和可扩展性,同时因系统直接借助于Excel本身强大的功能,开 发投入相对较少,且无须安装,使用简单方便。 关键词:EXCEL;VBA;题库管理系统;题库 中图分类号:TP312 文献标识码:A 文章编号:1673 ̄4270(2013)O1—0O87—04
题库系统是计算机辅助教学和信息化建设的重
要内容,是实现考试规范化、科学化的重要措施,
是公平、公正、合理检验学生真实水平的重要依据。 题库系统不但有利于实现教考分离,还能减轻任课教
师组织试卷的工作负担,提高工作效率,同时避免
人工组卷过程的主观性和片面性,保证同一教学大
纲指导下多班级考试的公平性。目前的一些题库管
理系统,要么是花费大量人力物力开发的专业软件, 没有通用性,要么只能在线考试,无法生成纸质试卷,
不能满足学校的需要。考虑到目前多数学校的实际
情况,利用Excel VBA开发了一通用题库管理系统, 利用该系统可根据学科需要轻松自由构造题库,题
型种类及数量可根据需要任意扩充,使用方便,维
护简单,使得组卷工作变得轻松、简单。
一、设计思路及系统功能 要使系统具有良好的通用性和可扩展性,同时
开发成本又不能太高,还要使用方便。考虑到现在
多数老师都能较熟练使用Excel软件,因Excel本身 又具有强大的数据管理功能,因此想到借助于Excel
本身强大的数据管理功能配合上VBA编程,实现了
一个简单实用的通用题库管理系统。 系统主要有两大功能:题库管理功能和试卷生 成功能。根据需要系统设置了两类不同的用户,系
统管理员与普通用户。系统管理员可以进行题库的 管理及试卷的生成,而普通用户只能使用试卷生成
功能,不能修改或浏览题库,这样可保证题库的质
量和防止试题泄露。对于一门课程只有一人担任的
情况,此时系统管理员和普通用户就可只由任课老 师一人承担;而对于同一门课程有多人同时上的情
况,为保证同一教学大纲指导下多班级考试的公平
性,同时也为了检验老师的教学效果,经常由别人 而非任课老师自己出题考试,这时系统管理员与普
通用户就需由不同的人来承担。通常学科组长或课
程负责人可作为系统管理员,负责题库的管理与维 护,任课老师作为一般用户,可随时从题库中抽取
题目生成试卷进行测试,使得系统具有很大的灵活 性。
二、系统实现过程及关键技术 系统主要由三大模块构成:登录模块、题库管
理模块和试卷生成模块。 (一)登录模块 此模块主要是根据不同用户类型给其显示不同 的操作界面,提供不同的功能,实现相对简单,不
再赘述。
作者简介:张玉叶(1973一),女,山东济南人,济南职业学院讲师。 基金项目:本文系济南职业学院2011年教改项目(项目编号:2011JG16)。 ・87・
DimtAs Integer
Dim wb As Workbook
Set wb=Workbooks.Add ’建一临时工作薄,用来暂放选中题型表中数据
以避免进行排序时打乱原表中题目的次序。
t=1
For k=1 To UBound(choice) total=choice(k,2)
selnum=choice(k,3) For i=l To ThisWorkbook.Worksheets.Count If Trim(ThisWorkbook.Sheets(i).Name)Like
Trim(choice(k,1))Then ThisWorkbook.Sheets(i).Activate
ThisWorkbook.Sheets(i).Copy before:=wb.
Sheets(i)
wb.Sheets(I).Range(Cells(2,11),Cells(total+1,
1 1)).Formula=”=rand()” ’第K列用来放随机数
wb.Sheets(I).Range(Cells(2,1),Cells(total+1,
1】)).Sort—
keyl:=wb.Sheets(1).Range(Cells(2,l1),Cells(total
+1,11)),一 orderl:=xlAscending,Header:=xlGuess ’按第K列排序
wb.Sheets(1).Range(Cells(2,1),Cells(selnum+l,
3)).Copy ’将前selnum行复制到剪贴板中,每行包括题
号、题目内容、答案3列 ThisWorkbook.Sheets(”试卷”).Activate
ThisWorkbook.Sheets(”试卷”).Cells(t,1).Value= choice(k,1)’题型名
ThisWorkbook.Sheets(”试卷”).Cells(t,1).Font.
Colorlndex=3’设置颜色 ThisWorkbook.Sheets(”试卷”).Range(Cells(t+l,
1),Cells(t+1,3)).PasteSpecial—
Paste:=xlPasteValuesAndNumberFormats ’将剪贴板中内容复制过来,复制值,保证了题 号从1开始
ThisWorkbook.Sheets(”答案”).Activate
ThisWorkbook.Sheets(”答案”).Cells(t,1).Value=
・90・ choice(k,1) ThisWorkbook.Sheets(”答案”).Cells(t,1).Font.
ColorIndex=3 ThisWorkbook.Sheets(”答案”).Range(Cells(t+1,
1),Cells(t+1,3)).PasteSpecial— Paste:=xlPasteValuesAndNumberFormats ThisWorkbook.Sheets(”答案”).Cells(1,1).Select
t=t+selnum+1’下一种题型的位置
EndIf
Next
Next wb.Close savechanges:=False
Setwb=Nothing 本文介绍的通用题库管理系统具有良好的通用 性;题库管理方便,题型可根据课程的需要任意添
加、删除或修改,因此,系统还具有良好的可扩展性。
同时因本系统直接借助于Excel本身强大的功能, 因此开发投入相对较少,且无须安装,对环境要求
不高,使用简单方便。利用本系统不但能轻松方便
地建设某门课程的题库,同时又能随时方便快捷地 生成一份试卷或平时测验,既减轻了老师的工作量,
同时又提高了工作效率。该系统已用于我院一些基
础课程题库的建设,使用效果良好。目前该系统还
只能处理不带图表和公式的课程,同时组卷策略只 选用了较简单的随机出题,具有一定的局限性,笔
者将继续对此系统进行完善,争取采用更加科学合
理的组卷策略,同时让系统能够适用于任何一门课
程。
参考文献 [1】 韩加国.Excel VBA从入门到精通【M].北京:化学工业出版 社,2010. [2] 丁士锋.Excel VBA标准教程[M].北京:化学工业出版社, 2011. 【3】 张强.Excel 2007与VBA编程从入门到精通【M1.北京:电子 工业出版社,2008. [4】 张燕译.Excel VBA实战技巧精粹[M】.北京:人民邮电出版 社.2007. [5J 罗刚君.Excel VBA程序开发自学宝典【M】.北京:电子工业 出版社,201I. (责任编辑:汝艳红)