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

《计算机专业课程设计试卷自动生成系统.doc》由会员分享，可在线阅读，更多相关《计算机专业课程设计试卷自动生成系统.doc（27页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流计算机专业课程设计试卷自动生成系统.精品文档.燕山大学 专业课程综合设计报告 学 院 里仁学院 年级专业 08计算机2班 学生姓名 赵鑫 学 号 081304011049 指导教师 于家新 设计日期 2011年 9 月26日 2011年10月14日 专业课程综合设计报告1、设计任务以任何一门课程为例，能够以手工或自动方式，将该课程的每道试题录入到系统之中，并且通过设置参数，自动地生成一份试卷。该试卷的题型可以分为选择题（包括单选和多选）、填空题、简答题、计算题等。要求使用者能够通过系统，对所需要的题型、每种题型试题的数量、每道题的分值、每道题

2、的难度进行设定，自动地生成一个word版本的试卷，该试卷格式符合一般试卷标准。2、设计思想通过用access 数据库录入题库信息，然后通过Visual C+的界面显示出来，用户可以在Visual C+的界面添加试题，删除试题，按照一定的条件搜索试题，可以自动生成试卷和手动生成试卷，并导入word文档现实出来。2.1 功能需求分析本系统是题库与试卷生成系统，主要有三方面的功能需求，其分别是：（1） 题库管理：为了用户能方便管理庞大的试题题库，实现各种常用或者自定义题型的录入、修改、查询、删除等功能。（2） 手动生成试卷：用户可以对权限范围内的科目进行手动组卷。选定科目后，选择共需几道大题、试卷的

3、总分值、每道大题的题型、每大题包含小题的数量及每道大题的分值；对于每道大题需进入“选择试题”模块浏览试题库中的对应题型从中手动选择所需试题。由于题库中题量较大，可以进行搜索查询，亦可将试题导出至word文档进行浏览，选择试题完毕后保存回到“手动组卷”模块。（以上全部为必须操作）。组卷后选择是否保存试卷。试卷生成后可以将试卷和答案导出至word文档。再次选定科目后清除上一次的显示结果自动进入下一次的手动组卷模式。（3） 自动生成试卷：用户可以对权限范围内的科目进行自动组卷。选定科目后，选择共需几道大题、试卷的总分值、每道大题的题型、每大题包含小题的数量及每道大题的分值（以上为必选）；对于每道大题

4、可以进入“选择题目范围及难度”模块对题目进行范围和难度的限制（可选）。组卷后选择是否保存试卷。试卷生成后可以将试卷和答案导出至word文档。再次选定科目后清除上一次的显示结果进入下一次的自动组卷模式。3、设计过程3.1系统流程分析本系统有两类用户使用，分别是系统管理员和一般管理员。系统管理员负责管理系统帐号和系统的其他全部功能；一般管理员不能管理用户但是可以更新维护题库，按需求生成和保存打印试题等。系统流程如图3-1所示：图3-13.2 数据流程分析该系统的数据流程分为两部分，图3-2为顶层数据流程图，用户由各种类型的试题根据相应需求生成试卷。图3-3为第二层的数据流程图，是对顶层数据流程的分

5、解，将试卷的生成分为手动生成和自动生成。图3-2 顶层数据流程图图3-3 第二层数据流程图3.3系统设计3.3.1 系统总体设计目标 本系统是根据题库管理与试卷生成系统的具体需求应用而开发的，能够实现题库管理与试卷生成的工作，系统的开发主要要实现的目标有以下几个方面：（1） 灵活多样的组卷方式，如手工组卷和自动组卷。（2） 既能临时生成试卷，又能直接使用以前生成的试卷，也就是要求能对生成的试卷进行保存，以便下次直接使用，并能删除不再需要的试卷。（3） 试卷的保密性要求，只有授权人员才能生成和查阅试卷。（4） 试卷生成速度不宜太慢。（5） 生成的试卷按照规定的模板输出，并能导出到word文档中。

6、（6） 生成的试卷既可以直接打印，也可以在word中修改和打印。（7） 友好的用户界面。3.3.2 系统总体功能模块设计本系统主要功能是为使用者提供一个简单快捷的试题录入、删除、修改、查询、浏览，快速组卷及试卷管理的软件系统。系统模块分为以下几个部分，如图3-4所示：图3-43.4 结构设计3.4.1登陆模块设计（1） 登陆模块结构图该模块包括用户管理模块和用户密码管理模块。系统启动时调用此模块，要求用户先进行登陆。登录模块结构如图3-5所示：图3-5（2） 界面设计“登录”界面是用户进入主界面的路径，由三个静态文本框控件和两个Edit Box控件，两个按钮控件和一个Combo Box控件组成

7、。如图3-6所示：图3-6（3） 属性设置三个静态文本框的Caption属性分别为：登录方式、用户名、密码。Combo Box的Data属性为：系统管理员n普通管理员n一般用户。“密码：”静态文本框对应的Edit Box的Style的Password属性为选中状态。两个按钮控件的Caption属性分别为：登录系统和取消登录。（4） 功能在登录方式处选择以何种身份登录，在用户名和密码处键入正确的用户名和密码， 确定后进入系统主窗口。如果键入的用户名或密码错误，系统将出现错误提示，然后重新键入。输入错误超过三次，自动退出系统。3.4.2 系统主要模块设计系统登录成功后进入主系统主窗口，系统主窗口显

