VB本科毕业设计

高校补考管理系统的设计摘要：随着科技的快速发展，信息数量急剧增加且越来越向信息化、数字化发展，自动管理系统也将逐步替代过去大量、繁杂的手工操作。针对于高校，每学期都有补考考试，由于班级多，课程门类多，学生考试科目也比较多，如何精确、高效地安排补考工作，使教学资源达成最佳配备，是高校教务管理部门亟待解决的问题。本系统运用VB语言实现了自动创立不及格信息及对于需要补考同窗进行自动排考,操作简朴，易于管理，原本繁琐复杂的补考排考工作只需启动程序就可完毕，有效的缩短了排考所需时间和精力，提高了高校成绩管理效率。核心词：补考；VisualBasic；排考TheDesignoftheManagementSystemofUniversityMake-upExaminationAbstract:withtherapiddevelopmentofscienceandtechnology,informationandtoincreasedramaticallymoreinformation,thedevelopmentofdigitization,automaticmanagementsystemwillgraduallyreplacethepast,complicatedmanual.AccordingtotheUniversity,eachtermhasamake-upexam,asaclass,coursecategory,studentexaminationsubjectsarealsomore,howtoaccurately,efficientlyarrangedmake-upwork,maketheteachingresourcestoachievetheoptimalallocationofeducationaladministrationdepartmentinauniversity,isaproblemtobesolvedurgently.ThesystemusesVBlanguagetoachievetheautomaticcreationofinformationandtheneedforafailingstudentsforautomatictestingarrangement,simpleoperation,easymanagement,originallythecomplexmake-upexaminationarrangementjuststartprogramcanbecompleted,effectivelyshorteningtheexaminationarrangementrequiredtimeandenergy.Improvecollegegrademanagementefficiency.Keywords:make-up;VisualBasic;examinationarrangement目录TOC\o"1-3"\u摘要 11引言 21.1设计背景 21.2设计目的 31.3设计的语言选择 32系统总体设计 32.1系统功效介绍 32.2系统总体设计思路 42.3创立不及格信息的设计思路及流程图 52.4补考排考的设计思路及流程图 63软件设计 93.1主界面设计 93.2创立不及格信息版面设计及重要程序代码 93.3补考排考版面设计及重要程序代码 134总结 17参考文献 181引言1.1设计背景在现在信息化时代中，任何高校都需要一种实用的管理系统来规范学校管理、学生管理以及数据统计和分析，来提高高校的管理水平，优化资源，尽量地减少成本，实现最大效益化。在现阶段，班级数量多，考试科目多使得补考排考成为一项难题，有的一名同窗需要补考几项科目，时间不能冲突，有的学科补考人数较多，需要安排同一时间考试，全部通过手工排考难免会出现漏排和重排的状况。1.2设计的目的针对现在高校考试科目多，人工排考困难的状况，本系统先建立了一种系统应用原型,然后对初始原型系统进行需求改善,直到形成一种满意的可行系统，即补考管理系统。该系统实现了对学生不及格信息的汇总和筛选，同时,能够自动完毕补考排考工作。对此后学生成绩查询和排考工作提供了一定的便利。1.3设计的语言选择VisualBasic即VB语言。Visual意思是可视的、可见的，指的是开发犹如Windows操作系统的图形顾客界面的办法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上对应的位置即可。Basic事实上是一种短语的缩写，这个短语就是Beginnersall_purposesymbolicinstructioncode，其中文意思为“初始者通用符号指令代码语言”。VisualBasic是一种直观的编程办法，程序员只需绘制界面，无需编程，VB程序可自动生成界面代码，此程序可大大提高编程的效率。对于本系统，考虑到信息的输入和输出使用EXCEL表格相对便捷，选用VB语言更容易完毕对功效的实现，且编完之后能够立刻去查看程序的运行效果，进行调试直至完毕。鉴于此，选用VB语言作为设计补考管理系统的语言。2系统总体设计2.1系统功效介绍本系统实现的功效有两个，分别是：1.创立不及格信息2.某一学期的补考排考其中创立不及格信息功效涉及创立某个班入学至今全部学期的不及格成绩，某个学期全部班学生不及格信息，某个学期某个班的不及格信息。下列为本系统的功效图：创立不及格信息创立不及格信息某班级学生全部学期不及格信息某学期全部班级学生不及格信息某学期某班级学生不及格信息补考排考输入学生名单和成绩图1系统功效图在本系统中创立某班全部学期不及格信息功效能够具体显示某班学生不及格科目的分布，能够精确查看到该班哪些学生不及格科目较多，方便对其进行激励和引导。创立某学期全部班学生不及格信息的功效使得自动补考排考功效能够实现，同时，此功效能够通过对比各个班不及格信息理解班级整体学习效果，能够计算该学期的学生不及格比例等。2.2系统总体设计思路针对本系统对于两个功效的实现，总体设计思路以下：本系统最后需要完毕的功效为自动排考，自动排考需要以某学期全部班级不及格信息为前提，创立不及格信息需要三个基本信息即学生名单，考试科目及各项成绩，由此构想创立对应的EXCEL表格，直接和高校补考管理进行连接，对表格信息解决即输入对应的学生名单，考试科目，各项成绩即可直接能够作用到系统解决成果中，进而能够运行程序创立所需的不及格信息，不及格信息以EXCEL表格的方式输出，方便信息查询和保存。最后运用输出的不及格信息作为基本数据完毕自动补考排考工作。2.3创立不及格信息的设计思路及流程图创立不及格信息的设计思路：以创立某班学生全部学期不及格成绩为例，依次某班已输入的全部学生成绩进行挑选，对不不大于等于60的成绩直接跳过，继续查找其它科目成绩，对不大于60的成绩进行挑选并将有关学生姓名，考试科目信息统计在该EXCEL表中新标签中。有关信息统计后继续对学生成绩进行挑选直至全部学科成绩验证完毕，最后在系统中显示不及格信息创立完毕。创立某学创期全部班级学生不及格信息和创立某学期某班级学生不及格信息思路和流程图都与其类似，这里不再复述。下列为创立不及格信息的流程图：将该学科成绩及有关学生姓名考试科目信息统计在班级信息内新建标签将该学科成绩及有关学生姓名考试科目信息统计在班级信息内新建标签继续查找直至找到科目成绩<60>=60点击创立某班级全部学期不及格信息依次查找该班学生全部学期科目成绩<60验证与否全部学科成绩查找完毕否是将新建标签内容保存系统显示不及格信息创立完毕跳过该科成绩跳过该科成绩图2创立不及格信息流程图创立不及格信息是对已输入的学生名单考试科目和学生成绩进行汇总和筛选，方便使用者更直观的获取所需信息，另外创立不及格为补考排考功效提供了必须的数据条件。此项功效内分为三项功效，分别是针对某班某学期，某班级全部学期，某学期全部班级的不及格信息创立，通过对不同选项不及格信息的创立，高校补考管理系统的文献夹内信息会自动更新，查看所需信息即可。2.4补考排考的设计思路及流程图对于补考排考的设计需做下列前提和假设：1.补考尽量安排在学生不上课的时间段，这样教室属于空闲状态，教室足够多，学生也不会由于补考影响上课。2.考生在同一时间段只能参加一门科目的补考。3.不大于60人的科目放在一种教室考试，不不大于60人的科目能够放在多个教室同时进行。补考排考的设计思路：不停地按次序查找课程表，如果某一课程尚未排考，且与现在时段以排课程不冲突，则放在现在时段的现在考场，现在考场满额后考察现在时段的下一考场，现在时间段满额后考察下一时间段，当一种课程参考人数多，一种考场安排不完时，能够放在多个考场同时考试，但必须放在同一时间段内，当全部课程查找完毕，全部学生安排完毕，排考结束。在现实排考中往往是多个科目在同一种考场进行补考，本系统是采用同一时间段设立多个考场，该时间段考场不够用再对下一时间段进行排考的做法，这样能够缩短考试周期。本软件设计的补考排考算法先预设每个时间段的考场数，以把考场坐满为优先条件，合理安排每个考场的科目，避免同一考场，同一时间段考生补考科目的。下列为补考排考的流程图：安排该时间段不同教室进行考试安排该时间段不同教室进行考试创立下一时间段进行排考补考跳过此排考课程查找其它课程安排此时段此教室进行补考<=60是是是否<=60>60否按照次序依次查找补考课程该课程与否已排考是否与现在时段排考课程与否冲突该课程补考人数>60将补考学生放入教室后人数依次考察该时段补考人数与否<=60验证与否全部补考学生安排完毕该学期补考排考结束否 图3补考排考流程图此功效若运用手工排考往往费事费力，成果也很难科学有效，因此需要设计一种能够运用计算机自动排考的系统。补考排考功效为本系统重要功效，操作方便简朴，排考成果科学合理。对某个学期进行补考排考之后，会在高校补考管理系统文献夹内生成名为“补考”的文献夹，内部为以学期命名的EXCEL表格，打开表格内有补考学生名单和以数字1,2,3等命名的新的标签，此数字为本次补考安排的考场数，每个标签内有该考场内学生信息和考试科目安排。3软件设计3.1主界面设计为了使功效能够顺利完毕，在运行程序之前需要做某些准备工作：在高校补考管理系统的文献夹内创立文献名为“各班成绩”的文献夹，文献夹创立EXCEL表格并以班级名称命名，例如“08级电子科学与技术.xls”，按照系统模版格式输入学生学号，学生姓名，各项科目名称及成绩之后保存。双击运行程序之后本程序登陆界面出现，界面简朴大方，在准备工作完毕之后只需点击对应按钮就能够轻松完毕各项工作。下列是系统登陆界面：3.2创立不及格信息版面设计及重要程序代码在运行高校补考管理系统过程中做下列介绍：在系统功效中创立某个班入学至今的不及格成绩，系统显示不及格信息创立完毕后会自动对原先的“各班成绩”文献夹内该班EXCEL表格进行更替，再次进入该班名称命名的EXCEL表格会发现一种以该班名称不及格信息的新标签，在此标签中能够得到本次操作所需的某班入学至今的全部学生不及格信息。在系统功效中创立某个学期全部班全部学生不及格信息，输入需要创立的学期名称，如第一次使用会自动在高校补考管理系统内创立名为各学期不及格信息的文献夹，进入后是以学期命名的EXCEL表格，进入后得到所需的某个学期全部班不及格成绩。在系统功效中创立某个学期某个班级的不及格信息，输入所需要创立的学期名称和学期名称之后，会在“各班成绩”文献夹自动搜索到所需信息并打开。创立不及格信息界面以下：创立某班级全部学期不及格信息界面：创立某学期全部班不及格信息界面：创立某学期某班不及格信息界面：3.3补考排考版面设计及重要程序代码进入补考排考界面：4总结本次设计的高校补考管理系统能够基本满足学校对于不及格信息的汇总和筛选以及自动补考排考的需求。另外，本软件还含有使用简便，易于操作等特点，构造一目了然，能够轻松使用，解决了补考时补考信息琐碎，人工排考费时费力的问题。总的来说，此软件是一种比较适合高校补考管理的软件。大学四年的最后一种学期就在毕业设计的忙忙碌碌中过去了，回想起这一种学期，从开始选择题目、系统的规划再到后来系统的一点点的设计与实现期间，从开始对系统构想的一头雾水，到后来在指导老师指导下完毕了全部程序的调试和应用，现在想起仍然是一份让人难忘的经历。另外，这次毕业设计对我们全部的毕业生来说不单单是一次实践考核，更是一种深层次的学习，毕业设计使我们必须把这几年来所学的某些知识和理论运用到毕业设计中，使原本不甚理解的知识得到进一步的巩固和提高，这远比单纯在课堂上学习要来的有效的多。并且，在设计的过程中，碰到了诸多的问题，这些问题自己要想尽方法区解决，克服困难，实在不行再去麻烦老师、同窗。在解决这些困难的过程中提高我们的能力，提高理解决问题和实际动手的能力，这些同样也是课本上所学习不到的。下面开始致谢。首先，毫无疑问的是我的指导X老师，在这次毕业设计中，X老师不遗余力的协助我，从选题的指导到系统设计的修改，让我从刚开始的摸不到头脑到后来的日益纯熟，都是老师辛勤付出的成果。在设计中我还领略到了老师认真负责的工作态度，严谨的治学精神，老师教导我的这些东西，会对我后来的学习生活大有裨益。因此在这里我真诚的对予以我认真指导和耐心协助的老师表达最深切的谢意！谢谢您！同时，还要感谢XXXX，这个我学习、生活了四年的地方。她像一位母亲给我们提供了良好的学习环境！感谢母校对我四年来的培养和教育，让我们能够在这里学习、成长。也同时感谢我全部的同窗，是他们给我了诸多的协助和关心，陪我走了这样一段很愉快的人生。大学生活很快就将结束了，可能我的学生生涯也就就此结束了，因此本次毕业设计也很可能是我人生最后一次作业了，因此最后我感谢我自己，感谢我用心的写下每个字，感谢自己非常认真的看待它。参考文献[1]蒋鹏,李光明,严峻.一种教室优先的补考排考算法[J].重庆工学院学报,,22(12):121-124.[2]刘刚,杨雪梅.高校学生补考考场分排算法分析及程序设计[J].计算机应用教学研究,,8:130-132[3]李渤,杨舒晴.高校排考系统的设计与实现[J].科技创新导报,,12(35):24-24[4]龚沛曾,杨志强,陆慰民.VisualBasic程序设计教程[M].高等教育出版社[5]李天启.VisualBasic6.0学习捷径[M].清华大学出版社1999 附录1：某班级学生全部学期不及格信息重要程序代码'====================================================================='按照班级创立不及格信息'=====================================================================FunctionCreateClassFailInfo(class_nameAsString)AsBooleanDimexcel_app1AsExcel.ApplicationDimexcel_book1AsExcel.WorkbookDimexcel_sheet1AsExcel.WorksheetDimexcel_sheet2AsExcel.WorksheetDimterm_nameAsStringDimyear1,year2,year3AsIntegerDimsheet_count1AsIntegerDimi,j,k,m,nAsIntegerDimsheet2_colunm,sheet2_cowAsIntegerDimschoolyearAsStringfrmInputClass.LabelWarn.Caption="不及格信息正在创立中"Setexcel_app1=NewExcel.ApplicationSetexcel_book1=excel_app1.Workbooks.Open(App.path&"\各班成绩"&"\"&class_name&".xls")sheet_count1=excel_book1.Sheets.CountIfNotSheetIsExist(excel_app1,excel_book1,class_name&"不及格信息")Thenexcel_book1.Sheets.Addafter:=excel_book1.Sheets(sheet_count1)excel_book1.Sheets(sheet_count1+1).Name=class_name&"不及格信息"EndIfSetexcel_sheet1=excel_book1.Sheets(class_name&"不及格信息")excel_sheet1.Range("a:f").ClearContents'先去除表格中的全部内容excel_sheet1.Range("A1:F1").Value=Array("学号","姓名","学期","课程","课程性质","原始成绩")excel_sheet1.Range("a:a").NumberFormatLocal="@"excel_sheet1.Range("c:c").NumberFormatLocal="@"'这段程序使用了正则体现，要在工程菜单中的引用中选择MicrosoftVBScriptRegularExpressions5.5DimobjRegExpAsRegExpSetobjRegExp=NewRegExpobjRegExp.Pattern="\d+"'objRegExp.Pattern="\d"schoolyear=objRegExp.Execute(class_name)(0)Form=0To3Forn=1To2term_name=Format$(schoolyear+m,"00")&"-"&Format$(schoolyear+m+1,"00")&"-"&nIfSheetIsExist(excel_app1,excel_book1,term_name)ThenSetexcel_sheet2=excel_book1.Sheets(term_name)j=3DoWhileNotIsEmpty(excel_sheet2.Cells(2,j))j=j+1Loopsheet2_column=ji=4DoWhileNotIsEmpty(excel_sheet2.Cells(i,1))i=i+1Loopsheet2_cow=ii=2DoWhileNotIsEmpty(excel_sheet1.Cells(i,1))i=i+1Loopsheet1_cow=ik=sheet1_cowFori=4Tosheet2_cowForj=3Tosheet2_columnIf0<excel_sheet2.Cells(i,j).ValueAndexcel_sheet2.Cells(i,j).Value<60Thenexcel_sheet1.Cells(k,1).Value=CStr(excel_sheet2.Cells(i,1).Value)excel_sheet1.Cells(k,2).Value=CStr(excel_sheet2.Cells(i,2).Value)excel_sheet1.Cells(k,3).Value=CStr(term_name)excel_sheet1.Cells(k,4).Value=CStr(excel_sheet2.Cells(2,j).Value)excel_sheet1.Cells(k,5).Value=CStr(excel_sheet2.Cells(3,j).Value)excel_sheet1.Cells(k,6).Value=CStr(excel_sheet2.Cells(i,j).Value)k=k+1EndIfNextNextEndIfNextNextexcel_sheet1.Range("a:f").Columns.AutoFit'自适应列宽excel_sheet1.Range("a:f").HorizontalAlignment=xlCenter'居中excel_sheet1.Range("a:f").VerticalAlignment=xlBottomexcel_book1.Saveexcel_book1.CloseSetexcel_book1=Nothingexcel_app1.QuitSetexcel_app1=NothingfrmInputClass.LabelWarn.Caption="不及格信息创立完毕！"EndFunction附录2：补考排考重要程序代码'====================================================================='排考程序'=====================================================================Dimroom_num(10)AsInteger'考场人数Dimcourse_clashAsBoolean'课程冲突标志course_clash=Falsei=2j=1DoWhile""<>excel_sheet2.Cells(i,4)If"否"=excel_sheet2.Cells(i,4)ThenIfNotSheetIsExist(excel_app,excel_book,"考场"&j)Thenexcel_book.Sheets.Addafter:=excel_book.Sheets(term_name&"课程冲突信息")excel_book.ActiveSheet.Name="考场"&j'把创立的表格添加到刚刚选择的表格之后并命名Setexcel_sheet4=excel_book.Worksheets("考场"&j)excel_sheet4.Range("A1:c1").Value=Array("课程号","课程名","考试人数")excel_sheet4.Range("A2:c2").Value=Array(excel_sheet2.Cells(i,1),excel_sheet2.Cells(i,2),excel_sheet2.Cells(i,3))excel_sheet2.Cells(i,4)="是"i=i+1Ifcourse_clash=TrueThencourse_clash=Falsej=1EndIfElseFork=2Tocourse_num+1Ifexcel_sheet2.Cells(i,2)=excel_sheet3.Cells(k,1)Thenrow_num=kExitForEndIfNextk=2Setexcel_sheet4=excel_book.Worksheets("考场"&j)DoWhile""<>excel_sheet4.Cells(k,2)Forl=2Tocourse_num+1Ifexcel_sheet4.Cells(k,2)=excel_sheet3.Cells(1,l)Thencolumn_num=lIf1=excel_sheet3.Cells(row_num,column_num)Thencourse_clash=TrueExitDoElsecourse_clash=FalseExitForEndIfEndIfNextk=k+1LoopIfTrue=course_clashThenj=j+1Elsel=2room_num(j)=0DoWhile""