用word2000使試卷自動批改

1、用word2000使試卷自動批改用word2000使試卷自動批改 作為一個老師，常常要做試卷、改試卷，常常改得頭昏眼花，要是試卷能自動批改那該多好啊。近日我就用word2000制作了一份能自動批改的試卷與大家共享。本文分為選擇題制作與填空題制作兩部分。 首先新建一個word2000文檔，單擊視圖工具欄控件工具箱 控件工具箱 選擇題制作（返回） 單擊 進入“設(shè)計模式”，接著輸入題目： 一、選擇題 1、氟里昂是一種最好的冰箱制冷劑之一，但現(xiàn)在世界上很多國家已禁止使用，因為它會污染空氣，引起 ( ) 在下一行插入四個“復(fù)選框”和一個“標(biāo)簽”，單擊控件工具箱中“屬性”，將四個“復(fù)選框”的名稱分別改為：

2、a1、b1、c1、d1，Caption分別改為：(A) 臭氧層破壞、(B)溫室效應(yīng)、(C)酸雨、(D)光化學(xué)煙霧，并將“標(biāo)簽”的名稱改為：clew1（為了輸出文字醒目可將Fore Color設(shè)置為紅色）。如下所示： 同理輸入第2題、第3題，其中“復(fù)選框”的名稱分別改為：a2、b2、c2、d2、a3、b3、c3、d3，Caption分別改為：(A)只有、(B)只有、(C)只有、(D)、(A) 設(shè)法阻止石油噴射、(B) 設(shè)法降低火焰溫度、(C) 設(shè)法降低石油著火點、(D) 設(shè)法使火焰隔絕空氣，并將“標(biāo)簽”的名稱分別改為：clew2、clew3。如下所示： 2、下列情況可能引起大氣污染的是煤的燃燒;

3、工業(yè)廢氣的任意排放;燃放鞭炮;飛機、汽車尾氣的排放 ( ) 3、海灣戰(zhàn)爭中，科威特大批油井著火，在滅火工作中，下列措施不能考慮用于滅火的是（） 在下一行插入一個“命令按鈕”，設(shè)置其Caption為：“批改”。再輸入“你的得分為：”并插入一個“標(biāo)簽”。如下所示： 你的得分為： 雙擊CommandButton1按鈕輸入以下代碼： Private Sub CommandButton1_Click() If a1.Value = True Then clew1.Caption = 你答對了 Else clew1.Caption = 你答錯了 End If（說明：第1題的答案為“A”，這段代碼用來判斷a

4、1是否被選中，并在“clew1”中給出提示。） If d2.Value = True Then clew2.Caption = 你答對了 Else clew2.Caption = 你答錯了 End If（說明：第2題的答案為“D”，這段代碼用來判斷d2是否被選中，并在“clew2”中給出提示。） If c3.Value = True Then clew3.Caption = 你答對了 Else clew3.Caption = 你答錯了 End If（說明：第3題的答案為“C”，這段代碼用來判斷c3是否被選中，并在“clew3”中給出提示。） zongfen = 0 If a1.Value =

5、True Then zongfen = zongfen + 5 If d2.Value = True Then zongfen = zongfen + 5 If c3.Value = True Then zongfen = zongfen + 5 Label1.Caption = Str(zongfen) End Sub（說明：這段代碼用來判斷學(xué)生做對了幾題，每題5分，在“Label1”中給出得分。） Private Sub Document_Open() a1.Value = False a2.Value = False a3.Value = False b1.Value = False b

6、2.Value = False b3.Value = False c1.Value = False c2.Value = False c3.Value = False d1.Value = False d2.Value = False d3.Value = False clew1.Caption = clew2.Caption = clew3.Caption = Label1.Caption = End Sub（說明：這段代碼用來設(shè)置各按鈕、標(biāo)簽的初始值。） 雙擊a1按鈕輸入以下代碼： Private Sub a1_Click() If a1.Value = True Then b1.Valu

7、e = False c1.Value = False d1.Value = False End If End Sub（說明：這段代碼用來實現(xiàn)答案的單選，以下同理。） 再雙擊b1按鈕輸入以下代碼： Private Sub b1_Click() If b1.Value = True Then a1.Value = False c1.Value = False d1.Value = False End If End Sub 再雙擊c1按鈕輸入以下代碼： Private Sub c1_Click() If c1.Value = True Then b1.Value = False a1.Value =

8、 False d1.Value = False End If End Sub 再雙擊d1按鈕輸入以下代碼： Private Sub d1_Click() If d1.Value = True Then b1.Value = False c1.Value = False a1.Value = False End If End Sub 同理分別為a2、b2、c2、d2、a3、b3、c3、d3按鈕輸入以下代碼： Private Sub a2_Click() If a2.Value = True Then b2.Value = False c2.Value = False d2.Value = Fal

9、se End If End Sub Private Sub b2_Click() If b2.Value = True Then a2.Value = False c2.Value = False d2.Value = False End If End Sub Private Sub c2_Click() If c2.Value = True Then b2.Value = False a2.Value = False d2.Value = False End If End Sub Private Sub d2_Click() If d2.Value = True Then b2.Value

10、= False c2.Value = False a2.Value = False End If End Sub Private Sub a3_Click() If a3.Value = True Then b3.Value = False c3.Value = False d3.Value = False End If End Sub Private Sub b3_Click() If b3.Value = True Then a3.Value = False c3.Value = False d3.Value = False End If End Sub Private Sub c3_Cl

11、ick() If c3.Value = True Then b3.Value = False a3.Value = False d3.Value = False End If End Sub Private Sub d3_Click() If d3.Value = True Then b3.Value = False c3.Value = False a3.Value = False End If End Sub 填空題的制作（返回） 輸入題目： 二、填空題 純硫酸是一種 色 狀 體。 在空格中插入三個“文字框”，將名稱分別改為：vacancy1、vacancy2、vacancy3；在每個“文

12、字框”后依次插入“標(biāo)簽”，將名稱分別改為：clew4、clew5、clew6；在下一行插入一個“命令按鈕”，設(shè)置其Caption為：“批改”。再輸入“你的得分為：”并再插入一個“標(biāo)簽”。如下所示： 純硫酸是一種色狀體。 你的得分為： 雙擊CommandButton2按鈕輸入以下代碼： Private Sub CommandButton2_Click() If vacancy1.Text = 無 Then clew4.Caption = Else clew4.Caption = End If（說明：第1空的答案為“無”，這段代碼用來判斷vacancy1中是否填“無”，并在“clew4”中給出判斷

13、。） If vacancy2.Text = 油 Then clew5.Caption = Else clew5.Caption = End If（說明：第2空的答案為“油”，這段代碼用來判斷vacancy2中是否填“油”，并在“clew5”中給出判斷。） If vacancy3.Text = 液 Then clew6.Caption = Else clew6.Caption = End If（說明：第3空的答案為“液”，這段代碼用來判斷vacancy3中是否填“液”，并在“clew6”中給出判斷。） defen = 0 If vacancy1.Text = 無 Then defen = defen + 2 If vacancy2.Text = 油 Then defen = defen + 2 If vacancy3.Text = 液 Then defen = defen + 2 Label2.Caption = Str(defen) End Sub（說明：這段代碼用來判斷學(xué)生填對了幾空，每空2分，在“Label2”中給出得分。） Private Sub Document_Open() vacancy1.Text = vacancy2.Text = vacancy3.Text = clew4.Caption = clew5.Caption = clew6.Caption = La