教師在每節課結束前，習慣留幾道習題讓學生們自行練習，以鞏固當堂課所學的知識。如果只是用Word或PowerPoint展示給同學們，那是不是顯得過于呆板呢？同學們也興趣不高，其實我們完全可以利用Word的VBA功能，讓這些練習具有交互功能，從而提高同學們的興趣。下面，我們就來看一下如何制作可以判斷答案正確與否的多項選擇題的過程。

1.啟動Word，新建一空白文檔，輸入如圖1所示的“計算機的軟件系統包括（ ）”并根據情況設置好字體、字號和顏色。

2.依次單擊菜單欄中的“視圖→工具欄→控件工具箱”命令，在彈出的控件工具箱中選中“復選框”按鈕 ，然后在文檔拖拉出一個復選框。

3.在拖拉出的復選框（checkbox1）上單擊鼠標右鍵選擇屬性，打開“屬性”對話框，將其中“名稱”修改為“duoxt11”，“Caption”后面的字符修改為題目相應選項字符（如“系統軟件”），然后再設置“font”選項設置合適的字體、字號等。其他屬性可采用默認值。

4.將上面設置好的復選框復制三個，分別將“名稱”修改為“duoxt12”、“duoxt13”、“duoxt14”，“Caption”屬性分別修改為“應用軟件”、“殺毒軟件”和“工具軟件”。

5.選擇“控件工具箱”的“命令按鈕” ，在文檔中添加一個按鈕，和上面3中的操作一樣將其“名稱”修改為“duopd11”，“caption”屬性修改為“判斷”（也可以修改“font”屬性來設置字體、字號等）。然后雙擊該按鈕，進入“VisualBasic編輯器”狀態，將下述代碼輸入到Private Sub Private Sub duopd11_Click()和End Sub代碼中間，輸入完成后，關閉窗口返回。

If duoxt11.Value = True And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then

MsgBox "恭喜你，選擇正確。", vbOKOnly, "結果"

Else

If duoxt11.Value = True And duoxt12.Value = False And duoxt13.Value = False And duoxt14.Value = False Or duoxt11.Value = False And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then

MsgBox "選對了一個，還有一個，再努力一下就勝利了。", vbOKOnly, "提示"

Else

MsgBox "選擇錯誤！還需要繼續努力啊！", vbOKOnly, "提示"

End If

End If

上述代碼含義是如果選擇第一項和第二項并且第三和第四項不選時，按下判斷按鈕則彈出“恭喜你，選擇正確”消息框，如果僅僅選擇了第一項或第二項則彈出“選對了一個，還有一個再努力一下就勝利了。”消息框，如果選擇了第三或第四項中的任何一項都會彈出“選擇錯誤！還需要繼續努力啊！”消息框。

6.將命令按鈕復制一份，將其“名稱”修改為“duopd12”，“caption”屬性修改為“重選”，雙擊該按鈕，進入“VisualBasic編輯器”狀態，將下述代碼輸入到Private Sub duopd12_Click()和End Sub代碼中間，輸入完成后，關閉窗口返回。

duoxt11.Value = False

duoxt12.Value = False

duoxt13.Value = False

duoxt14.Value = False

現在單擊“控件工具箱”中的“退出設計模式”按鈕 關閉“控件工具箱”。（可一定要記住啊，否則不會出現效果的。）

一個多項選題就做好了，同學們這樣就可以在做題的過程中隨時來查看做題的結果了。