老哥学习网 - www.lg9.cn 2024年05月16日 06:01 星期四
当前位置 首页 >情感故事 >

巧用Office实现无纸化考试自动判卷|考研判卷

发布时间:2019-06-03 06:56:05 浏览数:

  [摘 要] 随着信息技术的不断普及,无纸化考试的优势日益增显,学生可在计算机上直接答题,教师自动获取学生得分,从而大大提高了工作效率。本文主要讨论如何巧用大众化软件Office实现大量选择或填空题无纸化考试自动判卷。
  [关键词] Office; 宏命令; 自动判卷; Word; Excel; 分隔符
  doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 24. 058
  [中图分类号] TP391 [文献标识码] A [文章编号] 1673 - 0194(2012)24- 0098- 01
  很多课程考试一般以大量的客观题形式组织考试,繁重的阅卷既增加了老师的工作负荷,还难免出现一些误批。事实上大家非常熟悉的Office软件就能解决这一问题。教师收集试题一般用Word格式,而自动判卷利用Office的Excel功能。这就产生一个问题,如何将用Word格式的选择题转换为Excel格式。
  1 将Word格式的选择题转换为Excel格式
  1.1 设立分隔字符,将文档保存为纯文本文件
  目的:将Word中每题题干和选项组成一段,题干与选项间、选项间设立分隔字符用于Excel中分列标志。具体如下。①去除各题中题干与选项间、选项与选项间空格串:利用“查找与替换”功能将选项间所有的空格标志符“^w”替换栏为空白,删除选项间空格串。②设立分隔符(特殊符号且文中所没有的,以“&”为例):将选项标识如A)、B)、C)、D)分别替换成&A)、&B)、&C)、&D),(替换次数应与题数一致,否则说明题中另含选项标识)作为选项间分隔符。③去除分隔符&前所有的段落标志符:“^p&”替换成“&”,使每题独立成段,保存为“wst.txt”文件(如图1)。
  1.2 将txt文件转换为Excel文件
  打开Excel空白文档,点击“文件→打开”命令,双击刚保存wst.txt文件,在“文本导入向导——3步骤1”对话框中选定“分隔符号”,单击“下一步”,在“文本导入向导——3步骤2”对话框中选定分隔符号“其他”,并填入上一步中设定的分隔符“&”,查看预览后,单击“下一步”在“文本导入向导——3步骤3”对话框中查看预览后单击“完成”,就将.Txt文档转换成Excel文档。此时转换的数据格式还不是十分理想,还需要对Excel数据表格进行必要的单元格格式设置,并添加合适的列标题,同时增加“答案”列。答案序列生成方法:双击第一题答案单元格,单击“数据→有效性”,在“数据有效性”对话框中“允许”下拉列表中选择“序列”,同时将“来源”数据框中输入“A,B,C,D”。单击确定即可生成第一题的4个选项序列供考生选择,利用Excel自动填充功能,完成每题的选择序列。工作表命名为“shiti”,保存为“试题.xls”文件。效果如图2。
  2 利用Excel自动判卷
  2.1 设置答案工作表文件
  新建工作簿“答案.xls”,将sheet1工作表重命名为“daan”,将A、B、C、D四列第一单元格输入“题号,标准答案,得分,总分”作为列标题。“题号”和“标准答案”两列需录入。“得分”列利用IF函数判断标准答案单元格和“试题.xls”相应答案单元格是否相等,相等返回该题分值,不相等返回0分。例如:在得分单元格B2中输入“=IF(B2=E:\论文\ [试题.xls]shiti!F2,3,0)”(F2是考生答题单元格,3是该题分值),利用填充柄生成其余得分单元格公式。在“总分”列D2单元格中利用SUM函数求总分,如图3。
  2.2 利用宏自动判卷
  打开“试题.xls”,点击“工具→宏→录制宏”,在“录制宏”对户框中输入宏名“zdpj”,并制订快捷键Ctrl+z,单击“确定”,开始录制新宏。点击“工具→宏→Visual Basic 编辑器”,打开“工程资源管理器”,插入“模块”并编写代码如下:
  Sub zdpanjuan()
  Dim cj As Integer
  mima = InputBox("请输入密码:")
  If mima = "810108" Then
  Set newbook = Workbooks.Open("E:\论文\答案.xls")
  cj= newbook.Sheets("daan").Cells(2, 4)
  zf= Str(cj)
  newbook.Close SaveChanges:=True
  Set newbook = Nothing
  MsgBox "该考生成绩为:" & zf
  Else
  MsgBox "请重输密码:"
  End If
  End Sub
  关闭Visual Basic 编辑器,打开试题.xls文件,单击“工具→宏→执行宏”,选定宏“zdpj”,单击“确定”按钮(也可以使用设定好的快捷键),输入密码后就能直接得出某考生成绩。

推荐访问:无纸化 巧用 考试 Office

相关文章:

Top