您现在的位置：

软件资讯 > 软件应用 > 办公软件 > Excel

　　做教师的少不了为学生制作各种各样的考试卷子，市面上虽有各种模拟考试系统，却因程序制作复杂，将老师们拒之门外。其实根本不需要懂编程，用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

更多相关搜索： 软件应用.. 办公软件.. Excel..

发给好友

我要报错

投稿给我们

加入收藏

返回顶部