计算机等级考试模拟系统的实现

计算机等级考试模拟系统的实现

蒋玲玲

（武汉船舶职业技术学院公共课部，湖北武汉４３００５０）

摘　要：根据“全国计算机等级考试（ＮＣＲＥ）”的要求及特点，利用ＶＢ开发计算机等级考试模拟系统，提出系统登录、

试题抽取及系统评分等主要模块的设计方法，满足全国计算机等级考试学习、训练、模拟考试的要求。

关键词：计算机等级考试模拟系统；Ａｃｃｅｓｓ数据库；数据加密中图分类号：ＴＰ３１９ 文献标识码：Ａ 文章编号：１６７２－７８００（２０１２）００９－００７１－０３

作者简介：蒋玲玲（１９７９－），女，硕士，武汉船舶职业技术学院公共课部讲师，研究方向为计算机应用。０　引言

随着计算机普及教育的持续升温，各种计算机应用能

力的考核也持续增加。为了实现国家经济信息化，国家教

委考试中心自１９９４年开始推出了全国计算机等级考试。

该项考试面向社会，根据使用计算机的不同需求，以应用

能力为主，划分等级，分别考核。它为全社会提供了一个

科学、统一、公正的基础性考试。目前，针对全国计算机等

级考试，有多种模拟考试系统，笔者所在学院为进一步提高

计算机教学质量和全国计算机等级考试的通过率，购买过

多款模拟考试软件，但每次进行软件升级都需要不菲的费

用，如果自行开发一套模拟考试系统，不仅可以节约成本，

而且能够根据学生的成绩有针对性地为学生制定考试内

容。基于以上情况的需要，开发了Ａｃｃｅｓｓ模拟考试系统。

１　系统设计

１．１系统功能设计

在功能方面，教师可以对题库进行修改、维护，教师可以查看学生的某次测试的信息，可以查询学生的姓名、学

号及得分情况。一般的系统由设置模块、题型管理模块、

试题编辑模块、试题设置模块四部分组成。主要功能是开

发考试科目、考试题型、考试内容、考试题量以及试题难度

系数等。有的网络考试系统具有专业的考试、培训、学习

管理解决方案，采用开放、动态的系统架构，将传统的考试

培训模式与先进的网络应用相结合，可使用户根据自身应

用特点快速构建考试培训平台系统，实现对考试、培训、学

习的管理。系统不仅可满足各类专业的教育、考试、培训

机构的考试应用与管理需求，也是各类政府机构、企业、事

业单位进行考试考核、技能培训、评测、组织学习的平台。

相关的系统其功能、设计方案一般采用符合国际标准的信

息技术和网络技术，选择（大型）数据库管理系统和开发工

具。现代远程教育技术和网络技术的发展越来越需要考

试系统自动化、集成化，各学科通用化考试系统的开发也

多采用Ｂ／Ｓ（Ｂｒｏｗｓｅｒ／Ｓｅｒｖｅｒ）模式，即浏览器服务器模式，

对试卷合理性、试卷内容多样化以及考试安全性提出了更

高的要求。系统功能有：报名管理、题库管理、试卷生成及

管理，自测（模拟考试）、正式考试和评分管理，成绩统计和

分析等。有的系统还包括考生学籍、成绩管理，设置考试

［５］　ＣＨＡＤ　ＤＡＲＢＹ．Ｊａｖａ网络编程指南［Ｍ］．北京：电子工业出版社，

２００２．［６］　卫红春．信息系统分析与设计：第２版［Ｍ］．西安：西安电子科技大学出版社，２０１０．（责任编辑：余　晓）

Ｔｈｅ　Ｄｅｓｉｇｎ　ａｎｄ　Ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　ｏｆ　Ｅ－ａｌｂｕｍ　Ｓｙｓｔｅｍ　Ｂａｓｅｄ　ｏｎ　ＪＡＶＡ

Ａｂｓｔｒａｃｔ：Ｔｈｉｓ　ｐａｐｅｒ　ｄｅｓｉｇｎｓ　ａｎｄ　ｉｍｐｌｅｍｅｎｔｓ　ａｎ　Ｅ－ａｌｂｕｍ　ｓｙｓｔｅｍ　ｕｓｉｎｇ　ＪＡＶＡ　ｌａｎｇｕａｇｅ　ｂａｓｅｄ　ｏｎ　Ｃ／Ｓ　ｓｔｒｕｃｔｕｒｅ．Ｔｈｉｓ　ｓｙｓ－

