利用Word VBA製作選擇題

2021-06-01 08:31:32 字數 2915 閱讀 2128

word中的vba功能可以使word文件具有互動功能,在學校教學中,教師就可以利用word vba功能在word文件中製作具有互動功能的選擇題。以使用word2003製作雙項選擇題word文件為例,操作步驟如下所述:

第 1步,新建乙個空白word文件,輸入選擇題的題目部分,如「一台完整的計算機系統包括( )」,然後根據實際情況設定字型、字型大小,如圖2008070701所示。

圖 2008070701 輸入選擇題的題目

第 2步,在選單欄依次單擊「檢視」→「工具欄」→「控制項工具箱」選單命令,開啟「控制項工具箱」。將游標定位到題目下一行的合適位置,然後在「控制項工具箱」中單擊「核取方塊」按鈕,如圖2008070702所示。

圖 2008070702 單擊「核取方塊」按鈕

第 3步,右鍵單擊新增的核取方塊控制項(checkbox1),在開啟的快捷選單中選擇「屬性」命令,如圖2008070703所示。

圖 2008070703 選擇「屬性」命令

第 4步,開啟控制項「屬性」對話方塊,將「名稱」修改為「daan1」,並將「caption」屬性後面的字元修改為相應選項(如「a.硬體系統」),如圖2008070704所示。

圖 2008070704 「屬性」對話方塊

第 5步,在「屬性」對話方塊中雙擊「font」屬性選項,在開啟的「字型」對話方塊中為答案設定字型、字型大小和顏色,其它屬性保持預設設值,如圖2008070705所示。

圖 2008070705 「字型」對話方塊

第 6步,將剛才新增的核取方塊再複製三個,並分別修改其屬性(如「名稱」分別修改為「daan2」、「daan3」、「daan4」,「caption」屬性分別修改為「b.系統軟體」、「c.軟體系統」、「d.辦公軟體」),如圖2008070706所示。

圖 2008070706 修改核取方塊控制項屬性

第 7步,將游標定位到答案下一行的合適位置,然後單擊「控制項工具箱」中的「命令「按鈕,如圖2008070707所示。

圖 2008070707 單擊「控制項工具箱」中的「命令「按鈕

第 8步,右鍵單擊新新增的命令按鈕,選擇「屬性」命令。在開啟的控制項「屬性」對話方塊中將其「名稱」修改為「panduan1」,「caption」屬性修改為「判斷正誤」,如圖2008070708所示。

圖 2008070708 設定屬性

第 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編輯器」視窗,如圖2008070709所示。

圖 2008070709 輸入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」屬性修改為「重新選擇」,如圖2008070710所示。

圖 2008070710 修改控制項屬性

第 11步,雙擊該按鈕入在「visualbasic編輯器」視窗中將下述**輸入到private sub chongxuan1_click()和end sub**中間。

daan1.value = false

daan2.value = false

daan3.value = false

daan4.value = false

完成輸入後關閉

「visual basic編輯器」視窗,如圖2008070711所示。

圖 2008070711  輸入vba**

第 12步,單擊「控制項工具箱」中的「退出設計模式」按鈕,並關閉「控制項工具箱」,如圖2008070712所示。

圖 2008070712 單擊「退出設計模式」按鈕

該道選擇題執行結果如圖

2008070713所示。

圖2008070713 執行結果

以上內容**:

mysql選擇題 MySQL 選擇題(三)

單選題 1.在正規表示式中,匹配任意乙個字元的符號是 a b c d 正確答案 a 2.條件年齡between 15 and 35表示年齡在15至35之間,且 a 不包括15歲和35歲 b 包括15歲但不包括35歲 c 包括15歲和35歲 d 包括35歲但不包括15歲 正確答案 c 3.mysql安...

shell題庫選擇題 Linux選擇題題庫

1 下列哪個選項不是linux所支援的?a 多使用者 b 超程序 c 可移植 d 多程序 2 linux就是所謂的 free softwrae 這個 free 的含義是什麼?a linux不需要付費 b linux發行商不能向使用者收費 c linux可自由修改和發布 d 只有linux的作者才能向...

選擇題 網路

1.下面關於synflood攻擊的說法,錯誤的是 b a 服務端由於連線佇列被佔滿而不能對外服務 b 不但能攻擊tcp服務,還可以攻擊udp服務 c 大量連線處於syn recv狀態 d 使用硬體防火牆可以一定程度上抵禦攻擊 解釋 synflood攻擊一種利用tcp協議缺陷,傳送大量偽造的tcp連線...