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""