用Excel制作标准化试卷

【摘 要 】本文介绍了用Excel2007制作标准化试卷模板的方法,以及模板的使用方法.用此模板制作的试卷具有随机从题库抽题,倒计时,以及自动阅卷功能.

【关 键 词 】倒计时;题库;随机;模板

在学习过程中,为了了解学生对知识的掌握程度,经常需要进行测试.测试除了需要限定考试时间外,还常常需要使每份试卷的题目是从题库中随机抽取,且在答卷完成后,能够自动阅卷,给出考试成绩.在Excel2007中,按照以下步骤即可制作出限时随机抽题标准化试卷的模板.

1.输入试卷基本信息

新建一工作簿保存为“试卷”,类型为“启用宏的模板“.在“sheet1”工作表的A1、单元格输入“题库题数”,在A2、C2单元格中分别输入“试卷题数”和“每题分数”,在C3单元格输入“考试时长(时:分:秒)”.为B1、B2单元格设置“数据有效性”:选中B1单元格,在“数据”选项卡上的“数据工具”组中,单击“数据有效性”,在打开的“数据有效性”对话框中单击“设置”选项卡,设置允许输入“1-100”之间的“整数”(以题库中最多有100题为例);在“出错警告”选项卡的“错误信息”中输入“请输入题库中题目的数量”;为B2单元格设置“数据有效性”为允许输入“1-100”之间的“整数“;在“出错警告”选项卡的“错误信息”中输入“请输入试卷中题目的数量”;为D2单元格设置“数据有效”为:允许输入“0.5-100”之间的“小数”;为B3单元格设置“时:分:秒”的格式:右击B3单元格,在快捷菜单中单击“设置单元格格式”命令,在打开的“设置单元格格式”对话框中单击“数字”选项卡,在“分类”列表中选中“自定义”,在“类型”列表中选中“h:mm:ss”,在“保护”选项卡,取消其“锁定”.

2.制作题库

将“sheet2”工作表改名为“试卷”,并在其中输入单选题题库.在表格的A1至A3单元格分别输入“班级”、“学号”、“姓名”;在G1、G2单元格分别输入“倒计时”、“得分”;设置在保护工作表时,可以编辑B1至B3单元格、H1单元格,选定B1至B3单元格及H1,在选定位置右击鼠标,单击快捷菜单中的“设置单元格格式”命令,在“设置单元格格式”对话框中单击“保护”选项卡,取消其“锁定”.在H1单元格中输入公式“等于Sheet1!B3”.

在“试卷”工作表的第5行开始输入题库.在A5至F5单元格分别输入“题号”、“题目”、“答案”、“正确答案”、“得分”、“随机”;在“题目”列下每个单元格输入一试题及选项;为“答案”列下的单元格设置“数据有效性”为允许输入“序列”,“来源”为“A,B,C,D”;在“正确答题”列下的每个单元格输入相应每道题目的答案;在E6单元格输入公式“等于IF(C6等于D6,Sheet1!D$2,0)”,然后将其复制到“得分”列的各个单元格;在“随机数”列下的各个单元格输入公式“等于RAND()”.

设置学生在答题时只能编辑答案单元格,即取消答案列下的所有单元格的“锁定”状态.

在G1、G2单元格分别输入“倒计时:”、“得分:”,并将G1、G2单元格设置成“右对齐”.

3.制作按钮

3.1 制作“初始化试卷”按钮

单击“sheet1”工作表,在“开发工具”选项卡上的“控件”组中,单击“插入”,再单击“ActiveX控件”中的“命令按钮(ActiveX控件)”;在工作表适当的位置拖放出一按钮;右击按钮,单击快捷菜单中的“属性”命令,将其“caption”设置为“初始化试卷”.

双击此按钮,编写按钮的“click”事件代码如下:

Private Sub CommandButton1_Click()

Dim n ’n用于存放题库中的题目数量

n 等于 Worksheets("Sheet1").Range ("B1").Value + 5

For i 等于 5 To n ‘隐藏所有题目

Worksheets(“试卷”).Rows (i).Hidden 等于 True

Next

Sheets("Sheet1").Select

