VB试题库管理系统设计的设计和关键技术

董晶晶（河南艺术职业学院,郑州 450002）

VB试题库管理系统设计的设计和关键技术

董晶晶
（河南艺术职业学院,郑州 450002）

本文介绍了VB结合Excel工作表和Word文档功能，实现试题库系统对试题存取和编辑、试卷生成及打印等功能的技术问题。该试题库管理系统具有较好的通用性和保密性。

VB；Excel；Word；试题库;自动组卷

1　引言

随着高校办公自动的普及，考试试卷出题要求标准化和全面化，手工出卷工作也逐步由自动组卷的方式所替代。利用VB编辑程序结合Word、Excel处理软件设计试题库管理系统，实现了公式、图表、图片等信息的录入，能够动态随机组合题型和知识点出卷。

2　系统基本结构的设计

试题库管理系统，要求可视化界面，系统操作简单，能够对试题录入、修改、删除等操作，组卷灵活简便，还可以对试卷进行编辑、预览、打印等操作。因此本文设计试题库管理系统分为4个功能模块。

2.1系统设置模块

能够对数据进行整理、转换成库文件数据、备份和系统密码设置、维护等功能。

2.2试题编辑模块

可以设置录入的科目、章节、题型、难易程度等信息，在每个章节里能够进行试题的录入、统计、修改、删除、查询等操作.

2.3组卷模块

有两种组卷方式供用户选项：

（1）随机组卷是系统根据用户输入各项出题数量和条件，随机试题进行组卷；

（2）手工组卷是用户通过查阅试题库，按章节分别选择试题进行组卷。系统要求组卷能够自动化排版，生成试卷、答案的Word文档，并且可以试卷中的试题进行浏览、修改、删除、调整顺序等操作。

2.4试卷输出模块

负责完成试卷、答案的导出、打印预览、打印的工作。

3 系统实现的关键技术

本文主要介绍试题编辑模块中试题存取的技术、组卷模块中试题的编辑和自动化排版的功能、试卷输出模块的实现

3.1试题存取技术

本文中系统数据库采用Excel的工作表，依次执行以下命令来实现试题的存取功能。

PublicXlappASExcel.Application

PublicXlbookASExcel.Workbook

PublicXlsheetASExcel.Worksheet（在试题编辑模块中声明数据的类型）

ChildForm.ole1.Doverb(-4)（激活OLE1）

Setxlapp=Getobject(,dexcel.applicationd)

Setxlbook=xlapp.Activeworkbook

Setxlsheet=xlapp.activesheet（引用赋予变量和应用程序对象）

通过Excel的多个工作表，实现系统的试题库编辑模块中的录入、统计、修改、删除、查询等功能。

3.2组卷模块的实现

3.2.1自动调用Word，实现试题的编辑功能

DeclareFunctionFindWindowLib”user32d”_

Alias“FindWindowA”(ByVallpClassNameAsString_,ByVallpWindowNameAsString).AsLong

DimhwndAsLong

ConstconHwndTopmost=-1

ConstconHwndNoTopmost=-2

GlobalConstSWP_NOMOVE=2

GlobalConstSWP_NOSIZE=1（声明对DLL中API函数的引用）

3.2.2试卷的自动化排版

为了用户可以方便用在Word中对试卷进行自动排版操作，可以采用Range对象设置文档的位置，通过Paragraphs对象默认设定它的长度、高度等。Word自动排版程序如下：

wddoc.Content.ParagraphFormat.Alignment=wdAlignParagraphLeft（字体排版）

.Range(Start:=0,End:=Nterm).Font.Size=18

.Range(Start:=0,End:=Nterm).Font.Bold=False

.Range(Start:=0,End:=Nterm).InsertAfter”d&Chr(10)&Chr(13)&””（考生信息排版）

.Range(Start:=Nterm+1,End:=Nterm+Ncourse+2).Font.Size=22

.Range(Start:=Nterm+1,End:=Nterm+Ncourse+2).Font.Bold=True

.Range(Start:=Nterm+1,End:=Nterm+Ncourse+2).InsertAfter””&Chr(10)&Chr(13)&””（考试课程信息排版）

.Range(Start:=Nterm+Ncourse+3,End:=Nterm+Ncourse+Ntime+6).Font.Size=13

.Range(Start:=Nterm+Ncourse+3,End:=Nterm+Ncourse+Ntime+6).InsertAfterdd&Chr(10)&dd（考试时间排版）

4　试卷输出模块的实现

试题库系统的试卷输出是以Word文档格式直接打印或是导出。（1）利用VB的Richtextbox控件把试卷内容写入数据表中，以方便用户预览打印效果；（2）采用自定义的Word控件结合VB程序，输出打印或是导出Word模板的试卷内容。使用“msWord1.SaveDoc”命令可执行如下试卷导出Word文档的功能:

wb.Document.Application.ChangeFileOpenDirectoryApp.Path+“cj”

5　结论

通过后期软件测试，对试题库管理系统运行稳定性、安全性、灵活性和高效性都有保障。支持Windows7操作系统，适用于各类基础课、专业课考试命题。但是本系统没有网络版的功能，在今后的系统升级中，将把该系统转为网络版试题库管理系统。

[1]杨红颖,王向阳.多媒体CAI软件研制开发策略综述[J].计算机与现代化,2000.

[2]杨满喜.一种试题库管理与自动成卷系统的实现[J].电脑编程技巧与维护,2005.

[3]詹速汉.高等数学题库管理系统的设计与实现[J].现代计算机,1998.

[4]杨勇，梁金铃.基于B/S模式的通用试题库系统的设计与实现[J].计算机工程与科学,2009.