基于Excel试卷生成和评分系统.docVIP

基于Excel试卷生成和评分系统 　　摘要：在Excel中开发考试和评分系统，过程简单、快捷、高效，具有其他应用软件不可比拟的优势。通过利用Excel公式和VBA编程，实现题库管理、自动组题和评分等核心功能，构建了一个试卷自动生成和评分系统。该系统能节省纸张的费用、减少诸多考试环节，节省教师大量的阅卷时间，在高等院校中具有很高的推广价值。 　　关键词：Excel；电子试卷；试卷生成；评分系统 　　中图分类号：G434文献标识码：B文章编号：1673-8454(2011)19-0037-03 　　 　　一、引言 　　在日常教学中，经常要为各阶段性考试准备试卷，教师一般都有现成的考试题目，但是为了更好地组织试卷，仍然需要对题目进行再处理。[1]随着题目不断积累增多，在选取和编排上花费的精力也越来越多，试题的管理、试卷的生成和评分成为一个重要问题。[2] 　　Excel是Office系列办公软件中创建和维护电子表格的应用软件，具有统计、分析、查询、数学计算等丰富的函数和VBA程序设计功能，利用它们可以进行各种数据处理、统计分析和辅助决策操作。此外，Excel还具有数据安全功能，能有效地保护单元格、工作表、工作簿不被非法修改，从而为制作电子试卷提供有力的安全保障。本文利用Excel的函数和VBA等功能实现题库管理、试卷自动生成和评分，构建一个考试系统，节省教师大量的组卷和阅卷时间，提高工作效率。 　　二、题库的构建和管理 　　建立一个Excel工作簿文件，插入多个工作表，作为不同类型题目的题库，如图1所示。 　　在每个工作表中保存相应的备选试题，具体格式为：工作表中A列存放试题的题号(按顺序从小到大进行编号)；B列中存放试题的题干；C列中存放试题的答案。例如，选择题题库的工作表如图2所示。其他类型题库的工作表结构类似。 　　三、试卷的自动生成 　　在当前Excel工作簿中插入一个工作表，命名为“试卷”。在试卷工作表中制作试卷格式。组卷前的试卷工作表如图3所示。 　　试卷的卷头可以按照考试的要求具体制作。考生打开Excel开始考试时，只需要填入姓名、学号和专业，然后点击“生成试卷，开始考试”按钮，则系统会自动从相应题库中随机抽取试题以组成试卷，该按钮在考生点击一次后自动失效，以避免考生重复抽题。点击该按钮应执行的VBA代码如下： 　　Private Sub CommandButton1_Click() 　　Dim rng As Range, c As Range 　　Dim k As Integer 　　Dim i As Byte 　　k = 4 　　Set rng = [A4:A8] 　　For Each c In rng 　　Cells(k, 1) = Int(Rnd() * 99 + 1) 　　c = Cells(k, 1) 　　Do While Application.WorksheetFunction.CountIf(rng, Cells(k, 1)) 1 　　Cells(k, 1) = Int(Rnd() * 99 + 1) 　　c = Cells(k, 1) 　　Loop 　　k = k + 1 　　Next 　　CommandButton3.Enabled = False 　　End SubCommandButton1.Enabled = False 　　End Sub 　　该代码在A列的A4至A8单元格随机生成范围在[1:100]的5个随机数(假设选择题题库中共有100道备选题目)，然后根据这5个随机数从选择题题库中抽取5道选择题。因此在C4单元格填入如下公式：“=IF($A4=,,VLOOKUP($A4,选择题!$A:$B,2,))”，并向C5至C8单元格进行填充。这样试题的随机抽取并组题就完成了。在考生进行答题时，应将答案填入相应的答题单元格，为了避免考生填入无关的内容，可将该单元格的数据有效性设置为只能选择A、B、C或D。具体操作为：选择菜单“数据”→“有效性”；在数据有效性对话框中的“允许”下拉框中选择“序列”，在“来源”文本框中输入“A,B,C,D”，如图4所示。 　　此外，由于A列是为了随机选取试题而产生的随机数，并不需要在试题中显示出来，因此应将该列进行隐藏。生成好的试卷如图5所示。试卷其他类型考题的自动生成方法类似，在此不再赘述。 　　四、试卷的评分系统 　　在当前Excel工作簿文件中插入一个工作表，命名为“成绩”。在成绩工作表中放置姓名，学号，专业、卷面答案、判分、各大题的总分数和最后的总成绩，其结构如图6所示。 　　在这个成绩工作表中，姓名、学号、专业和卷面答案利用Excel单元格引用取自试卷工作表对应的单元格内容，自动评