【正文】 ommand4_Click() End SubPrivate Sub Command5_Click()Unload Me End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_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四、總結(jié)和體會經(jīng)過好幾天的努力我的課程設(shè)計終于完成了。在沒有做課程設(shè)計以前覺得課程設(shè)計好難，我可能做不了，但是通過這次做課程設(shè)計發(fā)現(xiàn)自己錯了。課程設(shè)計不僅是對前面所學(xué)知識的一種檢驗，而且也是對自己能力的一種提高，它并不可怕。通過這次課程設(shè)計使我明白了自己原來知識還比較欠缺，自己要學(xué)習(xí)的東西還太多，以前上課沒怎么認(rèn)真聽，現(xiàn)在知道它重要了，幸好為時不晚，我以后要更加的努力學(xué)好vb。在這次課程設(shè)計中也使我們的同學(xué)關(guān)系更進(jìn)一步了，同學(xué)之間互相幫助，有什么不懂的大家在一起商量，聽聽不同的看法對我們更好的理解知識，所以在這里非常感謝幫助我的同學(xué)。此外，還得出一個結(jié)論：世上無難事，只怕有心人。在設(shè)計過程中，我通過查閱有關(guān)資料，與同學(xué)交流經(jīng)驗和自學(xué)等方式，使自己學(xué)到了不少知識，也經(jīng)歷了不少艱辛，但收獲同樣巨大。在整個設(shè)計中我懂得了許多東西，也培養(yǎng)了我獨立工作的能力，樹立了對自己工作能力的信心，相信會對今后的學(xué)習(xí)工作生活有非常重要的影響。而且大大提高了動手的能力，使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時的喜悅。雖然這個設(shè)計做的也不太好，但是在設(shè)計過程中所學(xué)到的東西是這次課程設(shè)計的最大收獲和財富，使我終身受益。