VB本科畢業(yè)設(shè)計(jì)

高校補(bǔ)考管理系統(tǒng)的設(shè)計(jì)摘要：隨著科技的快速發(fā)展，信息數(shù)量急劇增加且越來(lái)越向信息化、數(shù)字化發(fā)展，自動(dòng)管理系統(tǒng)也將逐步替代過(guò)去大量、繁雜的手工操作。針對(duì)于高校，每學(xué)期都有補(bǔ)考考試，由于班級(jí)多，課程門(mén)類多，學(xué)生考試科目也比較多，如何精確、高效地安排補(bǔ)考工作，使教學(xué)資源達(dá)成最佳配備，是高校教務(wù)管理部門(mén)亟待解決的問(wèn)題。本系統(tǒng)運(yùn)用VB語(yǔ)言實(shí)現(xiàn)了自動(dòng)創(chuàng)立不及格信息及對(duì)于需要補(bǔ)考同窗進(jìn)行自動(dòng)排考,操作簡(jiǎn)樸，易于管理，原本繁瑣復(fù)雜的補(bǔ)考排考工作只需啟動(dòng)程序就可完畢，有效的縮短了排考所需時(shí)間和精力，提高了高校成績(jī)管理效率。核心詞：補(bǔ)考；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設(shè)計(jì)背景 21.2設(shè)計(jì)目的 31.3設(shè)計(jì)的語(yǔ)言選擇 32系統(tǒng)總體設(shè)計(jì) 32.1系統(tǒng)功效介紹 32.2系統(tǒng)總體設(shè)計(jì)思路 42.3創(chuàng)立不及格信息的設(shè)計(jì)思路及流程圖 52.4補(bǔ)考排考的設(shè)計(jì)思路及流程圖 63軟件設(shè)計(jì) 93.1主界面設(shè)計(jì) 93.2創(chuàng)立不及格信息版面設(shè)計(jì)及重要程序代碼 93.3補(bǔ)考排考版面設(shè)計(jì)及重要程序代碼 134總結(jié) 17參考文獻(xiàn) 181引言1.1設(shè)計(jì)背景在現(xiàn)在信息化時(shí)代中，任何高校都需要一種實(shí)用的管理系統(tǒng)來(lái)規(guī)范學(xué)校管理、學(xué)生管理以及數(shù)據(jù)統(tǒng)計(jì)和分析，來(lái)提高高校的管理水平，優(yōu)化資源，盡量地減少成本，實(shí)現(xiàn)最大效益化。在現(xiàn)階段，班級(jí)數(shù)量多，考試科目多使得補(bǔ)考排考成為一項(xiàng)難題，有的一名同窗需要補(bǔ)考幾項(xiàng)科目，時(shí)間不能沖突，有的學(xué)科補(bǔ)考人數(shù)較多，需要安排同一時(shí)間考試，全部通過(guò)手工排考難免會(huì)出現(xiàn)漏排和重排的狀況。1.2設(shè)計(jì)的目的針對(duì)現(xiàn)在高?？荚嚳颇慷?，人工排考困難的狀況，本系統(tǒng)先建立了一種系統(tǒng)應(yīng)用原型,然后對(duì)初始原型系統(tǒng)進(jìn)行需求改善,直到形成一種滿意的可行系統(tǒng)，即補(bǔ)考管理系統(tǒng)。該系統(tǒng)實(shí)現(xiàn)了對(duì)學(xué)生不及格信息的匯總和篩選，同時(shí),能夠自動(dòng)完畢補(bǔ)考排考工作。對(duì)此后學(xué)生成績(jī)查詢和排考工作提供了一定的便利。1.3設(shè)計(jì)的語(yǔ)言選擇VisualBasic即VB語(yǔ)言。Visual意思是可視的、可見(jiàn)的，指的是開(kāi)發(fā)猶如Windows操作系統(tǒng)的圖形顧客界面的辦法，它不需要編寫(xiě)大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立好的對(duì)象拖放到屏幕上對(duì)應(yīng)的位置即可。Basic事實(shí)上是一種短語(yǔ)的縮寫(xiě)，這個(gè)短語(yǔ)就是Beginnersall_purposesymbolicinstructioncode，其中文意思為“初始者通用符號(hào)指令代碼語(yǔ)言”。VisualBasic是一種直觀的編程辦法，程序員只需繪制界面，無(wú)需編程，VB程序可自動(dòng)生成界面代碼，此程序可大大提高編程的效率。對(duì)于本系統(tǒng)，考慮到信息的輸入和輸出使用EXCEL表格相對(duì)便捷，選用VB語(yǔ)言更容易完畢對(duì)功效的實(shí)現(xiàn)，且編完之后能夠立刻去查看程序的運(yùn)行效果，進(jìn)行調(diào)試直至完畢。鑒于此，選用VB語(yǔ)言作為設(shè)計(jì)補(bǔ)考管理系統(tǒng)的語(yǔ)言。2系統(tǒng)總體設(shè)計(jì)2.1系統(tǒng)功效介紹本系統(tǒng)實(shí)現(xiàn)的功效有兩個(gè)，分別是：1.創(chuàng)立不及格信息2.某一學(xué)期的補(bǔ)考排考其中創(chuàng)立不及格信息功效涉及創(chuàng)立某個(gè)班入學(xué)至今全部學(xué)期的不及格成績(jī)，某個(gè)學(xué)期全部班學(xué)生不及格信息，某個(gè)學(xué)期某個(gè)班的不及格信息。下列為本系統(tǒng)的功效圖：創(chuàng)立不及格信息創(chuàng)立不及格信息某班級(jí)學(xué)生全部學(xué)期不及格信息某學(xué)期全部班級(jí)學(xué)生不及格信息某學(xué)期某班級(jí)學(xué)生不及格信息補(bǔ)考排考輸入學(xué)生名單和成績(jī)圖1系統(tǒng)功效圖在本系統(tǒng)中創(chuàng)立某班全部學(xué)期不及格信息功效能夠具體顯示某班學(xué)生不及格科目的分布，能夠精確查看到該班哪些學(xué)生不及格科目較多，方便對(duì)其進(jìn)行激勵(lì)和引導(dǎo)。創(chuàng)立某學(xué)期全部班學(xué)生不及格信息的功效使得自動(dòng)補(bǔ)考排考功效能夠?qū)崿F(xiàn)，同時(shí)，此功效能夠通過(guò)對(duì)比各個(gè)班不及格信息理解班級(jí)整體學(xué)習(xí)效果，能夠計(jì)算該學(xué)期的學(xué)生不及格比例等。2.2系統(tǒng)總體設(shè)計(jì)思路針對(duì)本系統(tǒng)對(duì)于兩個(gè)功效的實(shí)現(xiàn)，總體設(shè)計(jì)思路以下：本系統(tǒng)最后需要完畢的功效為自動(dòng)排考，自動(dòng)排考需要以某學(xué)期全部班級(jí)不及格信息為前提，創(chuàng)立不及格信息需要三個(gè)基本信息即學(xué)生名單，考試科目及各項(xiàng)成績(jī)，由此構(gòu)想創(chuàng)立對(duì)應(yīng)的EXCEL表格，直接和高校補(bǔ)考管理進(jìn)行連接，對(duì)表格信息解決即輸入對(duì)應(yīng)的學(xué)生名單，考試科目，各項(xiàng)成績(jī)即可直接能夠作用到系統(tǒng)解決成果中，進(jìn)而能夠運(yùn)行程序創(chuàng)立所需的不及格信息，不及格信息以EXCEL表格的方式輸出，方便信息查詢和保存。最后運(yùn)用輸出的不及格信息作為基本數(shù)據(jù)完畢自動(dòng)補(bǔ)考排考工作。2.3創(chuàng)立不及格信息的設(shè)計(jì)思路及流程圖創(chuàng)立不及格信息的設(shè)計(jì)思路：以創(chuàng)立某班學(xué)生全部學(xué)期不及格成績(jī)?yōu)槔来文嘲嘁演斎氲娜繉W(xué)生成績(jī)進(jìn)行挑選，對(duì)不不大于等于60的成績(jī)直接跳過(guò)，繼續(xù)查找其它科目成績(jī)，對(duì)不大于60的成績(jī)進(jìn)行挑選并將有關(guān)學(xué)生姓名，考試科目信息統(tǒng)計(jì)在該EXCEL表中新標(biāo)簽中。有關(guān)信息統(tǒng)計(jì)后繼續(xù)對(duì)學(xué)生成績(jī)進(jìn)行挑選直至全部學(xué)科成績(jī)驗(yàn)證完畢，最后在系統(tǒng)中顯示不及格信息創(chuàng)立完畢。創(chuàng)立某學(xué)創(chuàng)期全部班級(jí)學(xué)生不及格信息和創(chuàng)立某學(xué)期某班級(jí)學(xué)生不及格信息思路和流程圖都與其類似，這里不再?gòu)?fù)述。下列為創(chuàng)立不及格信息的流程圖：將該學(xué)科成績(jī)及有關(guān)學(xué)生姓名考試科目信息統(tǒng)計(jì)在班級(jí)信息內(nèi)新建標(biāo)簽將該學(xué)科成績(jī)及有關(guān)學(xué)生姓名考試科目信息統(tǒng)計(jì)在班級(jí)信息內(nèi)新建標(biāo)簽繼續(xù)查找直至找到科目成績(jī)<60>=60點(diǎn)擊創(chuàng)立某班級(jí)全部學(xué)期不及格信息依次查找該班學(xué)生全部學(xué)期科目成績(jī)<60驗(yàn)證與否全部學(xué)科成績(jī)查找完畢否是將新建標(biāo)簽內(nèi)容保存系統(tǒng)顯示不及格信息創(chuàng)立完畢跳過(guò)該科成績(jī)跳過(guò)該科成績(jī)圖2創(chuàng)立不及格信息流程圖創(chuàng)立不及格信息是對(duì)已輸入的學(xué)生名單考試科目和學(xué)生成績(jī)進(jìn)行匯總和篩選，方便使用者更直觀的獲取所需信息，另外創(chuàng)立不及格為補(bǔ)考排考功效提供了必須的數(shù)據(jù)條件。此項(xiàng)功效內(nèi)分為三項(xiàng)功效，分別是針對(duì)某班某學(xué)期，某班級(jí)全部學(xué)期，某學(xué)期全部班級(jí)的不及格信息創(chuàng)立，通過(guò)對(duì)不同選項(xiàng)不及格信息的創(chuàng)立，高校補(bǔ)考管理系統(tǒng)的文獻(xiàn)夾內(nèi)信息會(huì)自動(dòng)更新，查看所需信息即可。2.4補(bǔ)考排考的設(shè)計(jì)思路及流程圖對(duì)于補(bǔ)考排考的設(shè)計(jì)需做下列前提和假設(shè)：1.補(bǔ)考盡量安排在學(xué)生不上課的時(shí)間段，這樣教室屬于空閑狀態(tài)，教室足夠多，學(xué)生也不會(huì)由于補(bǔ)考影響上課。2.考生在同一時(shí)間段只能參加一門(mén)科目的補(bǔ)考。3.不大于60人的科目放在一種教室考試，不不大于60人的科目能夠放在多個(gè)教室同時(shí)進(jìn)行。補(bǔ)考排考的設(shè)計(jì)思路：不停地按次序查找課程表，如果某一課程尚未排考，且與現(xiàn)在時(shí)段以排課程不沖突，則放在現(xiàn)在時(shí)段的現(xiàn)在考場(chǎng)，現(xiàn)在考場(chǎng)滿額后考察現(xiàn)在時(shí)段的下一考場(chǎng)，現(xiàn)在時(shí)間段滿額后考察下一時(shí)間段，當(dāng)一種課程參考人數(shù)多，一種考場(chǎng)安排不完時(shí)，能夠放在多個(gè)考場(chǎng)同時(shí)考試，但必須放在同一時(shí)間段內(nèi)，當(dāng)全部課程查找完畢，全部學(xué)生安排完畢，排考結(jié)束。在現(xiàn)實(shí)排考中往往是多個(gè)科目在同一種考場(chǎng)進(jìn)行補(bǔ)考，本系統(tǒng)是采用同一時(shí)間段設(shè)立多個(gè)考場(chǎng)，該時(shí)間段考場(chǎng)不夠用再對(duì)下一時(shí)間段進(jìn)行排考的做法，這樣能夠縮短考試周期。本軟件設(shè)計(jì)的補(bǔ)考排考算法先預(yù)設(shè)每個(gè)時(shí)間段的考場(chǎng)數(shù)，以把考場(chǎng)坐滿為優(yōu)先條件，合理安排每個(gè)考場(chǎng)的科目，避免同一考場(chǎng)，同一時(shí)間段考生補(bǔ)考科目的。下列為補(bǔ)考排考的流程圖：安排該時(shí)間段不同教室進(jìn)行考試安排該時(shí)間段不同教室進(jìn)行考試創(chuàng)立下一時(shí)間段進(jìn)行排考補(bǔ)考跳過(guò)此排考課程查找其它課程安排此時(shí)段此教室進(jìn)行補(bǔ)考<=60是是是否<=60>60否按照次序依次查找補(bǔ)考課程該課程與否已排考是否與現(xiàn)在時(shí)段排考課程與否沖突該課程補(bǔ)考人數(shù)>60將補(bǔ)考學(xué)生放入教室后人數(shù)依次考察該時(shí)段補(bǔ)考人數(shù)與否<=60驗(yàn)證與否全部補(bǔ)考學(xué)生安排完畢該學(xué)期補(bǔ)考排考結(jié)束否 圖3補(bǔ)考排考流程圖此功效若運(yùn)用手工排考往往費(fèi)事費(fèi)力，成果也很難科學(xué)有效，因此需要設(shè)計(jì)一種能夠運(yùn)用計(jì)算機(jī)自動(dòng)排考的系統(tǒng)。補(bǔ)考排考功效為本系統(tǒng)重要功效，操作方便簡(jiǎn)樸，排考成果科學(xué)合理。對(duì)某個(gè)學(xué)期進(jìn)行補(bǔ)考排考之后，會(huì)在高校補(bǔ)考管理系統(tǒng)文獻(xiàn)夾內(nèi)生成名為“補(bǔ)考”的文獻(xiàn)夾，內(nèi)部為以學(xué)期命名的EXCEL表格，打開(kāi)表格內(nèi)有補(bǔ)考學(xué)生名單和以數(shù)字1,2,3等命名的新的標(biāo)簽，此數(shù)字為本次補(bǔ)考安排的考場(chǎng)數(shù)，每個(gè)標(biāo)簽內(nèi)有該考場(chǎng)內(nèi)學(xué)生信息和考試科目安排。3軟件設(shè)計(jì)3.1主界面設(shè)計(jì)為了使功效能夠順利完畢，在運(yùn)行程序之前需要做某些準(zhǔn)備工作：在高校補(bǔ)考管理系統(tǒng)的文獻(xiàn)夾內(nèi)創(chuàng)立文獻(xiàn)名為“各班成績(jī)”的文獻(xiàn)夾，文獻(xiàn)夾創(chuàng)立EXCEL表格并以班級(jí)名稱命名，例如“08級(jí)電子科學(xué)與技術(shù).xls”，按照系統(tǒng)模版格式輸入學(xué)生學(xué)號(hào)，學(xué)生姓名，各項(xiàng)科目名稱及成績(jī)之后保存。雙擊運(yùn)行程序之后本程序登陸界面出現(xiàn)，界面簡(jiǎn)樸大方，在準(zhǔn)備工作完畢之后只需點(diǎn)擊對(duì)應(yīng)按鈕就能夠輕松完畢各項(xiàng)工作。下列是系統(tǒng)登陸界面：3.2創(chuàng)立不及格信息版面設(shè)計(jì)及重要程序代碼在運(yùn)行高校補(bǔ)考管理系統(tǒng)過(guò)程中做下列介紹：在系統(tǒng)功效中創(chuàng)立某個(gè)班入學(xué)至今的不及格成績(jī)，系統(tǒng)顯示不及格信息創(chuàng)立完畢后會(huì)自動(dòng)對(duì)原先的“各班成績(jī)”文獻(xiàn)夾內(nèi)該班EXCEL表格進(jìn)行更替，再次進(jìn)入該班名稱命名的EXCEL表格會(huì)發(fā)現(xiàn)一種以該班名稱不及格信息的新標(biāo)簽，在此標(biāo)簽中能夠得到本次操作所需的某班入學(xué)至今的全部學(xué)生不及格信息。在系統(tǒng)功效中創(chuàng)立某個(gè)學(xué)期全部班全部學(xué)生不及格信息，輸入需要?jiǎng)?chuàng)立的學(xué)期名稱，如第一次使用會(huì)自動(dòng)在高校補(bǔ)考管理系統(tǒng)內(nèi)創(chuàng)立名為各學(xué)期不及格信息的文獻(xiàn)夾，進(jìn)入后是以學(xué)期命名的EXCEL表格，進(jìn)入后得到所需的某個(gè)學(xué)期全部班不及格成績(jī)。在系統(tǒng)功效中創(chuàng)立某個(gè)學(xué)期某個(gè)班級(jí)的不及格信息，輸入所需要?jiǎng)?chuàng)立的學(xué)期名稱和學(xué)期名稱之后，會(huì)在“各班成績(jī)”文獻(xiàn)夾自動(dòng)搜索到所需信息并打開(kāi)。創(chuàng)立不及格信息界面以下：創(chuàng)立某班級(jí)全部學(xué)期不及格信息界面：創(chuàng)立某學(xué)期全部班不及格信息界面：創(chuàng)立某學(xué)期某班不及格信息界面：3.3補(bǔ)考排考版面設(shè)計(jì)及重要程序代碼進(jìn)入補(bǔ)考排考界面：4總結(jié)本次設(shè)計(jì)的高校補(bǔ)考管理系統(tǒng)能夠基本滿足學(xué)校對(duì)于不及格信息的匯總和篩選以及自動(dòng)補(bǔ)考排考的需求。另外，本軟件還含有使用簡(jiǎn)便，易于操作等特點(diǎn)，構(gòu)造一目了然，能夠輕松使用，解決了補(bǔ)考時(shí)補(bǔ)考信息瑣碎，人工排考費(fèi)時(shí)費(fèi)力的問(wèn)題。總的來(lái)說(shuō)，此軟件是一種比較適合高校補(bǔ)考管理的軟件。大學(xué)四年的最后一種學(xué)期就在畢業(yè)設(shè)計(jì)的忙忙碌碌中過(guò)去了，回想起這一種學(xué)期，從開(kāi)始選擇題目、系統(tǒng)的規(guī)劃再到后來(lái)系統(tǒng)的一點(diǎn)點(diǎn)的設(shè)計(jì)與實(shí)現(xiàn)期間，從開(kāi)始對(duì)系統(tǒng)構(gòu)想的一頭霧水，到后來(lái)在指導(dǎo)老師指導(dǎo)下完畢了全部程序的調(diào)試和應(yīng)用，現(xiàn)在想起仍然是一份讓人難忘的經(jīng)歷。另外，這次畢業(yè)設(shè)計(jì)對(duì)我們?nèi)康漠厴I(yè)生來(lái)說(shuō)不單單是一次實(shí)踐考核，更是一種深層次的學(xué)習(xí)，畢業(yè)設(shè)計(jì)使我們必須把這幾年來(lái)所學(xué)的某些知識(shí)和理論運(yùn)用到畢業(yè)設(shè)計(jì)中，使原本不甚理解的知識(shí)得到進(jìn)一步的鞏固和提高，這遠(yuǎn)比單純?cè)谡n堂上學(xué)習(xí)要來(lái)的有效的多。并且，在設(shè)計(jì)的過(guò)程中，碰到了諸多的問(wèn)題，這些問(wèn)題自己要想盡方法區(qū)解決，克服困難，實(shí)在不行再去麻煩老師、同窗。在解決這些困難的過(guò)程中提高我們的能力，提高理解決問(wèn)題和實(shí)際動(dòng)手的能力，這些同樣也是課本上所學(xué)習(xí)不到的。下面開(kāi)始致謝。首先，毫無(wú)疑問(wèn)的是我的指導(dǎo)X老師，在這次畢業(yè)設(shè)計(jì)中，X老師不遺余力的協(xié)助我，從選題的指導(dǎo)到系統(tǒng)設(shè)計(jì)的修改，讓我從剛開(kāi)始的摸不到頭腦到后來(lái)的日益純熟，都是老師辛勤付出的成果。在設(shè)計(jì)中我還領(lǐng)略到了老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神，老師教導(dǎo)我的這些東西，會(huì)對(duì)我后來(lái)的學(xué)習(xí)生活大有裨益。因此在這里我真誠(chéng)的對(duì)予以我認(rèn)真指導(dǎo)和耐心協(xié)助的老師表達(dá)最深切的謝意！謝謝您！同時(shí)，還要感謝XXXX，這個(gè)我學(xué)習(xí)、生活了四年的地方。她像一位母親給我們提供了良好的學(xué)習(xí)環(huán)境！感謝母校對(duì)我四年來(lái)的培養(yǎng)和教育，讓我們能夠在這里學(xué)習(xí)、成長(zhǎng)。也同時(shí)感謝我全部的同窗，是他們給我了諸多的協(xié)助和關(guān)心，陪我走了這樣一段很愉快的人生。大學(xué)生活很快就將結(jié)束了，可能我的學(xué)生生涯也就就此結(jié)束了，因此本次畢業(yè)設(shè)計(jì)也很可能是我人生最后一次作業(yè)了，因此最后我感謝我自己，感謝我用心的寫(xiě)下每個(gè)字，感謝自己非常認(rèn)真的看待它。參考文獻(xiàn)[1]蔣鵬,李光明,嚴(yán)峻.一種教室優(yōu)先的補(bǔ)考排考算法[J].重慶工學(xué)院學(xué)報(bào),,22(12):121-124.[2]劉剛,楊雪梅.高校學(xué)生補(bǔ)考考場(chǎng)分排算法分析及程序設(shè)計(jì)[J].計(jì)算機(jī)應(yīng)用教學(xué)研究,,8:130-132[3]李渤,楊舒晴.高校排考系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].科技創(chuàng)新導(dǎo)報(bào),,12(35):24-24[4]龔沛曾,楊志強(qiáng),陸慰民.VisualBasic程序設(shè)計(jì)教程[M].高等教育出版社[5]李天啟.VisualBasic6.0學(xué)習(xí)捷徑[M].清華大學(xué)出版社1999 附錄1：某班級(jí)學(xué)生全部學(xué)期不及格信息重要程序代碼'====================================================================='按照班級(jí)創(chuàng)立不及格信息'=====================================================================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="不及格信息正在創(chuàng)立中"Setexcel_app1=NewExcel.ApplicationSetexcel_book1=excel_app1.Workbooks.Open(App.path&"\各班成績(jī)"&"\"&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'先去除表格中的全部?jī)?nèi)容excel_sheet1.Range("A1:F1").Value=Array("學(xué)號(hào)","姓名","學(xué)期","課程","課程性質(zhì)","原始成績(jī)")excel_sheet1.Range("a:a").NumberFormatLocal="@"excel_sheet1.Range("c:c").NumberFormatLocal="@"'這段程序使用了正則體現(xiàn)，要在工程菜單中的引用中選擇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'自適應(yīng)列寬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="不及格信息創(chuàng)立完畢！"EndFunction附錄2：補(bǔ)考排考重要程序代碼'====================================================================='排考程序'=====================================================================Dimroom_num(10)AsInteger'考場(chǎng)人數(shù)Dimcourse_clashAsBoolean'課程沖突標(biāo)志course_clash=Falsei=2j=1DoWhile""<>excel_sheet2.Cells(i,4)If"否"=excel_sheet2.Cells(i,4)ThenIfNotSheetIsExist(excel_app,excel_book,"考場(chǎng)"&j)Thenexcel_book.Sheets.Addafter:=excel_book.Sheets(term_name&"課程沖突信息")excel_book.ActiveSheet.Name="考場(chǎng)"&j'把創(chuàng)立的表格添加到剛剛選擇的表格之后并命名Setexcel_sheet4=excel_book.Worksheets("考場(chǎng)"&j)excel_sheet4.Range("A1:c1").Value=Array("課程號(hào)","課程名","考試人數(shù)")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("考場(chǎng)"&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""