freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告-學(xué)生成績(jī)管理系統(tǒng)-文庫(kù)吧資料

2025-05-22 01:49本頁(yè)面
  

【正文】 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 31 ( 8)各科成績(jī)段統(tǒng)計(jì) 界面 當(dāng)在圖 2中點(diǎn)各科成績(jī)段統(tǒng),則進(jìn)入圖 9界面。 實(shí)現(xiàn)功能: 當(dāng)點(diǎn)擊計(jì)算總分,則 DataGrid表格中 total列為三門課的總分,結(jié)果如下 圖 7 統(tǒng)計(jì)總分界面 當(dāng)點(diǎn)擊清除總分列時(shí),則 DataGrid表格中 total列清空,結(jié)果如下: 28 圖 8 清除總分界面 Private Sub Command1_Click() Dim vb As Integer Dim math As Integer Dim english As Integer For i = 1 To vb = (vb).Value math = (math).Value english = (english).Value (total).Value = vb + math + english Next i End Sub Private Sub Command2_Click() For i = 1 To (total).Value = Null Next i End Sub 29 ( 7)排名界面 當(dāng)在圖 2中點(diǎn)排名,則進(jìn)入圖 9界面。 End Sub Private Sub Form_Load() kc = class End Sub ( 6)統(tǒng)計(jì)總分界面 。 End Sub Private Sub Form_Load() kc = name End Sub ( 5)班級(jí)查詢界面(參考成績(jī)查詢界面) 26 圖 6 班級(jí)查詢界面 輸入 班級(jí) 后 查詢 27 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 23 說(shuō)明: DataGrid控件屬性設(shè)置 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 24 Private Sub Option3_Click() kc = English End Sub ( 4) 姓名查詢 界面 (參考成績(jī)查詢界面) 圖 5 姓名查詢界面 輸入姓名后 查詢 25 程序代碼如下 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 參考代碼:(在圖 3工程的學(xué)生管理點(diǎn)擊事件中加) 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
點(diǎn)擊復(fù)制文檔內(nèi)容
環(huán)評(píng)公示相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1