高校補考管理系統的設計摘要：隨著科技的快速發展，信息數量急劇增加且越來越向信息化、數字化發展，自動管理系統也將逐步替代過去大量、繁雜的手工操作。針對于高校，每學期都有補考考試，由于班級多，課程門類多，學生考試科目也比較多，如何精確、高效地安排補考工作，使教學資源達成最佳配備，是高校教務管理部門亟待解決的問題。本系統運用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""