计算机专业课程设计-试卷自动生成系统

燕山大学专业课程综合设计报告学院里仁学院年级专业08计算机2班学生姓名赵鑫学号0813********指导教师于家新设计日期2011年9 月26日—2011年10月14日专业课程综合设计报告1、设计任务以任何一门课程为例，能够以手工或自动方式，将该课程的每道试题录入到系统之中，并且通过设置参数，自动地生成一份试卷。

该试卷的题型可以分为选择题（包括单选和多选）、填空题、简答题、计算题等。

要求使用者能够通过系统，对所需要的题型、每种题型试题的数量、每道题的分值、每道题的难度进行设定，自动地生成一个word版本的试卷，该试卷格式符合一般试卷标准。

2、设计思想通过用access 数据库录入题库信息，然后通过Visual C++的界面显示出来，用户可以在Visual C++的界面添加试题，删除试题，按照一定的条件搜索试题，可以自动生成试卷和手动生成试卷，并导入word文档现实出来。

2.1 功能需求分析本系统是题库与试卷生成系统，主要有三方面的功能需求，其分别是：（1）题库管理：为了用户能方便管理庞大的试题题库，实现各种常用或者自定义题型的录入、修改、查询、删除等功能。

（2）手动生成试卷：用户可以对权限范围内的科目进行手动组卷。

选定科目后，选择共需几道大题、试卷的总分值、每道大题的题型、每大题包含小题的数量及每道大题的分值；对于每道大题需进入“选择试题”模块浏览试题库中的对应题型从中手动选择所需试题。

由于题库中题量较大，可以进行搜索查询，亦可将试题导出至word文档进行浏览，选择试题完毕后保存回到“手动组卷”模块。

（以上全部为必须操作）。

组卷后选择是否保存试卷。

试卷生成后可以将试卷和答案导出至word 文档。

再次选定科目后清除上一次的显示结果自动进入下一次的手动组卷模式。

（3） 自动生成试卷：用户可以对权限范围内的科目进行自动组卷。

选定科目后，选择共需几道大题、试卷的总分值、每道大题的题型、每大题包含小题的数量及每道大题的分值（以上为必选）；对于每道大题可以进入“选择题目范围及难度”模块对题目进行范围和难度的限制（可选）。

组卷后选择是否保存试卷。

试卷生成后可以将试卷和答案导出至word 文档。

再次选定科目后清除上一次的显示结果进入下一次的自动组卷模式。

3、设计过程3.1系统流程分析本系统有两类用户使用，分别是系统管理员和一般管理员。

系统管理员负责管理系统帐号和系统的其他全部功能；一般管理员不能管理用户但是可以更新维护题库，按需求生成和保存打印试题等。

系统流程如图3-1所示：图3-1用户题型表试题表课程表章节表用户题库用户自动生成组卷手动生成组卷3.2 数据流程分析该系统的数据流程分为两部分，图3-2为顶层数据流程图，用户由各种类型的试题根据相应需求生成试卷。

图3-3为第二层的数据流程图，是对顶层数据流程的分解，将试卷的生成分为手动生成和自动生成。

图3-2 顶层数据流程图图3-3 第二层数据流程图3.3系统设计3.3.1 系统总体设计目标本系统是根据题库管理与试卷生成系统的具体需求应用而开发的，能够实现题库管理与试卷生成的工作，系统的开发主要要实现的目标有以下几个方面：用户试卷生成处理试题信息表自动生成组卷、手动生成组卷用户题型设置题库设置试题录入自动生成组卷手动生成组卷题型试题章节题库课程题型信息表课程信息表章节信息表手动生成组卷自动生成组卷（1） 灵活多样的组卷方式，如手工组卷和自动组卷。

（2） 既能临时生成试卷，又能直接使用以前生成的试卷，也就是要求能对生成的试卷进行保存，以便下次直接使用，并能删除不再需要的试卷。

（3） 试卷的保密性要求，只有授权人员才能生成和查阅试卷。

（4） 试卷生成速度不宜太慢。

