vb學(xué)生成績(jī)管理系統(tǒng)課程設(shè)計(jì)報(bào)告(更新版)
【正文】 Private Sub Command1_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub 該界面代碼如下： Private Sub Command1_Click() End Sub Private Sub Command2_Click() If = 0 Or Then Exit Sub End If If = 0 Then Exit Sub End If If Then End Sub Private Sub Command4_Click() End Sub Private 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 Sub Private Sub Form_Load() kc_條件 = =92 kc = vb End Sub Private 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。用 Data 屬性向 MSChart 數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((math).Value) = (name).Value Next lngI = Math 成績(jī)直方圖 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 五、總結(jié)和體會(huì) 想來(lái)，當(dāng)時(shí)那會(huì)兒聽說(shuō)要搞 vb 課程設(shè)計(jì)的時(shí)候，我可是相當(dāng)激動(dòng)啊，心想，學(xué)的東西終于可以
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1