【文章內(nèi)容簡介】 n2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub該界面代碼如下：Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39?！?+ kc_條件 + “39?！? End SubPrivate Sub Form_Load()kc = “name” End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39?！?+ kc_條件 + “39?！? End SubPrivate Sub Form_Load()kc = “class” End Sub該界面代碼如下：Private Sub Command1_Click()Dim vb_A As IntegerDim vb_B As IntegerDim vb_C As IntegerDim vb_D As IntegerDim vb_E As IntegerDim Math_A As IntegerDim Math_B As IntegerDim Math_C As IntegerDim Math_D As IntegerDim Math_E As IntegerDim English_A As IntegerDim English_B As IntegerDim English_C As IntegerDim English_D As IntegerDim English_E As Integer = “select * from stu where vb=90”vb_A = = vb_A = “select * from stu where vb=80 and vbvb_B = = vb_B = “select * from stu where vb=70 and vbvb_C = = vb_C = “select * from stu where vb=60”vb_D = = vb_D = “select * from stu where vbvb_B = = vb_E = “select * from stu where math=90”Math_A = = Math_A = “select * from stu where math=80 and mathMath_B = = Math_B = “select * from stu where math=70 and mathMath_C = = Math_C = “select * from stu where math=60 ”Math_D = = Math_D = “select * from stu where mathMath_E = = Math_E = “select * from stu where english=90”English_A = = English_A = “select * from stu where english=80 and englishEnglish_B = = English_B = “select * from stu where english=70 and englishEnglish_C = = English_C = “select * from stu where english=60”English_D = = English_D = “select * from stu where englishEnglish_E = = English_E End SubPrivate Sub Form_Load() = “ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ End Sub該界面代碼如下：Private Sub Command1_Click() = ”select * from stu order by total desc“ For i = 1 To (”mc“).Value = iNext i End SubPrivate Sub Command2_Click() For i = 1 To (”mc“).Value = Null Next i End Sub該界面代碼如下：Private Sub Command1_Click()39。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((”vb“).Value) = (”name“).ValueNext lngI = ”VB成績直方圖“ End SubPrivate Sub Command2_Click()39。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((”math“).Value) = (”name“).ValueNext lngI = ”Math成績直方圖“ End Sub該界面代碼如下Private Sub Command1_Click()Dim vb As Integer Dim math As Integer Dim english As Integer = ”select * from stu where((math+english+vb)/3=90)or((math+english+vb)/3=85 and(math=100 or english=100 or vb=100))or((vb+english+math)/3=85 and((vb=95 and english =95)or(english=95 and math=95)or(math=95 and vb=95)))and(mc=60 and english=60 and math=60) End Sub五、總結(jié)和體會想來，當(dāng)時那會兒聽說要搞vb課程設(shè)計的時候，我可是相當(dāng)激動啊，心想，學(xué)的東西終于可以用一用了。并且這次的Vb課程設(shè)計要持續(xù)兩周的時間，主要是用vb+access相關(guān)的知識來實現(xiàn)學(xué)生成績和信息的管理。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時半會兒，不知道從哪里下手，好在功夫不負(fù)有心人，經(jīng)過幾天時間的摸索和操作，這個學(xué)生成績管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說功能不太完善，但還是能滿足基本要求，這讓我很是欣慰。兩周的時間并不長，一晃就到了，課程設(shè)計也要畫上句號了。在這一段時間里里，不能說我的vb編程能力有了多么大的提高，多么大的飛躍，但我敢說我對vb和數(shù)據(jù)庫相關(guān)的知識有了更加深刻的了解和體會，總結(jié)起來主要有以下幾點：想要用vb做出好的東西來，一定要勤動手，不能光看，因為好多錯誤憑看是看不出來的，只有通過自己不斷的操作和修改，才能對vb的語法結(jié)構(gòu)和流程有自己獨(dú)到的理解；在編程和調(diào)試的過程中，總會出現(xiàn)一些意想不到的問題。我發(fā)現(xiàn)并不是每一個問題都能從資料中得到解決方法，有些問題是無法預(yù)料的，這個時候就得靠自己去分析了，你必須得非常的細(xì)心，一步一步的進(jìn)行調(diào)試和修改，而且不能急，往往有的錯誤就是在你急躁的時候從你眼皮底下溜過去的，這樣又得重新檢查，到頭來，既費(fèi)時又費(fèi)力，實在不行，還可以和同學(xué)一起進(jìn)行討論；在寫代碼的時候，一定要養(yǎng)成良好的語法習(xí)慣，對窗體和控件的name屬性和caption屬性，要盡量習(xí)慣用相對應(yīng)的英文單詞的縮寫或簡寫，因為這樣便于自己的查找和修改，還有就是在寫代碼的時候，不要圖簡單，一些語法結(jié)構(gòu)總是不寫全，老是用最簡單的形式，如果你對vb語法結(jié)構(gòu)很熟的話，這沒問題，但對于我們這樣的初學(xué)者來說，一定不要這樣，因為時間長了的話，對一些復(fù)雜一點的程序理解起來會很吃力的，而且對其的運(yùn)行過程的了解不能達(dá)到透徹；在數(shù)據(jù)庫的操作部分，一定檢驗一下數(shù)據(jù)源的連接成功與否，還有就是在控件與數(shù)據(jù)庫連接的時候，不要忘了每個控件的datasource屬性和datafield屬性，要確保其于數(shù)據(jù)庫的成功連接。經(jīng)過本次的vb課程設(shè)計，讓我對vb的軟件開發(fā)流程，整體籌劃發(fā)面有了一定的了解和提高，雖說我的專業(yè)并不是計算機(jī)或者軟件工程相關(guān)的專業(yè)，但我對vb編程的熱情絲毫不弱，我相信有了這次的經(jīng)歷，對我以后vb的學(xué)習(xí)有很大的幫助，并祝我在vb或者其他類型的計算機(jī)語言的編程道路上走得更遠(yuǎn)。第三篇：vb學(xué)生成績管理系統(tǒng)論文目 錄摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系統(tǒng)設(shè)計的目的與要求...........................................3 ....................................................3 ................................................4 ................................................3 ....................................................4第三章 系統(tǒng)的概述.....................................................3 ........................................................3 ........................................................4 第四章 前臺界面分析...................................................4 登陸界面..........................................................4 ..........................................................6 第五章 數(shù)據(jù)庫的分析...................................................6 YONGHU表...........................................................7 STUDENT 表.........................................................7 SCORE表...........................................................7 COURSE表...........................................................8 第六章 軟件維護(hù).......................................................8 ..........................................................9 ..........................................................9 結(jié)語及致謝............................................................9 參考文獻(xiàn)..............................................................9VB學(xué)生成績管理系統(tǒng)摘要:隨著科學(xué)技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的技術(shù)已逐步成熟。學(xué)生成績管理系統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個學(xué)校要生存要發(fā)展，要高效率地把內(nèi)部活動有機(jī)地組織起來，因為管理這些龐大的體系是非常困難的，要想有機(jī)地組織起來，就必須建立與自身特點相適應(yīng)的成績管理系統(tǒng)。本文對Visua