vb學生成績管理系統(tǒng)課程設計報告-在線瀏覽
2024-10-30 17:35本頁面
【正文】 End Sub Private 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。 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 Math_D = = Math_D = select * from stu where math60 Math_E = = Math_E = select * from stu where english=90 English_A = = English_A = select * from stu where english=80 and english90 English_B = = English_B = select * from stu where english=70 and english80 English_C = = English_C = select * from stu where english=60 English_D = = English_D
黨政相關相關推薦
鄂ICP備17016276號-1