PPT用VBA制作簡單的選擇題的方法及源碼

1、ppt用vba制作簡單的選擇題的方法及源碼powerpoint中的vba可以實現(xiàn)很多復雜的交互，但很多老師面對vba編程，都會覺得無從下手。所以本期我們?yōu)榇蠹野才帕艘粋€關(guān)于powerpoint中vba的小專題，以后在課件中實現(xiàn)交互就不會那么費勁了。vba基礎說到vba編程，就不得不提到控件工具箱，我們需要利用其中的控件搭建需要的環(huán)境。1 顯示控件工具箱在powerpoint中選擇菜單“視圖/工具欄/控件工具箱”。2 控件工具箱（如圖1）中常用按鈕的介紹（1）復選框（checkbox）：可以選擇多個選項，常用來設計多選題；（2）文本框（textbox）：可以輸入文本，常用來設計填空題；（3）命令

2、按鈕（commandbutton）：用來確定選擇或輸入，也可設計超級鏈接；（4）單選框（optionbutton）：只能選中一個選項，常用來設計單選題或判斷題；（5）標簽（label）：用來顯示文字信息。3 插入控件的方法單擊控件工具箱上的工具按鈕，然后在幻燈片中拖動到適當大小即可。4 進入vba的方法雙擊幻燈片中的控件或用菜單命令“工具/宏/visual basic編輯器”即可進入vba編程狀態(tài)。5 控件的主要屬性及設置方法進入vba后，需要在“屬性”窗口中對控件的屬性進行設置。如果沒有出現(xiàn)“屬性”窗口，按f4鍵即可調(diào)出該窗口。下面我們就不同的控件，來說明常用屬性的設置方法。（1）復選框au

3、tosize：有兩個值，true表示根據(jù)字的多少調(diào)整復選框的大小，false表示復選框為固定大??；backcolor：設置復選框的背景顏色，單擊該屬性框出現(xiàn)下拉按鈕，選擇“調(diào)色板”選項卡后選擇顏色；caption：控件的名稱，把默認值刪除再重新輸入新名稱；font：設置字體、字號及字形，單擊該屬性框出現(xiàn)按鈕，單擊該按鈕出現(xiàn)字體對話框，再在對話框中設置；forecolor：設置字的顏色，設置方法同backcolor；height：復選框的高度，直接輸入數(shù)字即可；width：復選框的寬度，直接輸入數(shù)字即可；value：復選框的值，true為選中，false則相反。（2）文本框autosize、ba

4、ckcolor、font、forecolor、height、width等屬性的設置方法同復選框；value：文本框的值，用來保存輸入的文本；textalign：設置文本對齊方式。（3）單選框?qū)傩栽O置同復選框。（4）標簽除value外，其他同復選框。（5）命令按鈕同標簽。6 消息框msgbox的功能我們常用消息框顯示一些交互的信息，如圖2所示的消息框用下面的語句可實現(xiàn)：msgbox(這是一個例題,vbyesno,示例)多選題的制作1. 題目的設計同單選題2. 選項：用復選框（checkbox)，其他設置同單選題。3. 查看答案命令按鈕：因為是多選題，答案有多個，所以要書寫多個條件，條件之間用an

5、d連接，表示同時滿足這幾個條件，例如第一、三、五的選項是正確的，則需要輸入如下語句：if checkbox1.value=true and checkbox3.value=true and checkbox5.value=true then給出正確的提示信息同單選題else給出錯誤的提示信息同單選題end if填空題的制作1. 題目的設置同單選題，填空的地方用文本框。2. 判斷正誤：因為是填空題，所填答案是文本，所以條件書寫為：if textbox1.value=正確的文本 then 給出正確的提示信息同單選題else給出錯誤的提示信息同單選題end if注意：正確的文本一定要用半角雙引號括起

6、來，如幾個空一起判斷，方法同多選題。3. 重新填空命令按鈕：需要完成如下語句的設置：private sub commandbutton2_click()textbox1.value = 請雙擊后填入你的答案！end subprivate sub textbox1_dblclick(byval cancel as msforms.returnboolean)textbox1.value = end sub單選題的制作例如我們要設計如圖1所示的選擇題。1 題目可用文本框，也可用標簽。如果用文本框，直接輸入文本即可。如果用標簽，插入后雙擊該標簽啟動vba，修改caption屬性為“5x-15=0的解

7、是：”，再根據(jù)需要修改其他屬性（如顏色等）。2 選項插入一單選框，修改其caption屬性為“0”，其他屬性可自行修改。其他的單選項可復制制作好的單選框，然后再修改它們的caption屬性。3 查看答案命令按鈕在此使用命令按鈕，我們可根據(jù)單選框的value屬性的值來判斷答案，如正確選項（單選框）的value的值為true，則為該題選擇正確，否則為選擇錯誤，我們還可根據(jù)選擇正誤來給出信息，有兩種方法。（1）方法一用msgbox（），如果選擇正確，顯示信息“very good!請繼續(xù)！”，錯誤則顯示“sorry,你選錯了！正確答案是3，請繼續(xù)努力。”操作步驟：雙擊單選框進入vba，在編輯窗口中完成

8、以下操作。a. 在編輯窗口中找到如下兩條語句：private sub optionbutton3_click()end sub然后在上面這兩條語句中間插入以下語句：if optionbutton3.value=true then ex=msgbox(very good!請繼續(xù)努力。,vbokonly)b. 同理，找到如下兩條語句：private sub optionbutton1_click()end sub在這兩條語句中間插入語句：if optionbutton1.value=true then ex=msgbox（正確答案是3 ，請繼續(xù)努力。,vbokonly）c. 找到如下兩條語句pri

9、vate sub optionbutton2_click()end sub在這兩條語句中間插入語句if optionbutton2.value=true then ex=msgbox（正確答案是 3，請繼續(xù)努力。,vbokonly）說明：ex為自定義變量（2）方法二在幻燈片合適的地方插入一標簽，修改其caption屬性為空，其他設置同方法一，只要把正確選項中的“then”后的語名改為“l(fā)abel2.caption=very good!請繼續(xù)！”，錯誤選項的改為“l(fā)abel2.caption=正確答案是3 ，請繼續(xù)努力?！奔纯伞? 重新選擇命令按鈕在幻燈片適當?shù)牡胤讲迦胍幻畎粹o，修改其capt

10、ion屬性為“重新選擇”，在編輯窗口中的private sub commandbutton1_click()和end sub語句間插入：optionbutton1.value = falseoptionbutton2.value = falseoptionbutton3.value = falselabel2.caption =如判斷正誤用的是方法一，此語句不要）5 下一題命令按鈕在幻燈片適當?shù)胤讲迦胍幻畎粹o，修改其caption屬性為“下一題”，在編輯窗口中的private sub commandbutton1_click()和end sub語句間插入if msgbox(是否繼續(xù), vbyesno + vbquestion, “下一題”)=vbyes thenwith slideshowwindows(1).view.gotoslide 2end with（2為第2張幻燈片，此語句表示轉(zhuǎn)到第2張幻燈片）end if如果要根據(jù)條件的不同轉(zhuǎn)到不同的幻燈片，可用下面語句：if 條件thenwith slideshowwindows(1).view.gotoslide 2end withend if說明：條件可以是caption屬性或value屬性，書寫方法為：控件名稱（在vba中的名稱）.屬性=（value屬性為true或fa