ｔｅｍ　ｉｎｃｌｕｄｅｓ　ａｌｂｕｍ　ｍａｎａｇｅｍｅｎｔ　ｍｏｄｕｌｅ，ｐｈｏｔｏ　ｍａｎａｇｅｍｅｎｔ　ｍｏｄｕｌｅ，ｂａｃｋｇｒｏｕｎｄ　ｆｒａｍｅ　ｍａｎａｇｅｍｅｎｔ　ｍｏｄｕｌｅ　ａｎｄ　ｂａｃｋ－

ｇｒｏｕｎｄ　ｍｕｓｉｃ　ｍａｎａｇｅｍｅｎｔ　ｍｏｄｕｌｅ．Ｕｓｉｎｇ　ｔｈｉｓ　ｓｙｓｔｅｍ，ｕｓｅｒｓ　ｃａｎ　ｕｐｌｏａｄ　ｐｈｏｔｏｓ　ａｎｄ　ｆｉｎｉｓｈ　ｐｈｏｔｏｓ　ｅｆｆｅｃｔｓ　ｐｒｏｃｅｓｓｉｎｇ．Ａｆｔｅｒ

ｈａｎｄｌｉｎｇ　ｐｈｏｔｏｓ，ｕｓｅｒｓ　ｃａｎ　ａｄｄ　ｂａｃｋｇｒｏｕｎｄ　ｆｒａｍｅ，ｂａｃｋｇｒｏｕｎｄ　ｍｕｓｉｃ，ａｎｄ　ｍａｋｅ　ｉｔ　ｂｅｃｏｍｅ　ａｎ　Ｅ－ａｌｂｕｍ　ｗｈｉｃｈ　ｈａｓ　ｄｙｎａｍｉｃ

ｅｆｆｅｃｔｓ．Ｔｈｉｓ　ｓｏｆｔｗａｒｅ　ｉｓ　ｖｅｒｙ　ｍａｎｅｕｖｅｒａｂｌｅ，ｃｏｎｖｅｎｉｅｎｔ　ａｎｄ　ｐｒａｃｔｉｃａｌ．

Ｋｅｙ　Ｗｏｒｄｓ：Ｅ－ａｌｂｕｍ；Ｃ／Ｓ；ＪＡＶＡ参数及相关信息，试题试卷难度、信度评估、远程组卷、试

卷评阅、试题库维护、任课教师信息管理等功能。以教育

统计学为基础，教育测量学、教育管理学和数理统计方法

等多学科知识对考试数据做科学、客观、全面的定量分析，

并在此基础上对考试及教学定性评估，反馈教学及改进考

试的相关信息。

１．２　系统数据库设计

系统采用Ａｃｃｅｓｓ２０００作为关系数据库。根据考试系

统的特点，所有模块集中到一个数据库，建立数据库、数据

项和数据结构如表１所示。

表１　系统数据库

表名字段数字段内容选择题表７题号，题目，选项Ａ、Ｂ、Ｃ、Ｄ，答案填空题表３题号，题目，答案操作题表３题号，题目，答案

改错题表６题号、题干、内容、源文件名、结果文件名、结果文件内容

编程题库５题号、题干、内容、结果文件名、结果文件内容考生资料表２考生姓名和考号选择题答题表２答案，题号填空题答题库２答案，题号操作题答题表２题号，答案改错题答题表３题号、结果文件名、结果文件内容试卷表２表名，题号

注：数据库加密码，防止考生直接察看和破坏数据库。

２　系统模块设计

２．１　登录验证模块设计

（１）创建一个交互界面，建立数据库连接，改界面用于

验证考生的信息。

（２）初始化考试环境。根据系统设置从题库中随机抽

取试题。

在该模块中有可能出现考生因意外中断考试，需二次

登录。该状况出现时，如何完成这种情况的考试计时功

能，可以通过设计补时系统完成，即监考老师登录考试管

理系统，对该考生进行补时。

２．２　试题抽取模块设计

进入考试界面后，首先清空考试目录下的试题，然后

调用ＲａｎｄｏｍＳＴ（）函数随机抽取的试题题号和表名添加

至试卷表中，为考生界面传送数据源，并在考生目录下生

成操作题文件。该模块应该为用户提供清晰、便捷的答题

界面。

