利用EXCEL创建高中生物试题库及考试模拟系统.doc

利用Excel创建高中生物试题库及生物模拟考试系统侯宝石（陕西省合阳县合阳中学　715300）　徐亚直（安康市第二中学　725000）摘要：教师在教育教学中免不了要为学生设计试卷，评改试卷许多学校一名生物科教师教几个班的课，给学生出题、考试、评卷这项工作操作起来费时费力，购买的试题库软件多数比较复杂，试题更新难度较大本文利用Excel表格创建中学生物教学试题库和生物模拟考试系统，给教师和学生带来极大的方便关键词：生物试题库　高中生物　 模拟考试1．试题库的创建教师在教育教学中常常会遇到或思考出比较理想的题目，想用这些题目来检测学生是否理解、掌握了某个知识点，就可将这些题目输入到Excel 电子表格中，Excel表格有65536行256列，每个单元格最多可输入32000个字符，这么大的容量要建立高中生物科目试题库真是绰绰有余了打开Excel2003创建如图1的界面，建立选择题、判断题、填空题3个工作表并在选择题、判断题和填空题工作表的列位置建立序号、题目、答案、难度、所属章节如创建了100道选择题，50道判断题，50道填空题图1 图2 同理，创建判断题和填空题的工作表。

2． 考试模拟系统的创建学生的智能考试系统包括随机抽题、答题和评分三个环节，并且抽题的环节学生是看不到过程，只能按要求答题，这其中就需要再创建一个试卷工作表，要验证学生的身份并记录成绩，就需要创建考生准考证工作表和成绩记录工作表选中选择题按住Ctrl键拖动鼠标复制出三个工作表，分别重命名为试卷、考生名单和成绩单（如图２所示）2．1建立试卷界面选中试卷工作表，在第一行用“自选图形/基本形状”中的棱台画两个按钮，分别选中并击右键选择“添加文字”分别输入“出题”和“评分”按钮，注意输完字符后回车即可当然也可在按钮后写上本次考试的名称，如高二生物单元次检测如图3）在B2中输入准考证号，在A４中输入一，B4中输入选择题，在A5中输入公式=INDIRECT("选择题!R"&ROW()-3&"C"&COLUMN(),0)选中A5复制，再粘贴到A5:C34中在A35中输入二，B35中输入判断题，在A36中输入公式=INDIRECT("判断题!R"&ROW()-34&"C"&COLUMN(),0)，选中A36复制，再粘贴到A36:C:45，在A46中输入三，B46中输入填空题，同理，在A47 输入公式=INDIRECT("填空题!R"&ROW()-45&"c"&COLUMN(),0)，再选中A47复制，粘贴到A47:C56中，这三个公式表示对选择题工作表中前30道选择题，判断题工作表中前10道判断题和填空题工作表中前10道填空题的绝对引用，并把它们放在A4:C34 、A36:C:45和A47:C56中，这些引用中是把题目序号连同答案全部引用到试卷工作表中。

我们考虑到评分所以就要用来判断学生做的答案和标准答案是否一致所以在E5:E34，E36:E45，E47:E56中输入公式=IF(D4=C4,2,0)，公式表示做对一题得2分再选中C列右键单击隐藏（如图3所示）隐藏答案同样隐藏E列图3对学生答案限定可以选中D5:D34单击“数据有效性”如图4所示在“允许”中选择“序列”选中“提供下拉箭头”复选项，在“来源”中输入A，B，C，D然后切换到“出错警告”选项卡（如图4所示），输入错误信息为“请输入A、B、C、D中的一个”同样在D36:D45中将“来源”中输入√、╳，“出错警告”做相应的改变，在D47:D56中的“允许”中选中“文本长度”，数据中选择“大于或等于”错误信息也做相应的改变 图4图5 学生怎么才能达到随机的抽题？在“试卷”工作表中的题目都是对题库中题目的绝对引用，只要将选择题、判断题和填空题工作表中的D2:D100，D2:D50，D2:D50中输入=RAND()公式表示随机数，然后对各个题库中的题目进行排序，而试卷工作表的选择题每次只选择前30道题目，这样就达到了随机出题的目的，同样判断题和填空题也能达到这样的效果接下来我们就要对“抽题”按钮右键选择“指定宏”出现如图6窗口，输入抽题，然后单击确定。

