【正文】
= select * from stu where english60 English_E = = English_E End Sub Private Sub Form_Load() = = = = = = = = = = = = = = End Sub 該界面代碼如下: Private Sub Command1_Click() = select * from stu order by total desc For i = 1 To (mc).Value = i Next i End Sub Private Sub Command2_Click() For i = 1 To (mc).Value = Null Next i End Sub 該界面代碼如下: Private Sub Command1_Click() 39。用 Data 屬性向 MSChart 數(shù)據(jù)網格填充數(shù)據(jù) = Val((vb).Value) = (name).Value Next lngI = VB 成績直方圖 End Sub Private Sub Command2_Click() 39。用 Data 屬性向 MSChart 數(shù)據(jù)網格填充數(shù)據(jù) = Val((math).Value) = (name).Value Next 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=3) and (vb=60 and english=60 and math=60) End Sub 五、總結和體會 想來,當時那會兒聽說要搞 vb 課程設計的時候,我可是相當激動啊,心想,學的東西終于可以用一用了。這對于我 們這種初次接觸這種東西的人來說,還真是有難度,如果不是老師給了我們足夠的模板和樣例,我想我還真一時半會兒,不知道從哪里下手,好在功夫不負有心人,經過幾天時間的摸索和操作,這個學生成績管理系統(tǒng)的雛形終于是出現(xiàn)了,雖說功能不太完善,但還是能滿足基本要求,這讓我很是欣慰。在這一段時間里里,不能說 我的 vb 編程能力有了多么大的提高,多么大的飛躍,但我敢說我對 vb 和數(shù)據(jù)庫相關的知識有了更加深刻的了解和體會,總結起來主要有以下幾點: 想要用 vb 做出好的東西來,一 定要勤動手,不能光看,因為好多錯誤憑看是看不出來的,只有通過自己不斷的操作和修改,才能對 vb 的語法結構和流程有自己獨到的理解; 在編程和調試的過程中,總會出現(xiàn)一些意想不到的問題。 經過本次的 vb 課程設計,讓我對 vb 的軟件開發(fā)流程,整體籌劃發(fā)面有了一定的了解和提高,雖說我的專業(yè)并不是計算機或者軟件工程相關的專業(yè),但我對 vb 編程的熱情絲毫不弱,我相信有了這次的經歷,對我以后 vb 的學習有很大的幫助,并祝我在 vb 或者其他類型的計算機語言的編程道路上