２．３　评分模块设计

评分实现的功能是：计算分数、统计平均分、分数归

类。

（１）分数统计：按照指定的范围或条件计算平均分。

每种统计数据由一个统计函数计算得出。

（２）分数归类：按照指定的范围或条件和分数划线（如

将所有分数分为６０以下，６０～８０，８０以上）对分数作归类统计。归类统计由归类函数计算得出。

当用户提交试卷后，有关本次考试的答案已经保存在

选择题答题表、填空题答题表等４张表中，系统从这４张

表中读出答案，与选择题、填空题表中的答案进行对照并

统计分数，并将总分与每题的得分与答案显示在后台界面

中。

３　系统实现

３．１　数据库操作

为了对Ａｃｃｅｓｓ数据库进行操作，在Ｖｉｓｕａｌ　Ｂａｓｉｃ中首

先添加引用“ＡＤＯＤＢ”，并在标准模块中加入以下语句：

＇定义一个ａｄｏ的数据库连接

Ｐｕｂｌｉｃ　ｃＮ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｃｏｎｎｅｃｔｉｏｎ

＇定义一个ａｄｏ的数据库记录集

Ｐｕｂｌｉｃ　ｒＳ　Ａｓ　Ｎｅｗ　ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ

＇声明一个ＳＱＬ语句字符串

Ｐｕｂｌｉｃ　ｓｔｒＳＱＬ　Ａｓ　Ｓｔｒｉｎｇ

Ｓｕｂ　ｍａｉｎ（）

　ｃＮ．Ｏｐｅｎ　＂Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０；Ｄａｔａ－Ｓｏｕｒｃｅ＝＆Ａｐｐ．Ｐａｔｈ　＆＂＼ｅｘａｍ．ｍｄｂ＂　＇ｅｘａｍ．ｍｄｂ为二级考

试数据库

ｃＮ．ＣｕｒｓｏｒＬｏｃａｔｉｏｎ＝ａｄＵｓｅＣｌｉｅｎｔ

Ｆｏｒｍ１．Ｓｈｏｗ

Ｅｎｄ　Ｓｕｂ这样在程序设计时，若需打开数据表进行操作，只须

加入语句：

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ＿Ｌｏａｄ（）

ｓｔｒＳＱＬ　＝　＂ｓｅｌｅｃｔ＊ｆｒｏｍ考试资料表ｗｈｅｒｅ考号

＝＂＆＂＂＂＂＆Ｔｒｉｍ（ｎｕｍ．Ｔｅｘｔ）＆＂＂＂＂

　＇执行ｓｔｒＳＱＬ中定义的查询语句，Ｔｒｉｍ（ｎｕｍ．Ｔｅｘｔ）输入

的考号

Ｓｅｔ　ＭＳＨＦＧ．ＤａｔａＳｏｕｒｃｅ　＝　ｃＮ．Ｅｘｅｃｕｔｅ（ｓｔｒＳＱＬ）

Ｅｎｄ　Ｓｕｂ其中ｓｔｒＳＱＬ为相关查询语句，该语句表示从考试资

料表中查询考号为Ｔｒｉｍ（ｎｕｍ．Ｔｅｘｔ）的记录，通过以上操

作语句，就能查询到表中相应的数据。

３．２　数据库中ＯＬＥ对象数据存储与读取

由于计算机等级考试模拟考试系统中，试题的内容、

试题答案、编程题以及试题图片素材等在数据库中，都是

以ＯＬＥ对象的数据形式进行存储的，如果要管理这些数

据，需要使用Ｖｉｓｕａｌ　Ｂａｓｉｃ中的ＡＤＯＤＢ．Ｓｔｒｅａｍ流完成。

通过ＡＤＯＤＢ．Ｓｔｒｅａｍ流，可以对数据库中的ＯＬＥ对象数

据进行读取，然后再将其保存为另一文件。通过对ＯＬＥ

对象数据的读取操作，可以把存储在数据库中的ＯＬＥ对

象数据，还原为相应的文档，完成数据的读取操作。

３．３　数据加密解密

为保证数据库中的数据安全，必须进行加密。在Ｖｉｓ－

ｕａｌ　Ｂａｓｉｃ可利用ＳｅｔＤａｔａｂａｓｅＰａｓｓｗｏｒｄ类进行加密，Ｃｒｅａｔ－

