【文章內容簡介】 00, 0) DrawWidth = 5 (0, 0)(6500, 0), RGB(0, 0, 255) DrawWidth = 5 (0, 0)(0, 4000), RGB(0, 0, 255) Dim i As Integer For i = 1 To 13 DrawWidth = 3 (500 * i, 0)(500 * i, 50), RGB(0, 0, 255) Next For i = 1 To 10 DrawWidth = 3 (0, 400 * i)(50, 400 * i), RGB(0, 0, 255) Next For i = 0 To 12 score(i) = Val(Label1(i + 1).Caption) = 0 (500 * i, score(i) * 40), 50, RGB(255, 0, 0) DrawWidth = 2 If (i 0) Then (500 * (i 1), score(i 1) * 40)(500 * i, score(i) * 40), RGB(0, 255, 0) End If Next (2)統(tǒng)計某班的某一次成績，同時算出各個分數(shù)段的人數(shù)（同時生成條形圖）： While Not Select Case (examnum + 2).Value Case Is = 100 hundred = hundred + 1 ProgressBar1(0).Value = ProgressBar1(0).Value + 1 Case Is = 90 ninty = ninty + 1 ProgressBar1(1).Value = ProgressBar1(1).Value + 1 Case Is = 80 eighty = eighty + 1 ProgressBar1(2).Value = ProgressBar1(2).Value + 1 Case Is = 70 seventy = seventy + 1 ProgressBar1(3).Value = ProgressBar1(3).Value + 1 Case Is = 60 sixty = sixty + 1 ProgressBar1(4).Value = ProgressBar1(4).Value + 1 Case Else nosixty = nosixty + 1 ProgressBar1(5).Value = ProgressBar1(5).Value + 1 End Select Wend Select Case (examnum + 2).Value Case Is = 100 hundred = hundred + 1 ProgressBar1(0).Value = ProgressBar1(0).Value + 1 Case Is = 90 ninty = ninty + 1 ProgressBar1(1).Value = ProgressBar1(1).Value + 1 Case Is = 80 eighty = eighty + 1 ProgressBar1(2).Value = ProgressBar1(2).Value + 1 Case Is = 70 seventy = seventy + 1 ProgressBar1(3).Value = ProgressBar1(3).Value + 1 Case Is = 60 sixty = sixty + 1 ProgressBar1(4).Value = ProgressBar1(4).Value + 1 Case Else nosixty = nosixty + 1 ProgressBar1(5).Value = ProgressBar1(5).Value + 1 End Select Label2(0).Caption = Str(hundred) + 人 Label2(1).Caption = Str(ninty) + 人 Label2(2).Caption = Str(eighty) + 人 Label2(3).Caption = Str(seventy) + 人 Label2(4).Caption = Str(sixty) + 人 Label2(5).Caption = Str(nosixty) + 人 End Sub (3)統(tǒng)計班級成績并進行比較 (包括統(tǒng)計各班各分數(shù)段的人數(shù) )： 39。計 2020 = select * from cisco$ where class =39。計 202039。 While Not For i = 0 To 12 If (3 + i).Value Null Then class2020(i) = class2020(i) + (3 + i).Value End If Next Wend 39。For i = 0 To 12 39。If (3 + i).Value Null Then 39。class2020(i) = class2020(i) + (3 + i).Value 39。End If 39。Next 39。計 2020 = select * from cisco$ where class =39。計 202039。 While Not For i = 0 To 12 If (3 + i).Value Null Then class2020(i) = class2020(i) + (3 + i).Value End If Next Wend 總之 ,成績的統(tǒng)計主要是采用了循環(huán)語句，并通過一些輔助手段（比如，設計變量作為計數(shù)器，設計一個存儲表，設計一個累加器等），來實現(xiàn)成績的統(tǒng)計。循環(huán)語句主要負責確定統(tǒng)計的范圍及循環(huán)的次數(shù)等， SQL語句則負責從數(shù)據(jù)表中取出所需要的數(shù)據(jù)。 該系統(tǒng)的設計主要注意了這樣幾點： *方便用戶使用（界面操作簡單）； *強大的圖形 功能（將選定的數(shù)據(jù)轉化成圖表）； *注意了解答的針對性 (只顯示用戶需要的數(shù)據(jù)和圖表而不顯示不需要的 )?？傮w來說 ，本系統(tǒng)的 設計思想的特點如下： (1).強化統(tǒng)計，簡便實用； (2).面向全局，重在通用； (3).彈性系統(tǒng)，便于維護； (4)．針對性強，比較專業(yè)； (5).結合實際，著眼未來。 5 系統(tǒng)特點 本系統(tǒng)具有如下特點： *通過建立高效實用的現(xiàn)代化學生成績 評估 系統(tǒng)，使廣大教學教務工作人員從繁瑣的工作中解脫出來，從而提高工作效率，提高教學質量，并更好地為院領導提供實用的決策分析信息，從而為實現(xiàn)一流的教 學打下堅實的基礎。 *在一定程度上理順了學院的管理思想和機制，所以它也應是學院（系部）管理思想、管理手段的一次飛躍的體現(xiàn)。明確了教學管理工作職責以及使教育成果的定性分析進一步制度化和規(guī)范化。 *是進行數(shù)據(jù)圖表化的一次有益嘗試。是進行數(shù)據(jù)分析時不再那么枯糙無味，有利于調動統(tǒng)計人員的積極性。 6 系統(tǒng)總體功能 設計這個系統(tǒng)想要實現(xiàn)的功能是能夠自動聯(lián)接數(shù)據(jù)庫，并把數(shù)據(jù)庫中的數(shù)據(jù)導入到程序中，系統(tǒng)能自動根據(jù)數(shù)據(jù)及用戶所作的選擇生成分析圖表，使各種成績分析的結果一目了然。用戶只要把數(shù)據(jù)輸入（或直接導入）數(shù)據(jù)庫就可以直接傳入運作系統(tǒng)得到所需的結果?？傻玫降膱D表有學生個人成績表及其折線圖，班級間成績比較表及其折線圖，班級成績分數(shù)段統(tǒng)計表及其條形圖。通過這些表就可以對一個學生的學習情況（根據(jù)學生個人成績表），老師的教學效果（根據(jù)班級間成績比較表，班級成績統(tǒng)計表等）有一個明確地認識，從而使根據(jù)學生的成績進行教學評估十分方便。 7 系統(tǒng)的應用 經(jīng)過考慮，總結出“學生成績評估系統(tǒng)”能夠應用于解決下列問題： 實現(xiàn)對個別學生成績的方便、快捷查詢，并能顯示出它的成績變化情況（以曲線圖表示）。 實現(xiàn)對某個班的所有學生學習成績的查詢，并進行統(tǒng)計 （以柱形圖表示），能確定每一個分數(shù)段的人數(shù)。 實現(xiàn)對所有學生學習成績的查詢，并進行統(tǒng)計（以柱形圖表示）。 實現(xiàn)對某幾個班的所有學生的學習成績進行查詢及統(tǒng)計，并進行班級間的比較（以曲線圖表示），確定每一個分數(shù)段的人數(shù)。 說明 本系統(tǒng)采用的是 Microsoft Visual Studio .NET 2020 和 Microsoft SQL Server 2020 軟件。 Microsoft Visual Studio .NET 2020 為開發(fā) Visual Basic程序提供了方便、快捷的開發(fā)平臺；而 Microsoft SQL Server 2020 則是一個功能完備的數(shù)據(jù)庫管理系統(tǒng)，系統(tǒng)操作的數(shù)據(jù)就存放在這里。 結束語 根據(jù)學生成績進行教學評估的軟件 在教學軟件開發(fā)中是屬于很常見的項目。因為不論是對于老師還是學生或者學校領導來說，學生的成績都是一個很重要的評估標準。但是，由于水平有限，我們的成績評估系統(tǒng)仍有許多有待完善的地方，原因是多方面的。主要是因為我們在開發(fā)該評估系統(tǒng)時接觸到比較多的新軟件以及使用了一些以前未接觸過的新技術。其中有部分軟件工具中的某些功能不可能完全掌握，只能是邊設計邊學習。且整個設計時間比較倉促，在材 料收集、整理方面還有做得不夠的地方，而且，這個系統(tǒng)的開發(fā)比我預想的還要復雜一些（主要是水晶報表的使用），這些都會影響查詢成績頁面的查詢顯示效果，故系統(tǒng)在某些設計方面還存在有待改進的地方。如頁面的查詢內容還有待充實；頁面的組織結構也還有待進一步改善，以使其更具條理性；版面的設計也需要不斷地完善，使其更有藝術感，增強系統(tǒng)的吸引力。 總之，學生成績管理系統(tǒng)的開發(fā)對 我們來說還是有一定的難度的，在開發(fā)的時間比較短的情況下，只是基本實現(xiàn)了原定的功能（甚至還有功能未能實現(xiàn)）。我們預想將來該 成績 評估系統(tǒng)的 功能模塊 還會有許 多的功能有待改進或實現(xiàn)，這留到以后再說了。 在系統(tǒng)設計過程中，自己亦得到了鍛煉，為如何使用新的軟件工具和今后上網(wǎng)獲取所需信息及有關服務積累了一定的經(jīng)驗。并且，設計過程中，在上網(wǎng)搜索有關資料的同時，亦開闊了視野，豐富了自己的知識面。 遇到不能解決的問題采取多查資料、上機調試，請教老師和同學等多種途徑解決?？傊?jīng)過本次畢業(yè)設計，培養(yǎng)了自己的動手能力，大大提高了自己的自學能力和解決問題的能力，大大豐富了自己的專業(yè)知識和專業(yè)技能。 參考文獻 [1]劉炳文 . 精通 Visual Basic 中文版 . 北京：電子 工業(yè)出版社， 1997 年 7 月 . [2]Michael Otey,Paul Conte． SQL Server 2020開發(fā)指南 [M]．北京：清華大學出版社， 2020 [3]Dejan Sundericamp。Tom Woodhead． SQL Server 2020 高級編程技術 [M]．北京：清華大學出版社， 2020 [4]Mike Gunderloy Joseph ． SQL Server 2020 從入門到精通 [M]．北京：電子工業(yè)出版社， 2020 [5]鐘軍 . Visual Basic 數(shù)據(jù)庫高級實例 導航 . 北京： 科學出版社， 2020 年 3 月 . [6]求是科技 . Visual Basic 數(shù)據(jù)庫開發(fā)技術與工程實踐 . 北京：人民郵電出版社 . 2020 年 1月 . [7]長城工作室數(shù)據(jù)組 . SQL Server 2020 高級應用 [M]. 北京：人民郵電出版社， 2020 [8]張莉、王強、趙文、董莉 . Server 數(shù)據(jù)庫原理及應用教程 [M]. 北京：清華大學出版社， [9]飛思科技產(chǎn)品研發(fā)中心 . SQL Server 2020 基礎與提高 [M]. 北京：電子工業(yè)出版社， 2020 [10]飛思科技 產(chǎn)品研發(fā)中心 . SQL Server 2020 高級管理與開發(fā) [M]. 北京：電子工業(yè)出版社，2020 [12]張鞅等 . 論高等教育的改革 . 北京：三聯(lián)書社 . 2020 年 . [13]Mike Gunderloy Tim Sneath. SQL Server Developer’s Guide to OLAP with Analysis Services[M]. Syngre Publishing,Inc,2020 [14]Tony Bain. Professional SQL Server 2020 Data Warehousing with Analysis Services[M]. Syngre Publishing,Inc,2020 [15]Rob SQL Server 2020 Database Development from 致謝 流年似水，四年的大學生活即將過去。七月，我將永遠告別我的黃金時代，去繼續(xù)我的人生旅途。本文應該可以看作是我四年本科生活的一點總結。因此，我要真心地感謝本系所有曾經(jīng)傳授給我知識，更教給我人生哲理的的老師 們，感謝所有曾幫助過我的同學們，謝謝你們讓我擁有了一段令人思考和回味的大學生活。 關于這篇論文，首先我要感謝我們小組的導師徐聲遠老師的熱心指導與關懷。同時，我還要感謝的是同班的幾位同學對我的工作的支持和幫助。最后謝謝各位評委老師和同學們的支持，謝謝 ！ 過戰(zhàn)況，博學多聞的隆美爾一下子就猜出