【正文】 SubPrivate Sub Command1_Click(Index As Integer)If Trim() = ThenMsgBox 請輸入檢索詞Exit SubEnd IfIf = 學號 Then = select * from student_course_info where student_id=39。 amp。 Trim() amp。 39。End IfIf = 姓名 Then = select * from student_course_info where student_name=39。 amp。 Trim() amp。 39。End IfIf = 課程號 Then = select * from student_course_info where course_no=39。 amp。 Trim() amp。 39。End IfEnd SubPrivate Sub Command2_Click(Index As Integer)Unload MeEnd SubPrivate Sub Form_Load() 學號 姓名 課程號 = 學號End Sub附錄2修改成績代碼：Private Sub Combo1_Click()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select student_id,student_name from student_info where classname=39。 amp。 amp。 39。Set mrc = executesql(txtsql, msgtext)While ( = False) (student_id) amp。 amp。 (student_name)WendEnd SubPrivate Sub Command1_Click()Dim xh As StringDim kz As StringDim mrc As Dim txtsql As StringDim msgtext As StringIf = ThenMsgBox 您還沒有選擇課程!Exit SubEnd IfIf = ThenMsgBox 您還沒有選擇學生學號!Exit SubEnd IfIf Not IsNumeric() ThenMsgBox 分數輸入不為數字!Exit SubEnd Ifkz = Left(, InStr(1, , ) 1)xh = Left(, InStr(1, , ) 1)txtsql = update student_course_info set score = amp。 amp。 where student_id=39。 amp。 xh amp。 39。and course_no=39。 amp。 kz amp。 39。executesql txtsql, msgtextIf sqlSucc Then MsgBox 這個學生的這門成績已修改!, vbOKOnly, 提示Else MsgBox 修改不成功!, vbOKOnlyEnd IfEnd SubPrivate Sub Command2_Click()Dim xh As StringDim kz As StringDim mrc As Dim txtsql As StringDim msgtext As StringIf = ThenMsgBox 您還沒有選擇課程!Exit SubEnd IfIf = ThenMsgBox 您還沒有選擇學生學號!Exit SubEnd IfIf Not IsNumeric() ThenMsgBox 分數輸入不為數字!Exit SubEnd Ifkz = Left(, InStr(1, , ) 1)xh = Left(, InStr(1, , ) 1)txtsql = delete * from student_info where student_id=39。 amp。 xh amp。 39。and course_no=39。 amp。 kz amp。 39。Set mrc = executesql(txtsql, msgtext)If = False ThenMsgBox 這個學生的這門成績已刪除!, vbOKOnly, 提示Exit SubElse(student_id) = xh(course_no) = kz(score) = Val()MsgBox 刪除成功!, vbOKOnly = End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select distinct classname from student_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (classname)Wendtxtsql = select course_no,course_name from course_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (course_no) amp。 amp。 (course_name)WendEnd Sub附錄3添加成績信息代碼：Private Sub Combo1_Click()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select student_id,student_name from student_info where classname=39。 amp。 amp。 39。Set mrc = executesql(txtsql, msgtext)While ( = False) (student_id) amp。 amp。 (student_name)WendEnd SubPrivate Sub Command1_Click()Dim xh As StringDim kz As StringDim mrc As Dim txtsql As StringDim msgtext As StringIf = ThenMsgBox 您還沒有選擇課程!Exit SubEnd IfIf = ThenMsgBox 您還沒有選擇學生學號!Exit SubEnd IfIf Not IsNumeric() ThenMsgBox 分數輸入不為數字!Exit SubEnd Ifkz = Left(, InStr(1, , ) 1)xh = Left(, InStr(1, , ) 1)txtsql = select * from student_course_info where student_id=39。 amp。 xh amp。 39。and course_no=39。 amp。 kz amp。 39。Set mrc = executesql(txtsql, msgtext)If = False ThenMsgBox 這個學生的這門成績已錄過!, vbOKOnly, 警告Exit SubElse(student_id) = xh(course_no) = kz(score) = Val()MsgBox 寫入成功!, vbOKOnly = End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select distinct classname from student_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (classname)Wendtxtsql = select course_no,course_name from course_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (course_no) amp。 amp。 (course_name)WendEnd