ｅＤｅｅｒｙｐｔｏｒ解密，然后通过ＯｐｅｎＰａｓｓｗｏｒｄＰｒｏｔｅｃｔｅｄＤａｔａ－·２７·软件导刊 ２０１２年ｂａｓｅ类打开设置加密的数据库。

加密代码如下：

　Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＳｅｔＤａｔａｂａｓｅＰａｓｓｗｏｒｄ（ＤＢＰａｔｈ　Ａｓ

Ｓｔｒｉｎｇ，＿ｎｅｗＰａｓｓｗｏｒｄ　Ａｓ　Ｓｔｒｉｎｇ）Ａｓ　Ｂｏｏｌｅａｎ

　＇Ｕｓａｇｅ：　Ｐａｓｓｗｏｒｄ　ｐｒｏｔｅｃｔ　ａ　ｄａｔａｂａｓｅ　ｔｈａｔ　ｐｒｅ－ｖｉｏｕｓｌｙ　ｈａｄ　ｎｏ

　＇ｐａｓｓｗｏｒｄ

　＇Ｐａｒａｍｅｔｅｒｓ：　ｓＤＢＰａｔｈ：　Ｆｕｌｌ　Ｐａｔｈ　ｔｏ　Ａｃｃｅｓｓ　Ｄａｔａｂａｓｅ

　＇ｎｅｗＰａｓｓｗｏｒｄ：　ｔｈｅ　ｐａｓｓｗｏｒｄ

　＇ｒｅｔｕｒｎｓ　ｔｒｕｅ　ｏｎ　ｓｕｃｃｅｓｓ　ｆａｌｓｅ　ｏｔｈｅｒｗｉｓｅ

　ｉｆ　Ｄｉｒ（ＤＢＰａｔｈ）＝＂＂Ｔｈｅｎ　Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ

　Ｄｉｍ　ｄｂ　Ａｓ　ＤＡＯ．Ｄａｔａｂａｓｅ

　Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ

　Ｓｅｔ　ｄｂ＝ＯｐｅｎＤａｔａｂａｓｅ（ＤＢＰａｔｈ，　Ｔｒｕｅ）

　Ｉｆ　Ｅｒｒ．Ｎｕｍｂｅｒ＜＞０Ｔｈｅｎ　Ｅｘｉｔ　Ｆｕｎｃｔｉｏｎ

　ｄｂ．ｎｅｗＰａｓｓｗｏｒｄ＂＂，ｎｅｗＰａｓｓｗｏｒｄ

　ＳｅｔＤａｔａｂａｓｅＰａｓｓｗｏｒｄ＝Ｅｒｒ．Ｎｕｍｂｅｒ＝０

　ｄｂ．Ｃｌｏｓｅ打开加密过的数据库代码如下：

　Ｐｕｂｌｉｃ　Ｆｕｎｃｔｉｏｎ　ＯｐｅｎＰａｓｓｗｏｒｄＰｒｏｔｅｃｔｅｄＤａｔａｂａｓｅ（ＤＢ－Ｐａｔｈ　Ａｓ　Ｓｔｒｉｎｇ，＿Ｐａｓｓｗｏｒｄ　Ａｓ　Ｓｔｒｉｎｇ）　Ａｓ　Ｏｂｊｅｃｔ

　＇Ｕｓａｇｅ：　Ｏｐｅｎ　Ｐａｓｓｗｏｒｄ　ｐｒｏｔｅｃｔｅｄ　ｄａｔａｂａｓｅ

　＇Ｐａｒａｍｅｔｅｒｓ：　ＤＢＰａｔｈ：　Ｆｕｌｌ　Ｐａｔｈ　ｔｏ　Ａｃｃｅｓｓ　Ｄａｔａｂａｓｅ

　＇Ｐａｓｓｗｏｒｄ：　ｔｈｅ　Ｐａｓｓｗｏｒｄ

　＇ｒｅｔｕｒｎｓ　ｔｈｅ　ｄａｔａｂａｓｅ，　ｉｎ　ｉｔ＇ｓ　ｏｐｅｎ　ｓｔａｔｅ　ｉｆ　ｓｕｃｃｅｓｓｆｕｌ．

　＇Ｏｔｈｅｒｗｉｓｅ　ｒｅｔｕｒｎ　ｖａｌｕｅ　ｗｉｌｌ　ｅｖａｌｕｔｅ　ｔｏ　ｎｏｔｈｉｎｇ