8、示了系统的主要功能，如图3-7所示：图3-7该界面可以实现试题的查询搜索、试题添加、试题删除、试题修改、试题浏览。点击自动生成，可以实现根据选题数目、选题类型、计算总分可以自生成一份试卷，导入到word文档中。3.5数据库模型数据库设计是在选定的数据库管理系统基础上建立数据库的过程。所有数据包含在一个access数据库中，数据库名为题库。设计表如下：用户登录信息表：存储用户的详细信息，包括用户名、用户密码、用户权限和管理科目。 题目类型信息表：存储题目类型的信息，包括题目类型编号和题目类型名称。科目信息表：存储各个科目的信息，包括科目编号和科目名称。试题信息表：存储试题的信息，包括试题编号、类

9、型、难度、所属章节、内容和答案。已组试卷信息表：存储已组试卷的信息，例如试卷编号、方案编号等信息。成套试卷信息表：存储成套试卷的信息，例如试卷编号、创建人、创建时间等信息。 实体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 A

10、dmin表 字段名数据类型长度是否主键用户名文本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 题型表字段名数据类型长度是否主键

11、类型文本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回到属性页，选择记录源，将命令类型

12、设置为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(试题

13、难度).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）（关闭窗口）Priv

14、ate 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

15、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.Rec

16、ordset.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 (试题难度)C

17、ombo1.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

18、 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

19、= & 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.Docum

20、ents.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.PageS

21、etup.TextColumns.SetCount NumColumns:=2WordDoc.PageSetup.TextColumns.Spacing = CentimetersToPoints(4)End If插入试卷名称MyWord.Selection.Font.Name = 宋体MyWord.Selection.Font.Size = 16A1$ = Trim(Combo1.Text)MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenterMyWord.Selection.TypeText A1$MyWord

22、.Selection.TypeText Chr(13)插入科目名称MyWord.Selection.Font.Name = 宋体MyWord.Selection.Font.Size = 15A1$ = & Trim(Combo2.Text) & + Chr(13)MyWord.Selection.Font.Bold = TrueMyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenterMyWord.Selection.TypeText A1$MyWord.Selection.Font.Bold = False插入注意事

23、项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).ValueMyWord.Selection.Font.Name = 黑体MyWord.Selectio

24、n.Font.Size = 10.5MyWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeftMyWord.Selection.TypeText A1$MyWord.Selection.Font.Name = 宋体从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

25、Sjtx.Sjbm= & SjbmArry(Combo1.ListIndex + 1) & order by sjtx.IDIf 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) = Tem

26、pRec1.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 selec

27、t Zwsz from SdZTempRec1.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 O

28、ption1.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 = wdLin

29、eStyleSingle表格居中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 = wdAlignParag

30、raphCenterNextSet 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.

31、Cell(2,1):MyCell.Select: MyWord.Selection.TypeText 得 分Set MyCell = NothingSet MyTable = NothingMyWord.Selection.GoToNext wdGoToLineMyWord.Selection.TypeText ChrFor i = 1 To ColN题型阅卷表格和题型说明MyWord.Selection.Font.Name = 黑体Set MyTable = MyWord.Selection.Tables.Add(MyWord.Selection.Range）MyTable.Borders.

32、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.

33、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.Va

34、lue 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 = wd

35、AlignRowCenterMyTable.Cell(1, 1).VerticalAlignment = wdCellAlignVerticalCenterMyTable.Cell(2, 1).VerticalAlignment = wdCellAlignVerticalCenter MyTable.Cell(1, 3).VerticalAlignment = wdCellAlignVerticalCenter题号+题型+分值安排MyWord.Selection.Font.Name = 宋体MyWord.Selection.Font.Size = 10.5MyWord.Selection.Pa

36、ragraphFormat.Alignment = wdAlignParagraphLeftIf 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

37、 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.

38、txmc=&A(i,1)&andsjst.Sjbm=& SjbmArry(Combo1.ListIndex + 1) & order by sjst.ndxsIf 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(

39、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 &

40、tempst.doc, ConfirmConversions:=FalseMyWord.Selection.Collapse Direction:=wdCollapseEndTempRec1.MoveNextNextTempRec1.CloseNext添加页码WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.AddPageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=TrueSetMyRange=WordDoc.Sections(1).Footers(wdHe

41、aderFooterPrimary).RangeMyWord.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 = WordD

42、oc.Shapes.AddTextbox(msoTextOrientationUpward, 30, 80, 40, 620)BTextBox.TextFrame.TextRange.Text = A1BTextBox.Line.ForeColor.RGB = &HFFFFFF试卷保存CommonDialog1.DialogTitle = 保存试卷CommonDialog1.Filter = Word文档(*.doc)|*.docCommonDialog1.InitDir = CreateObject(shell.application).NameSpace(5).Self.PathCommo

43、nDialog1.FileName = Combo2.Text & 试卷CommonDialog1.ShowSaveIf Trim(CommonDialog1.FileName) ThenWordDoc.SaveAs CommonDialog1.FileNameWordDoc.CloseMsgBox Combo2.Text & 试卷已正确生成, vbOKOnly, ElseWordDoc.SaveAs App.Path + Cancel.docDeleteFile App.Path + Cancel.docEnd IfSet WordDoc = NothingUnload Form13Me.E

44、nabled = TrueExit Sub关闭文档ErrorEnd:WordDoc.SaveAs App.Path + Cancel.docDeleteFile App.Path + Cancel.docWordDoc.CloseSet WordDoc = NothingGoTo StartExit SubNoSt:WordDoc.SaveAs App.Path + Cancel.docDeleteFile App.Path + Cancel.docWordDoc.CloseSet WordDoc = NothingUnload Form13Me.Enabled = True（12） 形成word文档 Dim doc1 As Word.Application Set doc1 = New Word.Application doc1.Documents.Open (d:doc1.doc) doc1.ActiveDocument.FormFields(text1).Result=Text1.Text doc1.ActiveDocument.FormFields(text2).Result=Text2.Text