|
试题库能用Excel做吗？ 先来看看试题库倒底是什么。按理说，试题库不就是试题组成的数据库嘛，从这个意义上说，Excel一个工作表就包括了65536行，而且每行又有256列，再看每个单元格最大限度能保存32000个字符，不仅如此，单元格中还能保存图形，可见任你再复杂的题目，Excel也能在一行内放下，而且既然能存放6万条试题，说它是一个“库”应该不为过吧。 怎么建试题库呢？ 如果你见过数据库，应该知道系统会根据你定义的结构为记录的每一列设置一个标题，这就是所谓的字段名，不过即使你不知道什么是数据库结构、什么是字段也无所谓，可以这样来理解它：就是为了方便自己查看试题库，在第一行的各列上增加一个标题，只不过一般的数据库表会自动完成这个工作，在Excel里需要我们自己加上。 一般一道题除了编号、题目、答案外，为了方便选题还需要增加一些所属章节、题型、分数等等信息，可以如下在A1、B1……单元格中输入这些属性名称，后面各行就对应真正的试题了(如图1)。 象编号、所属章节还有题型需要的空间都比较少，但是题目和答案就不同了，如果想看到全貌，可能希望让题目和答案这两栏宽一些，很简单，点B和C之间(C和D之间)的列标志线，按住向右拖，它自然它拉大了。不用担心下次它还会恢复成原状，因为Excel会自动记住列的宽度的(如图2)。 不过这样一行又太长了，要了解整个试题的情况，不得不用滚动条，也挺烦人。我们再以C列为例，看看如果不调整行宽，怎么通过调整列的高度来看到全部答案。点击“格式”-“行”-“最适合的行高”(如图3)。 这样，Excel就会聪明地分析应该留多大的高度(如图4)。 为什么对它的格式罗嗦这么多呢？因为我们要在这里录入试题，如果盒子放得不合适，我们在向里面放东西时肯定也不方便。下面就要填内容了。一般来讲，数字、文本输入时无非就是考虑如何提高速度，这自有其技巧，不过这里就不多说了。另外要注意试题中很可能会出现图形或者公式，可以在题目或答案中先输入有关文字，再输入公式和图形。虽然Excel没有提供符号插入，但利用绘图工具也可以达到目的。其实最好是用粘贴方法把已经做好的图贴到单元格里。 填好足够的试题后，保存。我们已经得到了一个比较原始的试题库了，虽然简陋，但也合用。 怎么用这个试题库呢？ 首先为防止发生不测，比如意外修改了试题库，最好另开辟一片天地来处理试题，这样无论怎样排序、筛选，甚至删除列都与原始试题库不相干，你也可以大刀阔斧地操作。具体方法是按住“Ctrl”，用鼠标沿工作表标签方向拖动Sheet1，这样就会出现Sheet1的副本Sheet1(2)(如图5)。 下面就在这个复本里选题，先对试题排序，例如以章节为主进行排序，若章节相同就按题型的降序排，再不然就根据编号排，当然这里只是随便拉来一个例子看看，你可以根据需要自己设置合适的规则。Excel提供了三个排序条件，一般来讲这也够用了(如图6)。 如此设置之后，表中内容就会按要求调整顺序，这样做的目的是方便选题。为了便于后面的集中，可以从试题编号动脑筋，比如选中一道题就把它的编号调整为一个大于100的数，这样最后所有题目都选完时就可以再做排序，所有选中的试题都会列到最后。 下面就要对这些排在最后的试题进行筛选了。先随便选中一个“序号”单元格，再单击“数据”-“筛选”-“自动筛选”，每个列都出现一个下拉箭头，点击“序号”右侧出现的下拉箭头，选择“自定义”，选择一个条件，比如所有编号大于100的试题，就可以得到正确的筛选结果(如图7)。 很明显最终试卷里可能只需要题目、题型和分数，这就要求把“多余”的列删掉，很简单，选中要删除的列，直接用“编辑”-“删除”就可以。 把所选的题目复制到Word中，即有了基本的试题原型，接下来就是如何在Word里进行修饰和编排。不过要注意，这里所说的复制可不是直接复制，否则得到的就是一个难看的表，而且还显示不完。正确的做法是对选中试题复制后，在Word文档中点击“编辑”-“选择性粘贴”，以前可能很少用这个功能吧。在弹出的对话框里根据情况选择，如果仅为文本，就选“无格式文本”；如果有图形，就选“图形”。现在再编辑起来就方便得多了。 其实有了试题就要阅卷，所以最好用同样的方法生成一套对应的答案，与前面的做法基本一样，只是删除列时所保留的列有所不同而已(如图8)。 仅仅如此吗？ 就此看来，好象功能还是比较简单，不过既想不编程又要复杂的功能，也真应了一句老话“又要马儿跑，又要马儿不吃草”。如果不满意的话，你就必须加把草了。 方法就是生成宏。用鼠标右键点取工作标签，单击弹出菜单插入项，出现一个模板选项对话框，选取模块表，按"确定"，在模块标签中生成一个标准的空Modulel。在这里就可以编写子程序了，举个例子，要查询某个章节的试题，可以写一个如下的程序： pos=1 searchstr=InputBox("请输入要查询的章节") If searchstr=""Then End’直接结束 End If Range("d2").Value=searchstr Do While Worksheets("sheet2").Cells(pos,1).Value<>searchstr And Worksheets("sheet2").Cells(pos,1).Value<>"" pos=pos＋1'查找定位 Loop If Worksheets("Sheet2").Cells(pos,1).Value<>""Then ----……复制多条语句，建立输入屏幕与数据库间的关系 Else MsgBox("该数据没有发现，按确认键") End If End Sub 其实一般来编程中主要无非用到了If-Then-Else、Do While语句，还有Range()、Cell()等等函数，语法规则与其它语言的语法规则也基本相同，可以说还是比较容易写的。再下一步要把宏加在一个自定义的按钮上，这样就可以方便地使用相关功能了。具体做法是点击“视图”-“工具栏”，选择其中的“窗体”，从而显示窗体工具栏，再点击“创建按钮”，在工作表上需生成按钮的地方按住鼠标左键，拖拉出大小合适的按钮后，选取宏，按"确定"。这样，一个按钮就已形成。可把按钮名改为“查询”，这样更直观一些。 再多说一句 其实试题出来了之后，很容易想到下一步是否需要对考试成绩做个统计，因为Excel汇总、平均以及排序的功能都比较强大，所以做这个工作也很拿手。比如求总分，找最高分、最低分，排名次等等，当然这已是题外话了。不过我的体会是，对于老师来讲，Excel确实可以提供一条龙服务，可千万不可小视。 |