ActiveWindow.SelectedSheets.Vis-ible等于False ‘隐藏“sheet1”工作表

ActiveSheet.Protect DrawingOb-jects:等于True,Contents:等于True,Scenarios:等于True,Password:等于”123456” ‘保护“试卷”工作表,为“123456”


ActiveWorkbook.Protect Structu- re:等于True,Windows:等于False,Password:等于"654 321"

‘保护工作簿结构,为“654321”

End Sub

3.2 制作“开始考试”按钮

单击“试卷”工作表,在“开发工具”选项卡上的“控件”组中,单击“插入”,再单击“ActiveX控件”中的“命令按钮(ActiveX控件)”;在工作表适当的位置拖放出一按钮;右击按钮,单击快捷菜单中的“属性”命令,将其“caption”设置为“初始化试卷”.

双击此按钮,编写按钮的“click”事件代码如下:

Private Sub CommandButton1_Click()

Dim n,m ’n用于存放题库中的题目数量,m用于存试卷中的题目数量

n 等于 Worksheets("Sheet1").Range ("B1").Value+5

m 等于 Worksheets("Sheet1").Range ("B2").Value+6

ActiveSheet.Unprotect Passwo-rd:等于”123456” ‘撤消“试卷”工作表的保护

CommandButton1.Visible 等于 False ‘隐藏“开始考试”按钮 For i 等于 5 To n ‘显示题库中所有的题目

Rows(i).Hidden 等于 False

Next

Range(“F6”).Select ‘对题库中的题随机排序

ActiveWorkbook.Worksheets(“试卷”).Sort.SortFields.Clear

ActiveWorkbook.Worksheets(“试卷”).Sort.SortFields.Add Key:等于Range (“F6”),SortOn _

:等于xlSortOnValues,Order: 等于xlAscending,DataOption:等于xlSortNormal

With ActiveWorkbook.Worksheets (“试卷”).Sort

.SetRange Range(Cells(6,1),Cells(n,6))

.Header 等于 xlNo

.MatchCase 等于 False

.Orientation 等于 xlTopToBottom

.SortMethod 等于 xlPinYin

.Apply

End With

Range(“A6”).Select ‘对排好序的题加序号

ActiveCell.FormulaR1C1 等于 "1"

Range("A7").Select

ActiveCell.FormulaR1C1 等于 "2"

Range("A6:A7").Select

Selection.AutoFill Destinat-ion:等于Range(Cells(6,1),Cells(n,1)),Type:等于xlFillDefault

For i 等于 m To n ‘隐藏题库中多出的题目

Rows(i).Hidden 等于 True

Next

Columns(“D:F”).Select ‘隐藏“正确答案”、“得分”、“随机”三列

Selection.EntireColumn.Hidden 等于 True

ActiveSheet.Protect DrawingO-bjects:等于True,Contents:等于True,Scenari-os:等于True,Password:等于"123456"

‘计算考试结束时间,并显示在H1单元格

Sheet2.倒计时

End Sub

Sub 倒计时()

Dim n,m ’n用于存放题库中的题目数量,m用于存试卷中的题目数量

n 等于 Worksheets("Sheet1").Range ("B1").Value + 5

m 等于 Worksheets("Sheet1").Range ("B2").Value + 6

Worksheets(“Sheet1”).Range (“B3”).Value 等于 Worksheets(“Sheet1”).Range(“B3”).Value - 1 / 3600 / 24 ‘减去1秒

If Worksheets("Sheet1").Range ("B3").Value > 0 Then

Application.OnTime Time + TimeSerial(0,0,1),”sheet2.倒计时”,,True ‘每过一秒调用本程序一次

[H1] 等于 Worksheets("Sheet1").Range("B3").Value

Else

Worksheets("Sheet1").Range("B3").Value 等于 "00:00:00"

[H1] 等于 Worksheets("Sheet1").Range("B3").Value

’考试时间到后隐藏试卷中所有的题目

ActiveSheet.Unprotect Password:等于"123456"

For i 等于 5 To m - 1

Rows(i).Hidden 等于 True

Next

For i 等于 6 To m – 1 ‘计算分数,并显示在H2单元格

