《计算机基础》考试系统设计与实现

开篇：润墨网以专业的文秘视角，为您筛选了一篇《计算机基础》考试系统设计与实现范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

［摘 要］ 本文通过对当前的《计算机基础》课程要求进行研究，设计出满足课程考核要求的考试系统，该系统能切实的满足了教学考核的实际需要。并尝试通过对学生考试的数据进行数据挖掘以对任课教师的教学质量评估提供决策支持。

［关键词］ 考试系统 VBA 对象

一、引言

随着计算机网络技术及数据库技术的发展，传统的纸质考试模式存在的诸多问题越来越影响了考试的公平性和实用能力的判定，特别对于《计算机基础》这门课程而言操作能力的培养占据了主要的内容，而现有的考试形式很难在这方面对学生进行考核，由此就引出了高分低能，死记硬背的问题。此外对于教师的教学活动考核也难以从考试数据中得到准确的体现。

本文通过分析目前国内各种无纸化考试系统以及高校教师考评体系的现状和不足，结合《大学计算机基础》课程，分析设计出一套基于C/S结构的局域网考试方案，并在此研究基础上，基本实现了一个较为实用的无纸化网络考试系统。接下来通过对考试的数据进行数据挖掘以形成决策来改进教师的教学活动。

二、无纸化考试系统系统设计

整个系统功能分为：单机练习、单机模拟考试、上机考试、数据分析、题库管理五个部分，如下图1：

三、无纸化考试系统系统实现

整个系统采用Visual Basic 6.0进行编程，后天数据库采用Microsoft SQl Server 2000,采用的关键技术主要是针对于各种题目的评卷。系统运行图见图2，图3。

VBA( Visual Basic for Application) 是Office 自带的新一代的标准宏语言, 是VB( Visual Basic) 的子集。本系统利用VB调用Word的Application对象,用VBA 语句对有关对象及其属性做出判断,以实现教学效果智能评判。

1.word题评卷

Word题型归纳为7大类，分别为：段属性、段替换、页面设置、文字替换、脚注和尾注、分栏，图片。Word题评卷的第一步就是要建立所有该题题目所涉及到的属性结果，并由此建立起评卷属性，以下以“加上标题：'计算机技术'，三号宋体，居中。”为例生成的评卷属性有：1、第一段的状态为“标题”，且第一段的内容为“计算机技术”，

ActiveDocument.Paragraphs(1).Format.Style=”标题”

ActiveDocument.Paragraphs(Int(Left(parastr, 1))).range.Text=”计算机技术”

涉及到的VBA对象包括以下：

Application 对象: Word2000中最高层对象, 它代表的是Word2000 应用程序本身。

Range 及Selection 对象: 完成文档中指定区域的选择, 以便对该区域进行操作。

Font 对象: 设置文本的字体格式, 它包含了字体各种属性, 如名称、大小、颜色等。ParagraphFormat 对象: 包含段落所有格式, 如对齐、缩进等属性。

PageSetup 对象: 包含文档的页面大小、页边距等属性。

2. excel题评卷

Excel题型归纳为6大类，分别为：公式复制、行列高、sheet属性、版面、特定单元格属性、单元格拷贝。以下介绍公式复制：

公式复制的评卷代码如下：

Do While Len(cellstr) > 0 ‘cellstr为多个单元格的正确值字符表示

If InStr(cellstr, ";") > 0 Then

If ActiveSheet.range(Left(cellstr, InStr(cellstr, ";") - 1)).HasFormula Then

If Format(CDbl(ActiveSheet.range(Left(cellstr, InStr(cellstr, ";") - 1)).Value), "0.00") = Format(CDbl(Left(valuestr, InStr(valuestr, ";") - 1)), "0.00") Then

' Picture1.Print "计算正确"

okcount = okcount + 1

Else

Picture1.Print "公式复制计算值错误"

analyshow.List1.AddItem (Left(cellstr, InStr(cellstr, ";") - 1) & "公式复制计算值错误")

errorcount = errorcount + 1

End If

Else

errorcount = errorcount + 1

End If

cellstr = Right(cellstr, Len(cellstr) - InStr(cellstr, ";"))

valuestr = Right(valuestr, Len(valuestr) - InStr(valuestr, ";"))

Else

On Error GoTo myError11

If ActiveSheet.range(cellstr).HasFormula Then

If Format(CDbl(ActiveSheet.range(cellstr).Value), "0.00") = Format(CDbl(valuestr), "0.00") Then

okcount = okcount + 1

Else

errorcount = errorcount + 1

End If

Else

myError11:

errorcount = errorcount + 1

End If

End If

Loop

四、基于《计算机基础》网络考试系统的数据分析

数据挖掘分析学生的《计算机基础》网络考试成绩, 可以找出未能通过考试考生的考试得分以及学生的专业年龄、任课教师等特征,给出决策分类树, 并提供给《计算机基础》所在的计算机公共教研室以及各个任课教师有针对性的改进教学工作,并提供给人事部门对教师的教学质量考评提供参考数据。

数据预处理

通过本文设计的《计算机基础》网络考试系统,以及任课教师的相关资料，进行必要的数据化处理。然后设置Class和Attributes, 以成绩评价作为CLASS,成绩评价是根据总成绩而来，具体的表示如下：

if 总成绩>=90 then 成绩评价=‘优’

Else if 总成绩>=80 then 成绩评价=‘良’

Else if 总成绩>=70 then 成绩评价=‘中’

Else if 总成绩>=60 then 成绩评价=‘及格’

Else成绩评价=‘不及格’

Endif

Attributes的参数有: 学生学号、专业编号、年龄、性别、任课教师编号、选择题得分、打字题得分、WORD题得分、EXCEL题得分、POWERPOINT题得分, 其中选择题得分、打字题得分、WORD题得分、EXCEL题得分、POWERPOINT题得分为连续数值, 其他输入为离散数值。

算法采用ID3-IV(Quinlan-1986), confidence level选定为0.05，生成的决策树如下：

图 4

由整体的决策树可以看出

（1 ）word题得分超过19分及格率超过95%，

（2） word题得分超过19分且EXCEL得分超过10分及格率为100%，

（3）word题得分低于19分不及格率超过32%，

（4） word题得分低于15.5分不及格率超过57%，

由此决策树可以看出来，word题总分虽然只有20分但word题目的得分好坏基本上决定了该同学接下来题目的得分趋向，这一点在计算机公共教研室的历年教学讨论会中都得到了认知上的共识，查看会议纪要是这样描述的：

五、结论

本文针对现今高等院校计算机基础考试的现状，研究开发了一个简洁、方便、灵活的《计算机基础》考试系统和《计算机基础》考试练习系统，为高校对学生的计算机的操作能力考核提供手段。后续工作将紧密围绕学生的考试数据进行数据挖掘，以得出数据，并通过此项数据对教师的教学质量考核提供决策。

参考文献：

[1] 萨师煊 王珊著：《数据库系统概论》，清华出版社[M].2000年

[2] Mike Gunderloy著：《ADO与编程指南》[M].电子工业出版社，2004 9

[3] 晶辰工作室：《Word2000 VBA 开发实例指南》[M]. 电子工业出版社, 2000

[4] 赵建敏 郭庆：《Visual Basic 6.0编程指南》[M] .航空工业出版社, 1999