基于VB的办公软件无纸化考试系统的实现

2020-07-27黄艳丹

现代信息科技 2020年6期

摘要：为了适应学校“计算机应用基础”课程的教学需要，学校要求对该课程采用分模块教学、无纸化考试、评分自动化的目标。根据需求及教学经验，利用VB技术设计开发了计算机应用基础课程的自动改卷程序。解决了任课老师手工批改试卷工作量大的难题，提高了教师的工作效率，同时认为该办公软件无纸化考试系统可以进行推广。

关键词：计算机应用基础;无纸化考试;VB;自动改卷

中图分类号：TP311.52 文献标识码：A 文章编号：2096-4706（2020）06-0104-03

Abstract：In order to meet the teaching needs of the “Computer Application Foundation” course，the school requires that the course be divided into module teaching，paperless examination and automatic scoring. According to the needs and teaching experience，the paper designs and develops the program of automatically changing the volume of the basic course of computer application by using VB technology. It solves the problem of teachersmanual marking and correcting papers，improves teachersworking efficiency，and thinks that the paperless examination system of the office software can be popularized.

Keywords：computer application foundation;paperless examination;VB;automatic rewinding

0 引言

隨着社会对人们的电脑操作水平要求越来越高，“计算机应用基础”课程已经作为所有专业公需必修课程。学校将“计算机应用基础”课程教学分为若干个模块学习任务，并进行上机实操，任课老师要求学生在上机操作学习中完成实操任务、课后及时提交作业，为此需要任课老师手工批改课堂作业、期末考试改卷，工作量十分巨大、工作效率低下。面对这样的教学需求，本文开发了一套以VB为平台的办公软件无纸化考试自动改卷系统，可以更好地提高教师的工作效率。

1 系统功能模块分析

1.1 系统功能分析

本系统的用户是：教师、考生。

教师在该系统中可完成的操作：分模块出题，系统自动形成试题数据库;系统自动查阅考生试卷进行改卷评分，查询考生各模块的成绩和总分。

考生在该系统中可完成的操作：领取试卷，录入考生信息，操作完成试题模块任务，提交试卷，查询各模块的成绩和总分。

1.2 系统功能模块设计

通过对系统功能的分析，借鉴了广东省考试中心的Office办公软件考试系统的使用，本文设计的办公软件无纸化考试系统应分为试题数据库模块、自动改卷模块两个部分。

试题数据库模块：教师将理论、Windows、Word、Excel、PowerPoint、Internet六大模块知识点进行分类汇总、分模块出题，并录入到试题库中，然后系统自动形成试题库模块，生成考试试题内容;考生登录试题库模块领取试卷，录入考生信息，浏览考试试题内容并进行操作，完成试题任务，提交试卷。

自动改卷模块：系统自动查阅考生试卷，完成试题改卷，汇总学生成绩，生成评分文件，教师、学生可查询成绩。

2 系统的设计

2.1 试题数据库模块设计

通过对计算机办公软件应用考试大纲的分析，“计算机应用基础”课程的教学、考试主要分为理论、Windows、Word、Excel、PowerPoint、Internet这6大模块，每个模块都由相应的知识点组成。如Windows操作主要涉及文件或文件夹的移动、复制、重命名、删除、属性6个常用的知识点;Word文档的知识点较多，如对段落的文字设置字体、字号、颜色、下划线、字符间距等，对段落设置首行缩进、行距、段前段后间距、对齐方式等28个常用的知识点，Excel有单元格格式、公式函数、合并计算、图表等19个常用知识点。

试题数据库模块将“计算机应用基础”课程的知识点分为6大模块出题，题型分2大类，理论题和操作题，操作题又分为12小类。模块以Office办公软件中的Access作为试题数据库，建立理论题题库、实操题题库、考试理论题，通过VB工具生成界面简洁、操作方便的试题数据模块。

2.2 自动改卷模块的设计

自动改卷模块针对试题数据库模块的12个题型，使用VB工具实现查阅考生试卷，改卷，生成评分数据的功能。

3 系统的算法与实现

3.1 试题库模块的算法与实现

实操试题库模块的算法用VB打开Access试题题库，读取单元格并将单元格内容赋值到VB标签中，通过多按钮生成实操试题库模块。

理论题题库需要实现的功能是在理论题数据库的300条记录中，随机抽取20条形成考试题题目。代码为：

Private Sub Command1_Click（）

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim rs1 As New ADODB.Recordset

Dim sql， sql1 As String

Dim b（20） As Integer

conn.Open ‘连接Access数据库

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path&"＼key＼class

＼lilun1.mdb;Persist Security Info=False" ‘在300中随机产生20个题目编号

sql1 = "select * from 考试理论题

rs1.Open sql1， conn， 1， 3

If rs1.RecordCount < 10 Then

rs1.Close

Randomize

b（0） = Int（Rnd（） * 300） + 1

i = 1

Do While i < 20

b（i） = Int（Rnd（） * 300） + 1

For j = 0 To i - 1

If b（i） = b（j） Then i = i - 1

Next j

i = i + 1

Loop ‘把20个题目编号对应的试题写入考试理论题表

