数事执本与表用
计算机应用基础练习
与测试自动化系统的设计与实现
付金谋
(江西工业贸易职业技术学院江西南昌330038)
设计开发
摘要：本文介绍了一个利用VB开发平台实现的（计算机应用基础练习与测试自动化辅助教学系统,重点讨论了基于OLE自动化技术和VBA 的OFFICE操作题自动评判的原理和方法。
关键词：自动评判练习与测试自动化组件对象模型中图分类号：TP311.52
文献标识码：A
文章编号：1007-9416(2013)04-0161-02
职业院校为适应技术的发展和推广应用、培养学生最需要的职业能力和岗位技能，形成“理论教学综合化，专业教学技能化，实训教学课堂化，强化训练职业化，实习就业一体化"的教学模式。需要及时改进教学内容，建设具有职业特色的配套教材、辅助教学软件等教学资源。《计算机应用基础》是职业院校各专业必修课程，要求学生章握计算机基础知识，WindowsWord,Excel,PowerPoint,IE 和OutlookExpress的使用，以及计算机网络的基本操作等内容。采用练习与测试自动化辅助教学系统，出题、练习、测试和评判由计算机自动化完成，使教师从繁重的工作中解脱出来。本文介绍一个利用VB开发的(计算机应用基础》练习与测试自动化辅助教学系统的
功能及实现的关键技术。 1系统需求分析
《计算机基础》课程教学辅助练习与测试软件，国内外已有一些此相关的产品，但太多数是针对等级考试的(如：一级B模拟练习、等级考试模拟考场等等)，都或多或少存在着某些不足，主要表现在：
(1)针对性太强，不利于对学生能力的培养
(2)有些题目过于理论化，有些跟不上计算机应用技术的发展显得过于陈旧，达不到对学生专业技术，职业能力及岗位技能的训练，不能满足计算机基础技能训练与发展的需要；
(3)开放性差，题目不能更改替换，提供练习的题量太少，有的只二三套，不便于学生主动学习练习及全面测试。而因为受版权、软件本身等因素的限制，课任教师又不能酸情添加或更换习题：
(4)练习或测试都采用统一标准，没有梯度，不能满足不同层次，不同需求的学生的需要。
固此，迫切需要开发能充分利用学校现有的实训场所设备，结合本校学生的特点及培养目标，具有职教特色的计算机基础练习与测试自动化系统。系统必须具备如下特点：
(1)软件能充分利用现有的计算机基础应用教学平台，集练习与测试于一体。要界面友好，操作简单，容易上手，题库独立，便于维护和更新，
(2)独立题库，采用全开放式设计，库中所有题目可以根据需要任意更换和添加。各课任教师可根据各专业对计算机基础操作技能训练与发展的需要，结合本班学生的具体情况，量身定做练习题库，因材施教，从而达到最佳的教学效果。
(3)精选各个操作实践练习题目，根据计算机专业与非计算机专业等不同层次的职业岗位技能标准，制订相应的操作任务，有利于学生自主学习与自我测试，满足广大学生不同层次，不同专业能力训练的需求。
(4)充分借鉴国内外软件优点，结合实际开发，能应用于实际教学，适应交互式教学模式，实现计算机基础课程无纸化(计算机辅
助)练习与测试，减轻教师工作量，提高教学效果。 2系统设计
2.1系统结构
本系统由练习和测试二个模块组成，内容涵盖了计算机应用
基础》的主要内容，包括计算机基础知识、文字录人，windows、 Word,Excel,PowerPoint,IE和Outlook Express。
2.2累面设计
采用VB软件开发平台，整个软件操作界面设计，以传统的 Windows操作风格为基础，结合国家等级考试操作界面，力求操作简单实用。
2.3代码设计
程序代码力求通俗易懂，添加必要的中文注释，便于修改和维护“选择题练习"部分代码(节选)如下：
Private Sub Form_Load()
加载ACCESS数据库*db.mdb"
Datal.DatabaseName = App.Path + "" + "db.mdb" Datal.RecordSource ="jczsl*
Datal.Refresh EndSub
单击标题选择选择答案
Private Sub Lab_Click(Index As Integer)
Optionl(Index). Value = True A0(n, 3) = 1
A0(n, 2) = Index
Labell(n).BackColor = &H8000000D Labell(n).ForeColor = &HFFFF&
If Lab(Index). Caption = Text1,Text Then
A0(n, 4) = 1 Else
A0(n, 4) = 0
End If EndSub
Private Sub Label1_Click(Index As Integer)
"单击题号切换试题 n = Index
If A0(n, 3) <> 1 Then For i = o To 3
Optionl(i). Value = False
Next Else
「取消所有选项
Optionl(A0(n，2).Value = True恢复选项 End If
3系统实现的关键技术
本系统采用基于OLE自动化技术和VBA的OFFICE操作题自动评判技术。Word，Excel和PowerPoint等Office操作题的评判，这类试题一般要求学生打开初始操作文档，按愿目要求进行作答并保存结果。操作结果最终会形成一个文件，如Word文档和Excel工作薄等，Ofoe操作题自动评判的焦点就集中在这些文件上，对这些文
·...下转第163页
161