vb學(xué)生成績管理系統(tǒng)課程設(shè)計報告-全文預(yù)覽
【正文】 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。 End Sub Private Sub Form_Load() kc = class End Sub 該界面代碼如下： Private Sub Command1_Click() Dim vb_A As Integer Dim vb_B As Integer Dim vb_C As Integer Dim vb_D As Integer Dim vb_E As Integer Dim Math_A As Integer Dim Math_B As Integer Dim Math_C As Integer Dim Math_D As Integer Dim Math_E As Integer Dim English_A As Integer Dim English_B As Integer Dim English_C As Integer Dim English_D As Integer Dim English_E As Integer = select * from stu where vb=90 vb_A = = vb_A = select * from stu where vb=80 and vb90 vb_B = = vb_B = select * from stu where vb=70 and vb80 vb_C = = vb_C = select * from stu where vb=60 vb_D = = vb_D = select * from stu where vb60 vb_B = = vb_E = select * from stu where math=90 Math_A = = Math_A = select * from stu where math=80 and math90 Math_B = = Math_B = select * from stu where math=70 and math80 Math_C = = Math_C = select * from stu where math=60
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1