计算机模拟考试系统(excel2003),用Excel建立模拟考试系统(下)

用Excel建立模拟考试系统(下)

[ 2005-10-19 11:03:19

]

作者：陈桂鑫

责任编辑：zhanghuafeng

做教师的少不了为学生制作各种各样的考试卷子，市面上虽有各种模拟考试系统，却因程序制作复杂，将老师们拒之门外。其实根本不需要懂编程，用Excel 2003你也可以制作一个类似的系统。一个可以自动出题、验证考号、答题后自动评分、保存记录的模拟考试系统，当然你也可以给它加上其他功能。(点击查看更多软件使用技巧)

参考文章：用Excel建立模拟考试系统(上)，用Excel建立模拟考试系统(中)

8.评分和记录保存

右击“评分”按钮，选择“指定宏”，输入宏名“评分”，单击“新建”按钮，编辑如下代码:

Sub 评分()

Sheets("成绩记录").Rows("3:3").Insert Shift:=xlDown

'在成绩记录工作表第3行前插入一行

Sheets("成绩记录").Rows("2:2").Copy

'复制成绩记录工作表第2行

Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues

'以数值方式粘贴到成绩记录工作表A3

得分 = MsgBox("最终得分" & Range("成绩记录!D2").Value & "其中:单选题" & Range("成绩记录!E2").Value & "、多选题" & Range("成绩记录!F2").Value &"、判断题" & Range("成绩记录!G2").Value &, , "评分结果")

'弹出信息框显示成绩记录!D2、E2、F2、G2的数据，标题为"评分结果"

Range("D2,D5:D34,D36:D75,D77:D106").ClearContents

'清除试卷工作表中输入的内容

Rows("3:106").RowHeight = 0

'设置题目区行高为0，以隐藏所有题目

ActiveSheet.Shapes("出题按钮").Visible = True

ActiveSheet.Shapes("评分按钮").Visible = False

'显示出题按钮,隐藏评分按钮

ActiveWorkbook.Save

'保存

End Sub

9.其他设置

选中A4单击“窗口/冻结空格”以始终显示1:3行的标题和按钮。右击C、E列选择隐藏。为答题区以外单元格设置填充色以示区别，把评分按钮重叠到出题按钮上(如图1)。

图1