（5） 生成的试卷按照规定的模板输出，并能导出到word 文档中。

（6） 生成的试卷既可以直接打印，也可以在word 中修改和打印。

（7） 友好的用户界面。

3.3.2 系统总体功能模块设计本系统主要功能是为使用者提供一个简单快捷的试题录入、删除、修改、查询、浏览，快速组卷及试卷管理的软件系统。

系统模块分为以下几个部分，如图3-4所示：图3-4题库管理与试卷生成系统题库功能系统功能试卷功能帮助与关于密码管理用户管理课程管理题型管理试题管理试卷管理手动组卷自动组卷系统关于系统帮助添加试题修改试题保存试题删除试题添加新题型删除现有题型删除现有科目添加新科目预览现有试卷及答案删除现有试卷及答案手动抽取试题组卷随机抽取试题组卷3.4 结构设计3.4.1登陆模块设计（1）登陆模块结构图该模块包括用户管理模块和用户密码管理模块。

系统启动时调用此模块，要求用户先进行登陆。

登录模块结构如图3-5所示：图3-5（2）界面设计“登录”界面是用户进入主界面的路径，由三个静态文本框控件和两个Edit Box 控件，两个按钮控件和一个Combo Box 控件组成。

如图3-6所示：图3-6欢迎界面登陆失败三次退出登录进入主界面（3）属性设置三个静态文本框的Caption属性分别为：登录方式、用户名、密码。

Combo Box的Data属性为：系统管理员\n普通管理员\n一般用户。

“密码：”静态文本框对应的Edit Box的Style的Password属性为选中状态。

两个按钮控件的Caption属性分别为：登录系统和取消登录。

（4）功能在[登录方式]处选择以何种身份登录，在[用户名]和[密码]处键入正确的用户名和密码，确定后进入系统主窗口。

如果键入的用户名或密码错误，系统将出现错误提示，然后重新键入。

输入错误超过三次，自动退出系统。

3.4.2 系统主要模块设计系统登录成功后进入主系统主窗口，系统主窗口显示了系统的主要功能，如图3-7所示：图3-7该界面可以实现试题的查询搜索、试题添加、试题删除、试题修改、试题浏览。

点击自动生成，可以实现根据选题数目、选题类型、计算总分可以自生成一份试卷，导入到word文档中。

3.5数据库模型数据库设计是在选定的数据库管理系统基础上建立数据库的过程。

所有数据包含在一个access数据库中，数据库名为题库。

设计表如下：用户登录信息表：存储用户的详细信息，包括用户名、用户密码、用户权限和管理科目。

题目类型信息表：存储题目类型的信息，包括题目类型编号和题目类型名称。

科目信息表：存储各个科目的信息，包括科目编号和科目名称。

试题信息表：存储试题的信息，包括试题编号、类型、难度、所属章节、内容和答案。

已组试卷信息表：存储已组试卷的信息，例如试卷编号、方案编号等信息。

成套试卷信息表：存储成套试卷的信息，例如试卷编号、创建人、创建时间等信息。

实体E-R图本系统的实体有：用户实体、试题实体，各个实体具体的描述E-R图如图3-8、图3-9所示。

用户用户名密码用户权图3-8 用户实体E-R图图3-9 试题实体E-R 图3.5.1 数据库的存储结构本系统采用access 2003 数据库，系统数据库名为题库，数据库题库中包括5个数据表。

（1）用户表Admin ，主要用来存储系统管理员的相关信息，表结构如表3-10：表3-10 Admin 表字段名 数据类型 长度 是否主键 用户名 文本 50 是 密码 数字 50 权限文本50（2）用户表Teacher ，主要用来存储一般管理员的信息，表结构如表3-11：表3-11 Teacher 表字段名 数据类型 长度 是否主键 用户名 文本 50 是 密码 文本 50 权限文本50（3）试题信息表，主要用来存储题库中的试题，表结构如表3-12：试题题干答案课程章节难度图片类型选择题号表3-12 试题信息表字段名数据类型长度是否主键题号自动编号8 是题干文本300答案文本300课程名文本50章节文本50图片路径文本100难度文本50类型文本50是否被选是、否 1（4）题型表，用来存储动态生成试题类型，表结构如表3-13：表3-13 题型表字段名数据类型长度是否主键类型文本50 是（5）课程表，用来存储课程相关信息，表结构如表3-14：表3-14 课程表字段名数据类型长度是否主键试题章节文本50 是如图3-15所示：图3-153.5.2 连接数据库点击鼠标右键，点击添加部件，出现如下图3-16界面，选择Microsoft ADO Control 6.0（SP6）和Microsoft Hierarchi FlexGrid Control 6.0。

