基于数据库、OLE及VBA技术的《计算机文化基础》集成考试系统

        基于数据库、OLE及VBA技术的《计算机文化基础》集成考试系统

           陈克力 

    内容提要：本文介绍了在VB中利用数据库技术、对象链接技术（OLE）及VBA编程开发的集成考试系统，从而实现在《计算机文化基础》课中对理论知识与操作技能进行无纸化考试与自动阅卷。    关键词：数据库 OLE VBA 无纸化考试                         一． 问题提出

    《计算机文化基础》是非计算机专业都要开设的一门文化基础课，主要考查学生必要的理论知识与熟练的操作技能。该课程的传统考试一般分为两个部分——笔试与操作，笔试将答案答在纸上再由教师进行人工阅卷（大型考试中也利用机读卡阅卷）。操作考试又分为基本操作、中英文录入、操作系统使用、文档排版（WORD）、数据处理（EXCEL）等方面，需要在教师监考下学生将操作结果完成在磁盘上，最后由教师逐个查阅磁盘文件再人工评分。这种考试方法很不适应当前形势的要求，暴露出如下弊端：从出题、制卷、考试、阅卷、成绩统计等考试过程繁琐；涉及环节和人员众多，试卷保密要求高；阅卷工作量大，特别是操作考试要在计算机上逐一检查操作结果，费时费力，使教师不堪重负；试卷分析缺乏准确性，一般只能对总分数的结果进行大致分析如分数段统计、平均分计算，不能做到更准确的分析，如均方差、信度、效度分析等难以有效实现；更重要的是，传统考试不能体现“微机是一项现代高科技的结晶，普及微机应用是微机教学的目的”的基本思想。    综上所述，该课程的考试迫切需要一套能快速、自动、有效地完成考试环节的系统——无纸化考试系统。下面介绍本人用VB开发的、采用数据库技术、OLE技术实现的无纸化考试系统的基本功能与实现。

                        二． 需求分析

    经过对该课程的考试环节的分析，系统要能完成如求：    1． 笔试与操作考试一体化  对理论知识与操作技能的考试集中在计算机上完成，理论题多采用选择题（单项选择、多项选择）、判断题，以利用计算机自动评分。这样减少了笔试环节，节省了笔试、制卷、纸张、印刷等费用。    2． 考试试卷随机化  采用题库技术，考试时从题量很大的题库中随机生成试卷，每位考生的试题均不一样，可以有效地防止试卷泄密、考生作弊等情况的出现。    3． 评分自动化  考生在机上提交试卷后，即由计算机自动完成试卷的评分，成绩可以马上评出。节省了教师的大量时间、精力，避免了考生长时间等分数、阅卷工作中的暗箱操作等情况的出现。    4． 试卷分析科学化  在整次考试完成后，可以自动完成成绩的登记、统计、分析等工作，且可以做到精确地分析出考试中均方差、信度、效度等数据，可科学指导以后的教学工作。

                   三． 功能模块设计

    1． 功能模块  主控模块负责系统安全及界面设定。其下分为三个模块：    2． 题库管理  主要负责题库中各种类型题目的增加、删除、修改、统计等工作，同时还完成考试时间、题型、题量、难度、范围等要求的设定。由教师在后台进行操作。也可借助ACCESS辅助管理。    3． 考试监控  该模块是考生在前台操作：      3．1 登录  录入并核对考生准考证号、姓名等信息；      3．2 组卷   从题库中按照考试要求随机抽取试题生成试卷；      3．3 考生环境初始化 完成考生操作考试所要求的文件环境，如文件夹、文件。      3．4 考试  考生点击开始考试后，完成考试的倒计时、显示考试题目，考生进行理论知识的答题、动手操作；      3．5 自动评分  在到达规定时间或考生交卷后，系统自动完成试卷的评分，并将成绩入库，马上给出考试成绩。   4． 试卷分析  主要完成考试成绩的总体分析、各题得分情况的分析。此模块由教师在后台操作。

                    四． 数据库设计

    基于上述要求，数据库系统提供如下数据库表：    1． 考生信息表：包括考生准考证号（C，8）、姓名（C，8）、理论成绩（N，3）、上机成绩（N，3）、是否合格（F）等字段。    2． 理论题库表：实际上是单选题、多选题、判断题等三个数据表。每个表中含编号（N，5）、章节号（N，4）、难度（C，1）、题目（C，200）、选项A、B、C、D（C，50），答案（C，4）等字段。    3． 操作题库表：根据本课程所要求的操作要求，分别设计了如下几个表：    （1） 操作系统表   考查操作系统的操作使用。根据考核的基本方面，分为编号、建立文件、删除文件、复制文件、移动文件、设置属性等字段，每个字段中前面为操作对象，后面为操作目标，中间用“，”隔开。    （2） 文字录入表  考查文字录入速度及正确率。设计编号及文字（M）两字段。    （3） 文档排版表  考查WORD文档排版用。除编号外，根据考试要求，对每项操作设计了一个字段，如字体，字形，字号，对齐，行距，左缩进，右缩进，面面设置，页边距，图形源，图形大小，图形环绕等。每个字段也分为操作对象和属性，如字体（第四段，宋体）；    （4） 数据处理表  考查EXCEL进行数据处理。设计基本同文档排版表。    4．考试要求表  设定考试时间、开始章节、结束章节、难度、单选、多选、判断、操作系统、文字录入、文档排版、数据处理等题型的数量与分数。

                    五． 程序设计中的主要问题的解决

    本系统中的主控模块、题库管理模块的实现与一般的数据库管理系统一样，很容易实现。本系统中要解决有如下几个主要问题：    1． 试卷的生成  考生登录后按照考试要求随机生成一套试题，并形成试卷。本系统采用了与题库中各库表对应的试卷表。——理论试卷表、操作系统试卷表、打字试卷表、文档处理表。下面以抽取单选题为例说明其组卷过程如下：    （1）考试要求库    （2）取出单选题题量    （3）从单选题库中筛选符合要求（范围）的题目    （4）判断题数<题量，若是则显示错误信息，退出；    （5）抽题数=0；    （6）判断抽题数<=题量，否则进入下一大题抽取；    （7）产生在1——题数范围内的随机整数；    （8）判断该题是否抽过，若是则返回（7）重新产生；    （9）抽取该题入理论题库；    （10）抽题数增加1，返回（6）；    （11）抽取下一大题。    2． 考生环境初始化    主要完成操作系统题、文档排版题等题目所要求的文件夹与文件。本系统为每一位考生建立以考号为名的文件夹，考生操作环境均在此文件夹环境下进行。在组卷完成后，就自动从试卷库中取出对应字段值，建立相应文件与文件夹。      2．1  操作系统题环境  在VB中可用MKDIR建立文件夹，建立文件的命令如下：            Open  文件名 for output as #文件号 （ 打开文件以写入）          write 文件号 ,写入内容  (写入)          close 文件号   （关闭）    操作系统题中只对文件名进行操作，不涉及内容，因此写入内容可任定；      2．2 文档排版题环境  在考生文件夹下生成WORD文档与相应图片文件，并写入相应文字内容；系统采用在程序中用OLE技术调用WORD的生成等处理文件：   Set wrdobj = CreateObject("Word.Application")    @#建立WORD应用对象   wrdobj.Visible = False    @#不显示该对象   Set vardoc = wrdobj.Documents.Add()   ‘新建文档   cztm1 = r3.Fields("文件内容")   wrdobj.Selection.TypeText Text:=cztm1   ‘将文件内容字段写入文档中   cztm1 = r3.Fields("文件名")   vardoc.SaveAs filename:=CurDir + "\" + cztm1  ‘以指文件件名保存文档   wrdobj.Quit SaveChanges:=wdSaveChanges  ‘结束该应用程序    3． 考试过程的监控    开始考试后，考生点击对应按钮可进入理论考试或操作考试，然后可以方便地作答；对于选择题只须在对应选项上单击即可选中，操作题中同样点击相应按钮即可显示WINDOWS操作题、文字处理等题目要求，点击“启动WORD”可自动启动WORD软件。屏幕上动态显示倒计时，在指定时间到达后系统将停止作答。考生也可点击交卷按钮提前交卷。交卷后进入自动评分模块。    4． 自动评分    评分中理论评分较易实现，只需要将考生答案（都是一些选择结果）与标准答案进行比较即可快速完成评分。下面主要说明操作考试的评分：     4．1 操作系统评分   检查考生文件夹下是否有要求的文件或文件夹或是文件属性。下面是判断复制文件部分一段程序：

       st = r1.Fields("复制文件")   ‘取得试卷库中复制文件操作要求字段；       fdir1 = Left(st, InStr(st, "\") - 1)  ‘取得源文件夹       ff = Mid(st, InStr(st, "\") + 1, InStr(st, ",") - InStr(st, "\") - 1)   ‘取得源文件名       fdir2 = Mid(st, InStr(st, ",") + 1)  ‘取得目的文件夹       If Dir(fdir2 + "\" + ff) <> "" Then osfs = osfs + fs  ‘若目的文件夹下有源文件名对应的文件，加该部分得分     4．2 文字录入评分  逐一比较考生录入文字与标准文字中匹配字符数即可。     4．3 文档排版和数据处理评分  这是本系统开发中难度最大的一部分。基本思想是：在VB中调用WORD或EXCEL打开对应文档，再利用VBA编程完成对操作对象的选定、返回选定对象的属性值、及与试卷中对应要求相比较，从而判断考生操作结果是否正确。下面给出判断段落对齐的一段代码：       Set r1 = d1.OpenRecordset("WORD题")          @#取得生成WORD题操作要求@#       Set wrdobj = CreateObject("Word.Application")        wrdobj.Visible = True       cztm1 = r1.Fields("文件名") + ".doc"       wrdobj.Documents.Open filename:=CurDir + "\" + cztm1       ActiveDocument.Select   ‘打开操作文件档       With wrdobj.Selection         ActiveDocument.Select         Select Case r1.Fields("字形")   ‘字形设置要求           Case "加粗":    If .Font.Bold = True Then wordfs = wordfs + 1           Case "倾斜":       If .Font.Italic = True Then wordfs = wordfs + 1           Case "加粗倾斜":         If .Font.Bold And .Font.Italic Then                           wordfs = wordfs + 1         End Select       End with

                 六． 系统应用效果

    本系统现已试用于我校《计算机文化基础》教学的学期考试中，学生和教师反映都较好。基本实现了考试的无纸化，将教师从繁琐的考试环节中解放出来，节省了大量的人财物，使教师有更多的时间和精力放在题目的科学性建设中和教学内容、教学方法的钻研中。学生也对学习微机更有兴趣了。当然系统也还存在一问题：如理论题只有客观题，操作题项目比较固定，对题库管理中数据录入有严格的要求，操作界面相对单调等，这将在以后的使用中不断完善。                           主要参考文献：（1）.《Visual Basic 中文版自学捷径》 林跃 ，北京大学出版社；（2）.《microsoft word for visual basic 》电子版，微软公司。

                英文信息：      Title:  The intensive Test System Based on Database and Ole and VBA technologe      Author: Chen keli      Address: SiChuan Pharmaceutical School      Zip code: 614201       Abstract:  This article introduces a Test System without paper, which is based on  Database and OLE and VBA technologe in the VB programme  in order to realize  the theoritcal knowledge  and the operateing skill@#s test in the course of the Computer Culture Basis.      KeyWords: Database OLE VBA  Test without paper            电子邮件：click_ckl@163.com

原文转自：http://www.ltesting.net