s 等于 s + Range("e" & i).Value

Next

Range("H2").Value 等于 s

Range("H2").Select‘锁定H2单元格

Selection.Locked 等于 True

Selection.FormulaHidden 等于 False

ActiveSheet.Protect Drawing-Objects:等于True,Contents:等于True,Scenar-ios:等于True,Password:等于"123456"

End If

End Sub

3.3 制作“交卷”按钮

单击“试卷”工作表,在“开发工具”选项卡上的“控件”组中,单击“插入”,再单击“ActiveX控件”中的“命令按钮(ActiveX控件)”;在工作表适当的位置拖放出一按钮;右击按钮,单击快捷菜单中的“属性”命令,将其“caption”设置为“交卷”.

双击此按钮,编写按钮的“click”事件代码如下:

Private Sub CommandButton2_Click()

Dim m ’m用于存试卷中的题目数量

m 等于 Worksheets("Sheet1").Range("B2").Value + 6

ActiveSheet.Unprotect Pass-word:等于"123456"

For i 等于 5 To m – 1 ‘隐藏试卷中的题目

Rows(i).Hidden 等于 True

Next

For i 等于 6 To m – 1 ‘计算分数,并显示在H2单元格

s 等于 s + Range("e" & i).Value

Next

Range("H2").Value 等于 s

Range("H2").Select‘锁定H2单元格

Selection.Locked 等于 True

Selection.FormulaHidden 等于 False

CommandButton2.Visible 等于 False ‘隐藏此按钮

ActiveSheet.Protect Drawing-Objects:等于True,Contents:等于True,Scenar-ios:等于True,Password:等于"123456"

End Sub

4.“试卷”模板的使用

第一步,使用“试卷”模板新建一工作簿,在“试卷”工作表中输入库题及每题正确答案;

第二步,在“sheet1”工作表中输入题库与试卷的相应信息(注意“题库题数”和“试卷题数”不能为0),单击“初始化试卷”按钮,此时“sheet1”工作表自动隐藏,“试卷”工作表中也将只出现“卷头”信息;

第三步,保存工作簿.

教师可借助网络教室软件将保存好的工作簿分发到学生机,学生打开工作簿后,先填写“卷头”信息,然后单击“开始考试”按钮进行答题,此时试卷上将提示考试倒计量,当考试时间到时,或学生单击了“交卷”按钮,学生就不能再答题,且系统自动给出考试成绩.

作者简介:李谨(1975—),女,天津人,工程硕士,讲师,研究方向:计算机应用技术.

类似论文

巧用Word制作数学试卷

摘 要 数学试卷文字较少,公式和符号较多,非常不好制作 介绍如何利用Word制作数学试卷 关 键 词 计算机;Word;数学试。
更新日期:2024-9-25 浏览量:118122 点赞量:25208

计算机优化标准化试卷一则

【摘 要】本文就标准化考试的试卷优化提出了一则方法,并给出了详细的解析 【关 键 词】试卷优化;Word查找替换工具;正确答。
更新日期:2024-1-11 浏览量:19008 点赞量:5362

用Excel制作简易平时练习作业系统

摘 要:作者基于Excel优秀的信息管理功能,研究了简单易制的课程平时练习作业系统制作过程:以客观化。
更新日期:2024-6-10 浏览量:81324 点赞量:18308

利用Excel函数制作可查询月历

摘 要 :该文以使用Excel函数制作月历为例,介绍了8个Excel常用函数,展示了Excel的强大功能 本实例既可以显示当月的月历,还可以查。
更新日期:2024-5-11 浏览量:68506 点赞量:15510

用Excel设计化学试卷模板

摘 要:Excel是一个具有强大统计和计算功能的表格数据管理软件,文章通过利用Excel设计化学试卷分析模板,来๟。
更新日期:2024-5-4 浏览量:11493 点赞量:3685

巧用Excel控件制作动态图表

某家电脑用品店要统计五种产品(显示器、机箱、键盘、鼠标、整机)的每月销售情况并制成图表显示 按照通常的思路,我们要为五种产品分。
更新日期:2024-3-23 浏览量:44935 点赞量:10588