2012/7/31 16:10:47作者:佚名來源:網絡
在Word2003中使用VBA制作選擇題:
Word2003中的VBA功能是非常強大的,他具有交互功能,如果你是一位學校教師,那么完全可以利用WordVBA功能在Word文檔中制作具有交互功能的選擇題?,F在我們就來使用Word2003制作雙項選擇題Word文檔為例,操作步驟如下所述:
第1步,新建一個空白Word文檔,輸入選擇題的題目部分,如“一臺完整的計算機系統包括()”,然后根據實際情況設置字體、字號;
第2步,在word工具欄中看看有沒有“控件工具箱”浮動工具樣,如果沒有,在菜單欄依次單擊“視圖”→“工具欄”→“控件工具箱”菜單命令,打開“控件工具箱”。
然后將光標移到題目下一行的合適位置,然后在“控件工具箱”中單擊“復選框”按鈕,如圖所示:
第3步,右鍵單擊添加的復選框控件(checkbox1),在打開的快捷菜單中選擇“屬性”命令,如圖所示:
第4步,打開控件“屬性”對話框,將“名稱”修改為“DaAn1”,并將“Caption”屬性后面的字符修改為相應選項(如“A.硬件系統”),如圖所示:
第5步,在“屬性”對話框中雙擊“Font”屬性選項,在打開的“字體”對話框中為答案設置字體、字號和顏色,其它屬性保持默認設值;
第6步,將剛才添加的復選框再復制三個,并分別修改其屬性(如“名稱”分別修改為“DaAn2”、“DaAn3”、“DaAn4”,“Caption”屬性分別修改為“B.系統軟件”、“C.軟件系統”、“D.辦公軟件”),得到如圖所示:
第7步,將光標定位到答案下一行的合適位置,然后單擊“控件工具箱”中的“命令”按鈕,如圖所示:
第8步,右鍵單擊新添加的命令按鈕,選擇“屬性”命令。在打開的控件“屬性”對話框中將其“名稱”修改為“PanDuan1”,“Caption”屬性修改為“判斷正誤”;
第9步,雙擊剛才添加的命令按鈕,打開“VisualBasic編輯器”窗口,將判斷對錯的代碼輸入到PrivateSubpanduan1_Click()和EndSub代碼中間;
以下是全部代碼:
If DaAn1.Value=TrueAndDaAn2.Value=FalseAndDaAn3. Value=FalseAndDaAn4.Value=TrueThen MsgBox"選對了,你真棒!",vbOKOnly,"結果" 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"你只選對了一個,繼續加油!",vbOKOnly,"提示" Else MsgBox"很遺憾,你選錯了,再思考一下!",vbOKOnly,"提示" EndIf EndIf
完成輸入后關閉“VisualBasic編輯器”窗口;
上述代碼含義如下:
(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”屬性修改為“重新選擇;
第11步,雙擊該按鈕入在“VisualBasic編輯器”窗口中將下述代碼輸入到PrivateSubChongXuan1_Click()和EndSub代碼中間。
以下是全部代碼:
DaAn1.Value=False DaAn2.Value=False DaAn3.Value=False DaAn4.Value=False
完成輸入后關閉“VisualBasic編輯器”窗口,如圖11所示;
第12步,單擊“控件工具箱”中的“退出設計模式”按鈕,并關閉“控件工具箱”;
將宏安全性的安全級別為“低”,該道選擇題完成。
標簽: VBA 宏
相關文章
ip雷達 v5.0.2綠色版
詳情WinSCPv5.15.1綠色中文版
詳情filezilla client v5.5
詳情wireshark中文版 v3.4.9
詳情Boson Netsimv10.8破解版
詳情風行播放器 v3.0.6.106
詳情愛奇藝客戶端 v10.1.0.6636官方版
詳情搜狐影音 v7.0.19.0官方版
詳情樂視視頻 v7.3.2.192
詳情華數tv客戶端PC版 v1.1.2.0
詳情cbox央視影音 v5.1.2.1經典版
詳情軟媒收音機(魔方) v1.13
詳情傾聽網絡收音機 v3.0.0.0
詳情魅影流聲全球網絡收音機 v1.0.0.1
詳情酷狗電臺 v8.2.75
詳情暴龍網絡收音機 v2.5.1
詳情克莉2v1.0中文版
詳情冬日計劃v1.2中文版
詳情刺客信條英靈殿v1.0吾愛破解版
詳情刺客信條英靈殿終極v1.0免安裝破解版
詳情動物森友會v1.10.0最新破解版
詳情哈迪斯殺出地獄v1.37中文破解版
詳情嗜血印中文豪華版v1.0豪華版破解版 附游戲攻略秘籍
詳情城市戰斗v1.0中文破解版
詳情尼爾人工生命v1.0steam免費破解版
詳情尼爾人工生命升級版v1.0PC破解版
詳情尼爾人工生命升級版v1.2247中文破解版
詳情層層恐懼2中文破解版v1.0綠色免安裝版
詳情往日不再v1.0 steam破解版
詳情往日不再v1.0pc破解版
詳情救贖之路v1.0中文破解版
詳情斯蓋爾女仆v1.0中文破解版
詳情新盜墓筆記官方版v1.215.589730
詳情無盡的拉格朗日無限金幣鉆石版v1.2.267172破解版
詳情明日之后無限小太陽版v1.0.246安卓版
詳情雙生幻想vivo版v6.6.83安卓版
詳情劍網1歸來內購免費版v1.1.116安卓版
詳情模擬城市我是市長國際版v0.69.21342.22832安卓版
詳情迷你世界999999迷你幣版v1.20.5破解版
詳情王牌戰爭無限內購版v9.7安卓版
詳情云上城之歌不氪金版v10.16安卓版
詳情王鏟鏟的致富之路破解版v1.1.8安卓版
詳情創造與魔法無限點券版v1.0.0505安卓版
詳情狩獵使命九游版v1.6.6.000
詳情魔鏡物語變態版v2.1.4無限金幣版
詳情黑月手游免費版v2.2.0安卓版
詳情曙光英雄v1.0.12.0.20無限鉆石版
詳情原始傳奇無限元寶版v1.6.806內購破解版
詳情