接着输入下面代码：图6Sub 抽题()If Range("d2").Value = 0 Then提示 = MsgBox("请先输入准考证号")GoTo 重来End IfSheets("选择题").Range("a:f").Sort key1:=Sheets("选择题").Range("f2"), Order1:=xlasending, header:=xlGuessSheets("判断题").Range("a:f").Sort key1:=Sheets("选择题").Range("f2"), Order1:=xlasending, header:=xlGuessSheets("填空题").Range("a:f").Sort key1:=Sheets("填空题").Range("f2"), Order:=xlasending, header:=xlGuessColumns("b:b").Rows.AutoFitRange("d5").SelectActiveSheet.Shapes("出题按钮").Visible = FalseActiveSheet.Shapes("评分按钮").Visible = True重来:End Sub同样选中评分按钮右键选择“指定宏”命名宏名为评分，同时保存结果，编辑如下代码：Sub 评分()Sheets("成绩单").Rows("3:3").Insert shift:=xlDownSheets("成绩单").Rows("2:2").CopySheets("成绩单").Range("a3").PasteSpecial Paste:=xlPasteValues得分 = MsgBox("最终得分" & Range("成绩单!d2").Value & "其中:选择题" & Range(" 成绩单!e2").Value & "判断题" & Range("成绩单!F2").Value & "评分结果")Range("d2,d5:d:34,d36:d45,d47:d56").clearconentsRows("3:56").RowHeight = 0ActiveSheet.Shapes("出题按钮").visble = tureActiveSheet.Shapes("评分按钮").visble = FalseActiveWorkbook.SaveEnd Sub　　2．2建立考生名单工作表如图7输入相应的名称，在B列的名称框中输入“考号”，回车即可。

回到试卷工作表中选中要输入准考证号的D2单元格，单击数据\有效性，在“允许”中选择“序列”，取消“提供下拉箭头”复选项，在“来源”中输入＝INDIRECT(“考号”)，切换到“出错警告”选项卡，输入“你输入的准考证号码不存在，请重新输入”，再选中“输入无效数据时显示警告”，并设置样式为“停止”在　F3单元格输入=IF(D2="","",VLOOKUP(D2,考生名单!B:C,2,FALSE))，这个公式自动显示考生姓名 图72．3建立考生成绩记录表选中成绩记录表，在A2输入公式＝NOW9()，并选中A2击右键，选择“设置单元格格式”中设置日期格式以显示当前时间B2、C2分别输入＝试卷!D2和＝试卷!F2以显示相应的数据D2输入公式＝SUM(试卷!E2:G2)对E2、F2、G2分别输入公式＝SUM(试卷!E5:E34)，＝SUM(试卷!E36:E45)，＝SUM(试卷!E46:E55)，如图8所示：图82．4考试系统的设置和维护选中A4单击“窗口\冻结空格”以显示前三行的标题和按钮选中D5:D34右击“设置单元格格式”，在“保护”选项卡中单击取消“锁定”选项，对于同样需要填写的D36:D45，D47:D56做同样的操作。

然后，单击“工具\保护\保护工作表”在“允许此工作表所有用户进行行”列表中只选中“选定未锁定单元格”和“设置行格式”两个选项，在使用密码保护中设置密码（如图9所示），然后确定即可，这样就把工作表保护起来，以免学生改动试题图9学生在进行考试时只能看到“试卷工作表”，所以要对其它工作表进行隐藏单击“工具\宏\Visual basic编辑器，再选择“视图”工具拦下面的“工程资源管理器”（如图10），选中要隐藏的工作表名，在属性窗口中把Visible项的值设置为0-xlsheetHidden，就能把工作表隐藏若要显示只要把这项值改为-1-xlsheeetVisible即可若看不到属性窗口可按F4显示为防止学生修改还要右击“VBAProject属性”在“保护”选项卡中选择“查看时锁定工程”，并输入密码（如图11），确定后退出即可2．5开始考试打开试卷工作表，单击抽题按钮显示题目如图所示（可以将非答题区域设置成不同于答题区域的底文）考生可以在D列答题（如图12所示）完成以后，按评分按钮显示最后得分，确定后自动保存成绩2．6提示　 若要消除“安全提示警告”，在“工具”菜单中选择“宏”，单击“安全性”，选择“底”或“中”，确定即可。

以上宏中设置的代码，是排序、设置行高、插入行、复制、保存等操作如果你不愿意用代码，完全可以用录制宏来解决相应的问题3．思考利用Excel电子表格创建试题库，操作与修改都相对简单，对于一般教师都能操作但填空题目的设计和做大就受到的一定的限制，对答案的要求是很严格的，计算机评分就不很合理，所以许多要用语言叙述性的题目在这上面就显得不适合了 图11图10图12参考文献：[1]扬振山，龚沛曾，等计算机文化基础．2000.4.6 [2]陈桂鑫，用excel建立模拟考试系统．电脑爱好者.2005.105。