【正文】
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 = select * from stu where english60 English_E = = English_EEnd SubPrivate Sub Form_Load() = = =