For k = 0 To 19

sql = "select * from 理论题题库 where TMID="& b（k）

rs.Open sql， conn， 1， 3

a1 = rs.Fields（1）

a2 = rs.Fields（2）

a3 = rs.Fields（3）

rs.Close

sql1 = "select * from 考试理论题

rs1.Open sql1， conn， 1， 3

rs1.AddNew

rs1.Fields（1） = a1

rs1.Fields（2） = a2

rs1.Fields（3） = a3

rs1.Update

rs1.Close

Next k

End If

End Sub

3.2 自动改卷模块的算法与实现

自动改卷系统的算法是用VB将考生提交试卷的记录中相关数据的属性内容抽取出来，与试题答案要求的屬性内容进行比较，并将所得的分数显示到文件中，实现自动改卷的目的。

现在以“计算机应用基础”课程的6大模块中的Word、Excel两个模块为例说明实现自动改卷的方法。

3.2.1 Word改卷系统的实现

Word的考点多，包括字体设置、段落设置、页面设置、图片设置、表格操作等内容，为了实现改卷统分功能，需要打开Word文档，对文档属性内容抽取再进行比较。

（1）Word文档属性内容的抽取和比较的伪代码为：

If wdApp.ActiveDocument.Paragraphs（1）.Range.Font的相应属性（字体、字号、颜色、加粗、字距加宽等）

Then计分

End If

If wdApp.ActiveDocument.Paragraphs（1）.Format的相应属性（对齐方式、间距、段前段后行距、特殊格式等）

Then 计分

End If

对于不同的考试题型，抽取出来的内容是不一样的，但编程思路是一样的。

（2）案例：

段落格式题型：请打开[段落A.doc]文档，完成以下操作：标题格式，字体为黑体、小二号字，居中，字符间距加宽1磅，段后间距1行。（1分）

代码为：

Dim wdApp As Word.Application '定义word类

Dim wdoc As Word.Document

Private Sub Command1_Click（）

Set wdApp = CreateObject（"Word.Application"） '定义word应用类

Set wdoc = wdApp.Documents.Open（App.Path &"＼KEY＼段落A.doc"） ‘打开word文件

wdApp.Visible = True ‘检查word文件可见

t = 0

If wdApp.ActiveDocument.Paragraphs（1）.Range.Font.Size = 18 Then ‘检查文本的字号

t = t + 0.2

End If

If wdApp.ActiveDocument.Paragraphs（1）.Range.Font.Name = "黑体" Then ‘检查文本的字体

t = t + 0.2

End If

If wdApp.ActiveDocument.Paragraphs（1）.Range.Font.Spacing = 1 Then ‘检查文字的间距为1

t = t + 0.2

End If

If wdApp.ActiveDocument.Paragraphs（1）.Format.Alignment = wdAlignParagraphCenter Then

‘检查文字的对齐方式

t = t + 0.2

End If

If wdApp.ActiveDocument.Paragraphs（1）.Format.LineUnitAfter = 1 Then ‘检查段间距

t = t + 0.2

End If

Form1.Label1.Caption = "二、段落格式题得分是："&t

wdoc.Close ‘关闭word文件

wdApp.Application.Quit ‘退出word

Set wdoc = Nothing

Set wdApp = Nothing

End Sub

3.2.2 Excel改卷系统的实现

Excel的考点复杂，包括单元格格式、公式函数、合并计算、图表等内容，为了实现改卷统分功能，需要打开Excel文档，对文档属性内容抽取再进行比较。

（1）Excel文档属性内容的抽取和比较的伪代码为：

A类题目：单元格格式

If xlApp.Range（"单元格"）.Font的相应属性（字体、字号、颜色、加粗、字距加宽等）

Then计分

End If

B类题目：公式函数类

xlApp.Range（"单元格"）.Select

If xlApp.ActiveCell.FormulaR1C1 = “对应函数”

Then计分

End If

C类题目：图表类

xlApp.Charts.Select

If xlApp.ActiveChart的相应属性（图表的类型、标题、图例位置）

Then 计分

End If

（2）案例：

Excel合并计算题型：请打开[XLS-2.XLS]文件，在工作表Sheet1中完成以下操作，完成后以原文件名保存。在“收入等级”列，通过IF函数求出每个职员收入水平的评定：如果“基本工资”大于等于2 800，则为“较高”;如果“基本工资”大于等于2 000但小于2 800，则为“中等”;否则为“较低”。（2分）

代码为：

Set xlApp = CreateObject（"Excel.Application"） '创建EXCEL应用类

Set xlBook = xlApp.Workbooks.Open（App.Path &"＼KEY＼XLS-2.xls"） '打开EXCEL工作簿

Set xlsheet = xlBook.Worksheets（1） '打开EXCEL工作表

xlsheet.Activate '激活工作表

'xlApp.Visible = True

xlApp.Range（"F2"）.Select

If xlApp.ActiveCell.FormulaR1C1 = "=IF（RC[-3]>= 2800，""較高""，

IF（RC[-3]>=2000，""中等""，""较低""））"

Then '通过IF 函数求出每个职员收入水平的评定

E2 = E2 + 2

End If