學(xué)生在基于Excel工作表的試卷中輸完全部答案后才可保存或刪除答案，而檢查并確保在保存答案試卷文檔后才能清除答案的相應(yīng)代碼如下：
　　'保證選擇或輸入班級(jí)號(hào)、姓名與學(xué)號(hào)
　　 If ComboBoxClass = "" Or ComboBoxNum = "" Or TextBoxName = "" Then
　　MsgBox ("請(qǐng)選擇輸入班級(jí)號(hào)、序號(hào)，并輸入姓名，然后再單擊本按鈕")
　　Exit Sub
　　 End If
　　'根據(jù)學(xué)生輸入的班號(hào)和學(xué)號(hào)自動(dòng)組合出Excel工作簿文檔名
　　 ExcelFilePath = "《Internet網(wǎng)絡(luò)及其應(yīng)用》試卷_" & ComboBoxClass & "班_" & ComboBoxNum & "號(hào)學(xué)生答案.xls"
　　'設(shè)置要保存的Excel工作簿的路徑和文件全名
　　 ExcelFilePath = Application.ActiveWorkbook.Path & "\\" & ExcelFilePath
　　'如果不存在相應(yīng)文件，則保存該文件；否則清除答案
　　 If "" = Dir(ExcelFilePath) Then
　　MsgBox ("您還沒(méi)有保存您的答案，請(qǐng)單擊‘保存答案試卷’按鈕后再單擊本按鈕。")
　　 Else
　　…' 清除答案的相應(yīng)代碼
　　End Sub