在Word2003中使用VBA制作選擇題

在Word2003中使用VBA制作選擇題:

Word2003中的VBA功能是非常強(qiáng)大的，他具有交互功能，如果你是一位學(xué)校教師，那么完全可以利用WordVBA功能在Word文檔中制作具有交互功能的選擇題?，F(xiàn)在我們就來使用Word2003制作雙項(xiàng)選擇題Word文檔為例，操作步驟如下所述：

第1步，新建一個空白Word文檔，輸入選擇題的題目部分，如“一臺完整的計(jì)算機(jī)系統(tǒng)包括（）”，然后根據(jù)實(shí)際情況設(shè)置字體、字號；

第2步，在word工具欄中看看有沒有“控件工具箱”浮動工具樣，如果沒有，在菜單欄依次單擊“視圖”→“工具欄”→“控件工具箱”菜單命令，打開“控件工具箱”。

然后將光標(biāo)移到題目下一行的合適位置，然后在“控件工具箱”中單擊“復(fù)選框”按鈕，如圖所示：

第3步，右鍵單擊添加的復(fù)選框控件（checkbox1），在打開的快捷菜單中選擇“屬性”命令，如圖所示：

第4步，打開控件“屬性”對話框，將“名稱”修改為“DaAn1”，并將“Caption”屬性后面的字符修改為相應(yīng)選項(xiàng)（如“A.硬件系統(tǒng)”），如圖所示：

第5步，在“屬性”對話框中雙擊“Font”屬性選項(xiàng)，在打開的“字體”對話框中為答案設(shè)置字體、字號和顏色，其它屬性保持默認(rèn)設(shè)值；

第6步，將剛才添加的復(fù)選框再復(fù)制三個，并分別修改其屬性（如“名稱”分別修改為“DaAn2”、“DaAn3”、“DaAn4”，“Caption”屬性分別修改為“B.系統(tǒng)軟件”、“C.軟件系統(tǒng)”、“D.辦公軟件”），得到如圖所示：

第7步，將光標(biāo)定位到答案下一行的合適位置，然后單擊“控件工具箱”中的“命令”按鈕，如圖所示：

第8步，右鍵單擊新添加的命令按鈕，選擇“屬性”命令。在打開的控件“屬性”對話框中將其“名稱”修改為“PanDuan1”，“Caption”屬性修改為“判斷正誤”；

第9步，雙擊剛才添加的命令按鈕，打開“VisualBasic編輯器”窗口，將判斷對錯的代碼輸入到PrivateSubpanduan1_Click()和EndSub代碼中間；

以下是全部代碼：

If DaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3.
Value=FalseAndDaAn4.Value=TrueThen
MsgBox"選對了，你真棒！",vbOKOnly,"結(jié)果"
Else
If DaAn1.Value=TrueAndDaAn2.Value=TrueAndDaAn3.Value=FalseAndDaAn4.
Value=False OrDaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3.Value=
TrueAndDaAn4.Value=FalseOrDaAn1.Value=FalseAndDaAn2.Value=TrueAnd
DaAn3.Value=FalseAndDaAn4.Value=TrueOrDaAn1.Value=FalseAndDaAn2.
Value=FalseAndDaAn3.Value=TrueAndDaAn4.Value=TrueThen
MsgBox"你只選對了一個，繼續(xù)加油！",vbOKOnly,"提示"
Else
MsgBox"很遺憾，你選錯了，再思考一下！",vbOKOnly,"提示"
EndIf
EndIf

完成輸入后關(guān)閉“VisualBasic編輯器”窗口；

上述代碼含義如下：
（1）如果選擇A和D且不選擇B和C，則按下“判斷正誤”彈出消息框“選對了，你真棒！”；
（2）如果選擇A和B且不選擇C和D，則按下“判斷正誤”彈出消息框“你只選對了一個，繼續(xù)加油！”；
（3）如果選擇A和C且不選擇B和D，則按下“判斷正誤”彈出消息框“你只選對了一個，繼續(xù)加油！”；
（4）如果選擇B和D且不選擇A和C，則按下“判斷正誤”彈出消息框“你只選對了一個，繼續(xù)加油！”；
（5）如果選擇C和D且不選擇A和B，則按下“判斷正誤”彈出消息框“你只選對了一個，繼續(xù)加油！”；
（6）如果選擇B和C且不選擇A和D，或選擇了三項(xiàng)以上的選項(xiàng)，則按下“判斷正誤”彈出消息框“很遺憾，你選錯了，再思考一下！”

第10步，再添加一個按鈕，將其“名稱”修改為“ChongXuan1”，“Caption”屬性修改為“重新選擇；

第11步，雙擊該按鈕入在“VisualBasic編輯器”窗口中將下述代碼輸入到PrivateSubChongXuan1_Click()和EndSub代碼中間。

以下是全部代碼：

DaAn1.Value=False

DaAn2.Value=False

DaAn3.Value=False

DaAn4.Value=False

完成輸入后關(guān)閉“VisualBasic編輯器”窗口，如圖11所示；

第12步，單擊“控件工具箱”中的“退出設(shè)計(jì)模式”按鈕，并關(guān)閉“控件工具箱”；

將宏安全性的安全級別為“低”，該道選擇題完成。