【文章內(nèi)容簡介】 ommand1_Click()kc_條件 = = “select * from stu where ” + kc + “ ” + kc_條件 End SubPrivate Sub Form_Load()kc_條件 = “=92” kc = “vb” End SubPrivate Sub Option1_Click()kc = “VB” End Sub Private Sub Option2_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()39。計算總分 Dim vb As IntegerDim math As Integer Dim english As Integer For i = 1 To vb = (”vb“).Valuemath = (”math“).Valueenglish = (”english“).Value(”total“).Value = vb + math + english Next i End SubPrivate Sub Command2_Click()39。清除總分 For i = 1 To (”total“).Value = Null Next i 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四、總結和體會經(jīng)過好幾天的努力我的課程設計終于完成了。在沒有做課程設計以前覺得課程設計好難，我可能做不了，但是通過這次做課程設計發(fā)現(xiàn)自己錯了。課程設計不僅是對前面所學知識的一種檢驗，而且也是對自己能力的一種提高，它并不可怕。通過這次課程設計使我明白了自己原來知識還比較欠缺，自己要學習的東西還太多，以前上課沒怎么認真聽，現(xiàn)在知道它重要了，幸好為時不晚，我以后要更加的努力學好vb。在這次課程設計中也使我們的同學關系更進一步了，同學之間互相幫助，有什么不懂的大家在一起商量，聽聽不同的看法對我們更好的理解知識，所以在這里非常感謝幫助我的同學。此外，還得出一個結論：世上無難事，只怕有心人。在設計過程中，我通過查閱有關資料，與同學交流經(jīng)驗和自學等方式，使自己學到了不少知識，也經(jīng)歷了不少艱辛，但收獲同樣巨大。在整個設計中我懂得了許多東西，也培養(yǎng)了我獨立工作的能力，樹立了對自己工作能力的信心，相信會對今后的學習工作生活有非常重要的影響。而且大大提高了動手的能力，使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時的喜悅。雖然這個設計做的也不太好，但是在設計過程中所學到的東西是這次課程設計的最大收獲和財富，使我終身受益。第三篇：vb學生成績管理系統(tǒng)論文目 錄摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系統(tǒng)設計的目的與要求...........................................3 ....................................................3 ................................................4 ................................................3 ....................................................4第三章 系統(tǒng)的概述.....................................................3 ........................................................3 ........................................................4 第四章 前臺界面分析...................................................4 登陸界面..........................................................4 ..........................................................6 第五章 數(shù)據(jù)庫的分析...................................................6 YONGHU表...........................................................7 STUDENT 表.........................................................7 SCORE表...........................................................7 COURSE表...........................................................8 第六章 軟件維護.......................................................8 ..........................................................9 ..........................................................9 結語及致謝............................................................9 參考文獻..............................................................9VB學生成績管理系統(tǒng)摘要:隨著科學技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的技術已逐步成熟。學生成績管理系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個學校要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，因為管理這些龐大的體系是非常困難的，要想有機地組織起來，就必須建立與自身特點相適應的成績管理系統(tǒng)。本文對Visua