利用VB实现网页制作的自动化阅卷.docVIP

利用VB实现网页制作的自动化阅卷 骆华良 浙江省绍兴县鲁迅中学 邮编312000 E_mail：sxluohualiang@163.com 网页制作是高中信息技术教学的重要内容，尤其是在会考复习的那个阶段，每次面对几百份学生制作的网页文件，要能准确无误的批阅他们，是件很麻烦的事情。 例如，有如下图所示的一个网页文件index.htm： 要求学生做以下题目： 1、在[1]所在单元格中输入文字“信息技术基础”。 2、为文字“人工智能初步”设置超链接，链接地址为/rgzn.htm，目标框架为“新建窗口”。 3、把[1]所在表格的边框粗细设为0，单元格间距设为1。 既然是电子文档作业，如果能充分利用计算机自动化处理事务的优势，使用机器进行自动阅卷，这不但能减轻教师批改作业的负担，更重要的是让学生自己也能批改作业，及时知道问题所在，从而培养学生的自学能力，应该说这也是非常重要的。那么，使用计算机能实现这些操作题的自动阅卷吗？经过资料查阅，发现可以通过两种方法批阅网页文件：Frontpage对象检测法和文本比较法。 一、利用Frontpage对象检测法批阅网页 网页制作软件Frontpage提供针对VB的对象库，只要在VB中引用这些对象库，就能方便的读取文档中的所有对象，也就能知道学生操作结果是否正确了。接下来我就如何利用VB实现网页作业的机器阅卷作详细阐述。 利用VB程序批阅的过程如下： 1、批阅前的准备工作 （1）、为网页对象设置ID。 为了便于对象的定位和批阅，网页中的文字、图片、水平线、字幕等组件最好放到表格中，各表格指定ID，本题中有两张表格，其中[1]所在表格ID为table1，其外层表格ID为table2。 （2）、复制网页到站点中。 因为使用Frontpage对象库检阅网页时，该网页必须位于一个站点内部。所以我们事先用frontpage建立一个站点，站点文件夹名为site，并把待阅网页index.htm复制到site中。 （3）、引用Microsoft Frontpage对象库。 引用的方法是从VB的“工程”菜单中选择“引用”命令，选中Microsoft Frontpage 4.0 Web Object Reference Library（这是针对frontpage2000的对象库），确定即可。 2、定义Frontpage对象变量，打开站点和网页 Dim website As Object Dim objWeb As Object Dim objFile As webfile Dim pageObj As Object Dim element As Object If Dir(“c:\site”, vbDirectory) = Then Msgbox “站点不存在，建站后再批阅” Exit sub End if If Dir(“c:\site\index.htm”) = Then Msgbox “站点中待阅网页不存在，复制后再行批阅。” Exit sub End if Set website= CreateObject(frontpage.application) Set objWeb = website.Webs.Open(“C:\ site”)) ‘以上两个语句用于打开站点 Set objFile = objWeb.RootFolder.Files(“index.htm”) ‘本语句打开站点中待阅网页 set element=objfile. .Application.ActiveDocument 3、通过frontpage对象属性批阅网页元素 （1）、批阅第1题，本题批阅的是文本相关属性。 首先通过循环检测网页中是否存在表格table1，如果存在，再检测table1中目标单元格是否存在。本例目标单元格位于第0行第0列（frontpage中行列号从0开始计数），所以检测行列数都必须大于等于1。 Dim info(3) as string Flag=false Set pageObj = element.All.tags(TABLE) For i = 0 To pageObj.Length - 1 If pageObj.Item(i).ID =”table1” Then Set pageObj= pageObj.Item(i) If pageObj.rows.Length = 1 Then Set pageObj= pageObj.rows(0) If pageObj.Cells.Length = 1 Then Set pageObj = pageObj.Cells(0) flag = True End If End If Exit For End If Next If not flag then Info