教師在每節(jié)課結(jié)束前，習(xí)慣留幾道習(xí)題讓學(xué)生們自行練習(xí)，以鞏固當(dāng)堂課所學(xué)的知識(shí)。如果只是用word或PowerPoint展示給同學(xué)們，那是不是顯得過于呆板呢？同學(xué)們也興趣不高，其實(shí)我們完全可以利用Word的VBA功能，讓這些練習(xí)具有交互功能，從而提高同學(xué)們的興趣。下面，我們就來看一下如何制作可以判斷答案正確與否的多項(xiàng)選擇題的過程。
1.啟動(dòng)Word，新建一空白文檔，輸入如圖1所示的“計(jì)算機(jī)的軟件系統(tǒng)包括（ ）”并根據(jù)情況設(shè)置好字體、字號(hào)和顏色。
2.依次單擊菜單欄中的“視圖→工具欄→控件工具箱”命令，在彈出的控件工具箱中選中“復(fù)選框”按鈕 ，然后在文檔拖拉出一個(gè)復(fù)選框。
3.在拖拉出的復(fù)選框（checkbox1）上單擊鼠標(biāo)右鍵選擇屬性，打開“屬性”對(duì)話框，將其中“名稱”修改為“duoxt11”，“Caption”后面的字符修改為題目相應(yīng)選項(xiàng)字符（如“系統(tǒng)軟件”），然后再設(shè)置“font”選項(xiàng)設(shè)置合適的字體、字號(hào)等。其他屬性可采用默認(rèn)值。
4.將上面設(shè)置好的復(fù)選框復(fù)制三個(gè)，分別將“名稱”修改為“duoxt12”、“duoxt13”、“duoxt14”，“Caption”屬性分別修改為“應(yīng)用軟件”、“殺毒軟件”和“工具軟件”。
5.選擇“控件工具箱”的“命令按鈕” ，在文檔中添加一個(gè)按鈕，和上面3中的操作一樣將其“名稱”修改為“duopd11”，“caption”屬性修改為“判斷”（也可以修改“font”屬性來設(shè)置字體、字號(hào)等）。然后雙擊該按鈕，進(jìn)入“VisualBasic編輯器”狀態(tài)，將下述代碼輸入到Private Sub Private Sub duopd11_Click()和End Sub代碼中間，輸入完成后，關(guān)閉窗口返回。
If duoxt11.Value = True And duoxt12.Value = True And duoxt13.Value = False And duoxt14.Value = False Then
MsgBox "恭喜你，選擇正確。", vbOKOnly, "結(jié)果"
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 "選對(duì)了一個(gè)，還有一個(gè)，再努力一下就勝利了。", vbOKOnly, "提示"
Else
MsgBox "選擇錯(cuò)誤！還需要繼續(xù)努力�。�", vbOKOnly, "提示"
End If
End If
上述代碼含義是如果選擇第一項(xiàng)和第二項(xiàng)并且第三和第四項(xiàng)不選時(shí)，按下判斷按鈕則彈出“恭喜你，選擇正確”消息框，如果僅僅選擇了第一項(xiàng)或第二項(xiàng)則彈出“選對(duì)了一個(gè)，還有一個(gè)再努力一下就勝利了�！毕⒖颍绻x擇了第三或第四項(xiàng)中的任何一項(xiàng)都會(huì)彈出“選擇錯(cuò)誤！還需要繼續(xù)努力啊！”消息框。
6.將命令按鈕復(fù)制一份，將其“名稱”修改為“duopd12”，“caption”屬性修改為“重選”，雙擊該按鈕，進(jìn)入“VisualBasic編輯器”狀態(tài)，將下述代碼輸入到Private Sub duopd12_Click()和End Sub代碼中間，輸入完成后，關(guān)閉窗口返回。
duoxt11.Value = False
duoxt12.Value = False
duoxt13.Value = False
duoxt14.Value = False
現(xiàn)在單擊“控件工具箱”中的“退出設(shè)計(jì)模式”按鈕 關(guān)閉“控件工具箱”。（可一定要記住啊，否則不會(huì)出現(xiàn)效果的。）
一個(gè)多項(xiàng)選題就做好了，同學(xué)們這樣就可以在做題的過程中隨時(shí)來查看做題的結(jié)果了。
相關(guān)閱讀