word中的vba功能可以使word文件具有互動功能，在學校教學中，教師就可以利用word vba功能在word文件中製作具有互動功能的選擇題。以使用word2003製作雙項選擇題word文件為例，操作步驟如下所述：
第1步，新建乙個空白word文件，輸入選擇題的題目部分，如「一台完整的計算機系統包括（ ）」，然後根據實際情況設定字型、字型大小，如圖1所示。
圖1 輸入選擇題的題目
第2步，在選單欄依次單擊「檢視」→「工具欄」→「控制項工具箱」選單命令，開啟「控制項工具箱」。將游標定位到題目下一行的合適位置，然後在「控制項工具箱」中單擊「核取方塊」按鈕，如圖2所示。
圖2單擊「核取方塊」按鈕
第3步，右鍵單擊新增的核取方塊控制項（checkbox1），在開啟的快捷選單中選擇「屬性」命令，如圖3所示。
圖3 選擇「屬性」命令
第4步，開啟控制項「屬性」對話方塊，將「名稱」修改為「daan1」，並將「caption」屬性後面的字元修改為相應選項（如「a.硬體系統」），如圖4所示。
圖4 「屬性」對話方塊
第5步，在「屬性」對話方塊中雙擊「font」屬性選項，在開啟的「字型」對話方塊中為答案設定字型、字型大小和顏色，其它屬性保持預設設值，如圖5所示。
圖5 「字型」對話方塊
第6步，將剛才新增的核取方塊再複製三個，並分別修改其屬性（如「名稱」分別修改為「daan2」、「daan3」、「daan4」，「caption」屬性分別修改為「b.系統軟體」、「c.軟體系統」、「d.
辦公軟體」），如圖6所示。
圖6 修改核取方塊控制項屬性
第7步，將游標定位到答案下一行的合適位置，然後單擊「控制項工具箱」中的「命令「按鈕，如圖7所示。
圖7 單擊「控制項工具箱」中的「命令「按鈕
第8步，右鍵單擊新新增的命令按鈕，選擇「屬性」命令。在開啟的控制項「屬性」對話方塊中將其「名稱」修改為「panduan1」，「caption」屬性修改為「判斷正誤」，如圖8所示。
圖8 設定屬性
第9步，雙擊剛才新增的命令按鈕，開啟「visual basic編輯器」視窗，將判斷對錯的**輸入到private sub panduan1_click()和end sub**中間。
if daan1.value = true and daan2.value = false and daan3.
value = false and daan4.value = true then
msgbox "選對了，你真棒！", vbokonly, "結果"
else
if daan1.value = true and daan2.value = true and daan3.
value = false and daan4.value = false or daan1.value = true and daan2.
value = false and daan3.value = true and daan4.value = false or daan1.
value = false and daan2.value = true and daan3.value = false and daan4.
value = true or daan1.value = false and daan2.value = false and daan3.
value = true and daan4.value = true then
msgbox "你只選對了乙個，繼續加油！", vbokonly, "提示"
else
msgbox "很遺憾，你選錯了，再思考一下！", vbokonly, "提示"
end if
end if
完成輸入後關閉「visual basic編輯器」視窗，如圖9所示。
圖9 輸入vba**
上述**含義如下：
（1）如果選擇a和d且不選擇b和c，則按下「判斷正誤」彈出訊息框「選對了，你真棒！」；
（2）如果選擇a和b且不選擇c和d，則按下「判斷正誤」彈出訊息框「你只選對了乙個，繼續加油！」；
（3）如果選擇a和c且不選擇b和d，則按下「判斷正誤」彈出訊息框「你只選對了乙個，繼續加油！」；
（4）如果選擇b和d且不選擇a和c，則按下「判斷正誤」彈出訊息框「你只選對了乙個，繼續加油！」；
（5）如果選擇c和d且不選擇a和b，則按下「判斷正誤」彈出訊息框「你只選對了乙個，繼續加油！」；
（6）如果選擇b和c且不選擇a和d，或選擇了三項以上的選項，則按下「判斷正誤」彈出訊息框「很遺憾，你選錯了，再思考一下！」
第10步，再新增乙個按鈕，將其「名稱」修改為「chongxuan1」，「caption」屬性修改為「重新選擇」，如圖***所示。
圖10修改控制項屬性
第11步，雙擊該按鈕入在「visualbasic編輯器」視窗中將下述**輸入到private sub chongxuan1_click()和end sub**中間。
daan1.value = false
daan2.value = false
daan3.value = false
daan4.value = false
完成輸入後關閉「visual basic編輯器」視窗，如圖11所示。
圖11 輸入vba**
第12步，單擊「控制項工具箱」中的「退出設計模式」按鈕，並關閉「控制項工具箱」，如圖12所示。
圖12單擊「退出設計模式」按鈕
該道選擇題執行結果如圖13所示。
圖13執行結果
調查問卷格式和
您好！我們大學生科技創業者協會正在為電信移動固定臺做乙個市場調查。為了更好的了解大慶地區對固定移動臺的了解與需求，完善大慶通訊網，我們特地展開了此次調查活動。希望您在百忙之中抽出一點寶貴的時間，協助我們完成以下這份調查問卷，您的意見對我們很重要。謝謝您的合作！1.您家裡是否使用座機？a.是 b.否 ...
調查問卷格式和
您好！我們大學生科技創業者協會正在為電信移動固定臺做乙個市場調查。為了更好的了解大慶地區對固定移動臺的了解與需求，完善大慶通訊網，我們特地展開了此次調查活動。希望您在百忙之中抽出一點寶貴的時間，協助我們完成以下這份調查問卷，您的意見對我們很重要。謝謝您的合作！1.您家裡是否使用座機？a.是 b.否 ...
調查問卷和信度效度檢驗問卷
留學生教育服務質量調查問卷 中文版 尊敬的先生 女士 您好！這是乙份學術性碩士 的問卷，目的在於了解越南留學生對於廣西高校提供的教育服務質量的滿意程度以及留學感知。本問卷調查採用不記名方式，您所填答的內容資料僅供學術之用，絕不對外公開，因此請您放心並仔細填答每一道題目。非常感謝您熱心的協助與支援。填...