Word操作题课件中自动评分功能的实现.docVIP

精品论文 参考文献 Word操作题课件中自动评分功能的实现 一、问题的提出： 　　由于信息技术学科要参加中考，我们学校的机房里安装了一款自动化考试软件，学生答题完成后，评分系统可以自动反馈答题结果，帮助学生发现错误，受到学生的广泛欢迎。但是，每周只有一节课的练习时间显然不够，所以很多学生希望能将考试题目复制到家里的电脑中，周末可以抽出时间来做题目。显然，将考试系统安装到学生家庭电脑中成本太高，也很麻烦。能不能将操作题做成课件发给学生呢？通过对相关技术要素进行分析，我们发现，由信息技术教师来制作这样的课件是可行的。本文以Word 2000基本操作的课件为例，谈谈自动评分的基本思路和实现方法，Excel、PowerPoint等软件操作题自动评分的实现也可以参考本文的方法实现。 　　二、课件的基本要求： 　　由于Word操作题课件仅用于学生对自己所学操作的自查自测，所以课件应尽量满足以下要求： 　　（1）不需要其他服务的支持； 　　（2）可以重复使用，课件要保证原始文档不被破坏； 　　（3）操作方便，不需安装，双击即可运行。 　　为满足以上要求，课件必须能将原始文档、操作要求、评分功能集成于一个可执行文件中。 　　三、课件的设计思路和实现方法： 　　采用VB作为课件的开发平台。 　　1.原始文档资源的封装和提取方法： 　　在课件未运行时，原始的Word文档对学生应该是不可见的，所以，应该将Word文档以资源文件集成于可执行文件中，在课件运行时，提取出文档后存储于工作文件夹中，课件关闭时，再删除文档。 　　（1）打开VB资源编辑器窗口，添加“自定义资源”，选择原始文档。如上图1，“CUSTOM”为自定义资源文件夹，“101”为该资源的编号。 　　保存自定义资源后，在“工程资源管理器”窗口中可以看到“工程1.RES”，如图2。 　　（2）在课件程序运行时，提取文件到工作目录中，见下面代码及注释： path = App.path 将应用程序目录作为课件的工作目录 Const ExeFile = 33280 33280是欲生成的文件的字节数 Dim ExeMy() As Byte Btye类型的数组,存放EXE文件 Dim Counter As Long 文件字节数 将文件读入数组 ExeMy = LoadResData(101, CUSTOM) 读取编号为101的自定义资源文件 Open path amp; \wordtest.doc For Binary As #1 从0 Byte开始因此以文件大小 - 1Byte 为终值 For Counter = 0 To ExeFile - 1 Put #1, , ExeMy(Counter) 释放文件 Next Counter Close #1 　　2.识别Word文档对象 　　（1）基本思路： 　　利用VBA提供的访问Word文档的接口，使用VBA编程可以识别、控制Word文档的格式。但是VBA宏语言无法脱离Office应用程序运行，因此将VBA嵌入到主语言VB中进行开发，从而实现读写文档的各对象，识别文档格式。 　　（2）实现方法： 　　在工程中引用“Microsoft Word 9.0 Object Library”，这是Office2000的版本，一般来说低版本的对象库是向高版本兼容的。一旦该对象库被选中，在编程中就能引用Word对象和属性。对象引用的绑定方法用如下代码实现： Dim wordApp as Word.Application Dim mydoc as word.document Set wordApp=New Word.Application Set MyDoc=WordApp.Documents.Open(path amp; \wordtest.doc) WordApp.Visible=true 　　接着就是最关键的部分，获取Word对象的属性。能否实现某操作的自动评分就取决于能否获取相关的属性信息。下面是一些例子： 　　如：第二段的行间距是否为1.5倍行距??判断 If mydoc.Paragraphs(2) .LineSpacingRule = wdLineSpace1pt5 then…… 　　再如：当前页面的纸型是否为A4的判断 if mydoc.PageSetup .PaperSize = wdPaperA4 then…… 　　学习VBA是掌握Word对象及属性的重要方法，在学习过程中，除了查阅资料还有一个好的方法，就是使用“录制宏”功能，然后在“VB编辑器”窗口中查看代码。下面是将选中的文本“字体设为黑体，字号设为22，字色设为红