| 网站首页 | 文章 | 高考 | 中考 | 必修1 | 必修2 | 选修1 | 选修2 | 选修3 | 选修4 | 选修5 | 选修6 | 初中 | 竞赛 | 图片 | 商城 | 赚点 | 讨论 | 论文 | 
  最新公告:

  没有公告

您现在的位置: 我爱化学网文章中心 >> 文章 >> 多媒体教学 >> 其它软件 >> 正文
    信息中心 教法学法 多媒体教学 优秀论文 环保化学 古今化学
专题栏目
更多内容
最新推荐 更多内容
相关文章
[组图]Excel工作表的复制
[组图]利用高级筛选功能
[组图]妙用Excel把有规律
更多内容
本站推荐
 
 
用Excel建立模拟考试系统
作者:admin 文章来源:不详 点击数: 更新时间:2007-1-25 13:08:32

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

系统设计

  1.建立题库

  打开Excel 2003,建立“单选题”工作表(如图1),在A2输入公式=ROW()-1&"."以自动生成序号,在D2输入=IF(C2="","",RAND()),选中A2:D2拖动其填充柄向下复制到其他单元格,大概有几百行也就够了,剩下的需要时再复制。按住Ctrl键拖动工作表标签复制出两份,分别重命名为多选题、判断题。

图1

  2.设计试卷

  建立“试卷”工作表,你可以按需要设置试卷,并输入单选题、多选题、判断题三个大题目,多选题需注明错、漏、多选均不得分。并留出相应的题目位置,单选题30题(A5:C34),多选题40(A36:C75),判断题30题(A77:C106)。

  用“自选图形/基本形状”中的棱台画一个按钮,选中在名称框中输入“出题按钮”4字回车,把它命名为“出题按钮”。再右击此按钮选择“添加文字”,在按钮上输入“出题”2字。同样再画一个按钮,把它命名为“评分按钮”,添加文字“评分”。(如图2)

图2

  3.显示题目

  在A5输入公式=INDIRECT("单选题!R"&ROW()-3&"C"&COLUMN(),0),选中A5复制,再选中A5:C34进行粘贴。同样在A36输入公式=INDIRECT("多选题!R"&ROW()-34&"C"&COLUMN(),0)并复制到A36:C75,在A77输入公式=INDIRECT("判断题!R"&ROW()-75&"C"&COLUMN()并复制到A77:C106。在E4单元格输入公式=IF(D4=C4,1,0),这公式用来判断如果D4中的答案与C4的标准答案一致就得1分否则为0分。

  A5的公式表示对单选题工作表中同列、行数差3的单元格(A2)的引用,公式中使用了R1C1格式的单元格编号,其中3、34、75是由第一题所在的行数减2得来。这公式实现的是绝对位置引用,即不管在单选题工作表中进行插入、删除行或排序,A5显示的始终都是你从单选题A2中直接看到的内容。因此A5:C34、A36:C75、A77:C106三个区域将分别与相应题库中最前面的30(或40)题的内容保持一致。
4.答案限制

  选中D5:D34单击“数据/有效性”,在“允许”中选择“系列”,选中“提供下拉箭头”复选项,在“来源”中输入“A,B,C,D”,不含引号且其中逗号为半角格式(如图1)。切换到“出错警告”选项卡,输入错误信息为“只能输入A、B、C、D中的一项,其他任何符号或空格均为非法。”,选中“输入无效数据时显示警告”复选项,选择样式为“停止”(如图2),确定完成设置。

图1

图2

  同样对多选题D36:D75,判断题D77:D106设置数据有效性,只是“来源”要分别换成“A,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCD”和“√,×”。“出错警告”也要做相应修改,特别是多选题一定要说明必须按ABCD的顺序输入多选项,否则无法正确评分,若觉得多选题要输入这一大串有效性设置太麻烦,不设置有效性也是可以,你只要在题目中注明不按顺序的不给分不就行了。

  5.准考证号验证

  建一个“考生名单”工作表,在A、B、C列分别输入序号、准考证号、考生姓名,选中B列在名称框中输入“考号”,回车确定把B列命名为考号(如图3)。回到“试卷”工作表选中要输入准考证号的D2单格,单击“数据/有效性”,在“允许”中选择“系列”,取消“提供下拉箭头”复选项,在“来源”中输入=INDIRECT("考号")。切换到“出错警告”选项卡,输入错误信息为“你输入的准考证号并不存在,请重新输入”,选中“输入无效数据时显示警告”,并设置样式为“停止”。在F3单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单!B:C,2,FALSE)),这公式会在输入准考证号后自动显示考生姓名。

图3

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建立模拟考试系统的网址
请(谷歌)搜索:更多关于用Excel建立模拟考试系统的网址
文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请
    点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请
    点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请
    点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请点击申请
    | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 管理登录 | 
    我爱化学网

    我爱化学网文章中心13871377875@qq.com 站长:小鱼
    站长:余勇军(QQ:6292680) 联系电话:13871377875

    信息产业部备案
    鄂ICP备05008838号