图3-16添加这两个部件，将鼠标移至Adodc1，在属性页的通用页面中选中链接字符串，点击生成，选择想要链接的数据库名称，测试连接，出现链接成功提示。

过程如图3-17所示：图3-17回到属性页，选择记录源，将命令类型设置为adCmdTable,,并在表或存储过程名称中选择要链接的表的名称。

如图3-18所示：图3-18回到form页面，点击部件MSHFlexGrid1，在其属性窗口DataSource项选择Adodc1，编译之后即可看出链接成功，如图3-19所示：图3-193.6 程序代码如下：（1）添加试题：Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.Recordset("试题类型").Value = Text1.TextAdodc1.Recordset("试题分值").Value = Text2.TextAdodc1.Recordset("试题难度").Value = Text3.TextAdodc1.Recordset("试题章节").Value = Text4.TextEnd Sub（2）删除试题Private Sub Command2_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextAdodc1.RefreshAdodc1.RefreshMsgBox "记录删除成功！", , "提示"End Sub（3）更新试题Private Sub Command3_Click()Adodc1.Recordset.UpdateAdodc1.RefreshEnd Sub（4）（关闭窗口）Private Sub Command4_Click()Unload MeEnd Sub（5）搜索功能Private Sub Command5_Click()If Text5.Text <> "" ThenAdodc1.RecordSource = "SELECT * from 试题信息表where " & Combo1.Text & " like " & Text5.Text & "'"Debug.Print Adodc1.RecordSourceAdodc1.RefreshElseMsgBox "没有" & Combo1.Text & "查询的数据", vbInformation + vbCritical, "提示"End IfEnd Sub（6）查看首条记录Private Sub Command6_Click()Adodc1.Recordset.MoveFirstEnd Sub（7）查看上一条记录Private Sub Command7_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstMsgBox "这已是第一条了", vbOKOnly + vbExclamation, "提示"End IfEnd Sub（8）查看下一条记录Private Sub Command8_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox "这已是最后一条了", vbOKOnly + vbExclamation, "提示"End IfEnd Sub（9）查看末记录Private Sub Command9_Click()Adodc1.Recordset.MoveLastEnd Sub（10）实现在复选框中查询关机词的功能Private Sub Form_Load()Combo1.AddItem ("试题类型")Combo1.AddItem ("试题分值")Combo1.AddItem ("试题难度")Combo1.AddItem ("试题章节")Combo1.ListIndex = 0Text5.Text = ""End Sub（11）生成组卷代码Dim TempRec1 As New ADODB.RecordsetDim A1 As StringDim MyWord As Word.ApplicationDim WordDoc As Word.DocumentDim BTextBoxDim MyRange As Word.RangeDim MyTable As Word.TableDim MyCell As Word.CellDim MyCells As Word.CellsDim MyCols As Word.ColumnsDim A() As StringDim B() As StringDim ColN As IntegerDim ArrBytes() As ByteDim FreeFileNumber As IntegerDim Lngsize As LongSet TempRec1.ActiveConnection = DBConIf Combo1.ListIndex = -1 ThenMsgBox "没有选择试卷名称,不能生成试卷!", vbOKOnly, "提示"Exit SubEnd IfTempRec1.Open "select id from sjtx where sjbm='" & SjbmArry(Combo1.ListIndex + 1) & "'"If TempRec1.RecordCount = 0 ThenMsgBox "没有选择试卷题型顺序,不能生成试卷!", vbOKOnly, "提示"Exit SubEnd IfTempRec1.CloseLoad Form13Form13.Height = 810Form13.Width = 4680CenterForm Form13, MDIForm1Form13.ShowMe.Enabled = False创建新文档On Error GoTo ErrorEndStart:Set WordDoc = MyWord.Documents.AddIf Option1.Value ThenWith WordDoc.PageSetupPageHeight = InchesToPoints(11.69)PageWidth = InchesToPoints(8.27)End WithEnd IfIf Option2.Value Then试卷分栏设置WordDoc.PageSetup.TogglePortraitWith WordDoc.PageSetupPageHeight = InchesToPoints(11.69)PageWidth = InchesToPoints(16.54)End WithWordDoc.PageSetup.TextColumns.SetCount NumColumns:=2WordDoc.PageSetup.TextColumns.Spacing = CentimetersToPoints(4)End If插入试卷名称 = "宋体"MyWord.Selection.Font.Size = 16A1$ = Trim(Combo1.Text)MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter MyWord.Selection.TypeText A1$MyWord.Selection.TypeText Chr(13)插入科目名称 = "宋体"MyWord.Selection.Font.Size = 15A1$ = "《" & Trim(Combo2.Text) & "》" + Chr(13)MyWord.Selection.Font.Bold = TrueMyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter MyWord.Selection.TypeText A1$MyWord.Selection.Font.Bold = False插入注意事项If TempRec1.State = 1 ThenTempRec1.CloseEnd IfTempRec1.Open "select Zysx from Sjbt where Sjbm='" & SjbmArry(Combo1.ListIndex + 1) & "'"If TempRec1.RecordCount = 0 ThenMsgBox "没有找到试卷的注意事项，不能生成试卷!", vbOKOnly, "提示"GoTo ErrorEndEnd IfA1$ = TempRec1.Fields("Zysx").Value = "黑体"MyWord.Selection.Font.Size = 10.5MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft MyWord.Selection.TypeText A1$ = "宋体"从Sjtx表中提取题型名称、数量、附加说明If TempRec1.State = 1 ThenTempRec1.CloseEnd IfTempRec1.Open "select tx.txmc,Sjtx.Fzap,Sjtx.Fjsm from Sjtx,Tx where Sjtx.Txbm=tx.txbm and Sjtx.Sjbm='" & SjbmArry(Combo1.ListIndex + 1) & "' order by sjtx.ID"If TempRec1.RecordCount = 0 ThenMsgBox "没有找到试卷所属题型，不能生成试卷!", vbOKOnly, "提示"GoTo ErrorEndEnd IfColN = TempRec1.RecordCountIf ColN < 12 ThenReDim A(1 To TempRec1.RecordCount, 1 To 3)TempRec1.MoveFirstFor i = 1 To TempRec1.RecordCountA(i, 1) = TempRec1.Fields("Txmc").ValueIf TempRec1.Fields("Fzap").Value <> "" ThenA(i, 2) = TempRec1.Fields("Fzap").ValueElseA(i, 2) = ""End IfIf Trim(TempRec1.Fields("Fjsm").Value) <> "" ThenA(i, 3) = TempRec1.Fields("Fjsm").ValueElseA(i, 3) = ""End IfTempRec1.MoveNextNextTempRec1.Close将对应数学数字转换成中文数字ReDim B(1 To ColN)TempRec1.Open "select Zwsz from SdZ"TempRec1.MoveFirstFor i = 1 To ColNB(i) = TempRec1.Fields("Zwsz").ValueTempRec1.MoveNextNextTempRec1.Close创建表格将对应题目标号填写到表中Set MyTable = MyWord.Selection.Tables.Add(MyWord.Selection.Range, 2, ColN + 2)Set MyCols = MyTable.Columns设置列宽MyCols(1).Width = 46.5列宽通过320/列数获取For i = 1 To ColNIf Option1.Value ThenMyCols(i + 1).Width = 330 \ ColNEnd IfIf Option2.Value ThenMyCols(i + 1).Width = 370 \ ColNEnd IfNextMyCols(ColN + 2).Width = 50设置行高MyTable.Rows(1).Height = 25MyTable.Rows(2).Height = 25表格外边框MyTable.Borders.OutsideLineStyle = wdLineStyleSingle表格内边框MyTable.Borders.InsideLineStyle = wdLineStyleSingle表格居中MyTable.Rows.Alignment = wdAlignRowCenter表格中文本对齐方式垂直居中MyTable.Rows(1).Cells.VerticalAlignment=wdCellAlignVerticalCenterMyTable.Rows(2).Cells.VerticalAlignment=wdCellAlignVerticalCenter水平居中For k = 1 To ColN + 2MyTable.Cell(1, k).SelectSelection.ParagraphFormat.Alignment = wdAlignParagraphCenterNextSet MyCell = MyTable.Cell(1, 1): MyCell.Select: MyWord.Selection.TypeText "题目"题目名称从试卷表中的题目类型名称获取For i = 1 To ColNSetMyCell=MyTable.Cell(1,i+1):MyCell.Select:MyWord.Selection.TypeText B(i)NextSetMyCell=MyTable.Cell(1,ColN+2):MyCell.Select:MyWord.Selection.TypeText "总分"SetMyCell=MyTable.Cell(2,1):MyCell.Select: MyWord.Selection.TypeText "得分"Set MyCell = NothingSet MyTable = NothingMyWord.Selection.GoToNext wdGoToLineMyWord.Selection.TypeText ChrFor i = 1 To ColN题型阅卷表格和题型说明 = "黑体"Set MyTable = MyWord.Selection.Tables.Add(MyWord.Selection.Range）MyTable.Borders.OutsideLineStyle = wdLineStyleSingleMyTable.Borders.OutsideColor = wdColorWhiteMyTable.Borders.InsideLineStyle = wdLineStyleSingleMyTable.Borders.InsideColor = wdColorWhiteMyTable.Rows(1).Cells(1).Borders.OutsideColor = wdColorBlackMyTable.Rows(1).Cells(2).Borders.OutsideColor = wdColorBlackMyTable.Rows(2).Cells(1).Borders.OutsideColor = wdColorBlackMyTable.Rows(2).Cells(2).Borders.OutsideColor = wdColorBlackSetMyRange=WordDoc.Range(MyTable.Cell(1,3).Range.Start, MyTable.Cell(2, 3).Range.End)MyRange.Cells.MergeFor k = 1 To 2MyTable.Columns(k).Width = 50NextMyTable.Rows.Height = 25If Option1.Value ThenMyTable.Columns(3).Width = 325End IfIf Option2.Value ThenMyTable.Columns(3).Width = 365End IfSet MyCols = MyTable.ColumnsSetMyCell=MyTable.Cell(1,1):MyCell.Select: MyWord.Selection.TypeText "得分"SetMyCell=MyTable.Cell(2,1):MyCell.Select: MyWord.Selection.TypeText "评分人"MyTable.Rows.Alignment = wdAlignRowCenterMyTable.Cell(1, 1).VerticalAlignment = wdCellAlignVerticalCenterMyTable.Cell(2, 1).VerticalAlignment = wdCellAlignVerticalCenterMyTable.Cell(1, 3).VerticalAlignment = wdCellAlignVerticalCenter题号+题型+分值安排 = "宋体"MyWord.Selection.Font.Size = 10.5MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft If A(i, 3) <> "" ThenSetMyCell=MyTable.Cell(1,3):MyCell.Select: MyWord.Selection.TypeText B(i) & "、" & A(i, 1) & ".(" & A(i, 2) & ")" & Chr(10) & A(i, 3)ElseSetMyCell=MyTable.Cell(1,3):MyCell.Select: MyWord.Selection.TypeText B(i) & "、" & A(i, 1) & ".(" & A(i, 2) & ")"End IfSet MyCell = MyTable.Cell(1, 3): MyCell.SelectSet MyCell = NothingSet MyTable = NothingMyWord.Selection.GoToNext wdGoToLineMyWord.Selection.GoToNext wdGoToLine对应题型的试题If TempRec1.State = 1 ThenTempRec1.CloseEnd If按难度系数升序排列试题TempRec1.Open "select st.stnr from st,sjst where st.stbm=sjst.stbm andsjst.txmc='"&A(i,1)&"'andsjst.Sjbm='"& SjbmArry(Combo1.ListIndex + 1) & "order by sjst.ndxs"If TempRec1.EOF And TempRec1.BOF ThenExit SubEnd IfIf TempRec1.RecordCount = 0 ThenMsgBox "没有找到相关试题,不能生成试卷,请检查!", vbOKOnly, "提示"GoTo NoStEnd IfN = TempRec1.RecordCountTempRec1.MoveFirstFor j = 1 To NLngsize = TempRec1.Fields("stnr").ActualSizeArrBytes = TempRec1.Fields("stnr").GetChunk(Lngsize)FreeFileNumber = 1Open App.Path & "\tempst.doc" For Binary As #FreeFileNumberPut #FreeFileNumber, , ArrBytesClose #FreeFileNumberMyWord.Selection.TypeText Str(j)MyWord.Selection.TypeText "."MyWord.Selection.InsertFile FileName:=App.Path & "\tempst.doc", ConfirmConversions:=FalseMyWord.Selection.Collapse Direction:=wdCollapseEndTempRec1.MoveNextNextTempRec1.CloseNext添加页码WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=TrueSetMyRange=WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).Ran geMyWord.NormalTemplate.AutoTextEntries("第X页共Y 页").Insert Where:=MyRange, RichText:=TrueMyRange.ParagraphFormat.Alignment = wdAlignParagraphCenter '段落居中对齐End If在第一轧添加试卷左则文本框MyWord.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=1A1 = "学校_________________________班级__________________________ 学号________________________姓名___________________ "Set BTextBox = WordDoc.Shapes.AddTextbox(msoTextOrientationUpward, 30, 80, 40, 620)BTextBox.TextFrame.TextRange.Text = A1BTextBox.Line.ForeColor.RGB = &HFFFFFF试卷保存CommonDialog1.DialogTitle = "保存试卷"CommonDialog1.Filter = "Word文档(*.doc)|*.doc"CommonDialog1.InitDir = CreateObject("shell.application").NameSpace(5).Self.PathCommonDialog1.FileName = Combo2.Text & "试卷"CommonDialog1.ShowSaveIf Trim(CommonDialog1.FileName) <> "" ThenWordDoc.SaveAs CommonDialog1.FileNameWordDoc.CloseMsgBox Combo2.Text & "试卷已正确生成", vbOKOnly, ""ElseWordDoc.SaveAs App.Path + "\Cancel.doc"DeleteFile App.Path + "\Cancel.doc"End IfSet WordDoc = NothingUnload Form13Me.Enabled = TrueExit Sub关闭文档ErrorEnd:WordDoc.SaveAs App.Path + "\Cancel.doc"DeleteFile App.Path + "\Cancel.doc"WordDoc.CloseSet WordDoc = NothingGoTo StartExit SubNoSt:WordDoc.SaveAs App.Path + "\Cancel.doc"DeleteFile App.Path + "\Cancel.doc"WordDoc.CloseSet WordDoc = NothingUnload Form13Me.Enabled = True（12）形成word文档Dim doc1 As Word.ApplicationSet doc1 = New Word.Applicationdoc1.Documents.Open ("d:\doc1.doc")doc1.ActiveDocument.FormFields("text1").Result=Text1.Textdoc1.ActiveDocument.FormFields("text2").Result=Text2.Textdoc1.ActiveDocument.FormFields("text3").Result=Text3.Textdoc1.ActiveDocument.FormFields("text4").Result=Text4.Textdoc1.ActiveDocument.Savedoc1.Documents.CloseSet doc1 = Nothing4 、心得体会通过这次的课程设计，学会了access数据库的使用，以及VB的应用，可以做界面，巧妙的将数据库和VB界面联系起来,在软件工程学上更是取得了很大的进步。