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