4.2信不信，只用兩句程式碼做出的互動式單項選擇題

　　 用vba在ppt中製作單項選擇題,具有良好的互動性，避免答案出現必須依次出現，可以有學生決定去做哪個題目、哪部分，加大了課堂的知識容量和自由度，人機互動更加方便，師生互動更加有序，因此在教學中具有一定的應用價值。

　　　複雜的vba程式碼讓很多人望而卻步，這是一個事實。其實可以用非常簡單一兩句程式碼就可以做出很好的互動式單項選擇題。

　　　只要有兩句就能完成單項選擇題的互動：

　　　MsgBox ("對不起，答錯了!")

　　　MsgBox ("你真棒，答對了!")

　　右擊任一選項卡，單擊“自定義功能區”命令，

　　在開啟的對話方塊中勾選“開發工具”選項，單擊“確定”命令，

　　　 單擊出現的“開發工具”選項卡，就可以看見“控制元件”組的各種控制元件。

　　　現舉例製作互動性單項選擇題過程如下：

　　　 　　　1．中國獲得奧運會金牌第一人是：

　　　A．李寧

　　　B．許海峰

　　　C．吳小璇

　　　D．欒菊傑
　 首先，用插入文字框的方法輸入題目的題幹部份“1．中國獲得奧運會金牌第一人是：”，設定為楷體40 黑，再用控制元件工具箱中的單選框做好四個選項。先做好第一個以後，複製得到其它三個再修改。

　　　單擊選項按鈕，然後在幻燈片上左擊，出現OptionButton1項，右鍵單擊OptionButton1，在彈出選單中選擇“屬性”，修改屬性中的“Caption”為“A．李寧”，修改屬性中的“font”為楷體、一號，“Enable”為“ture” ，“ForeColor”為&H000000FF&，紅色，

　　　右鍵單擊OptionButton1，在彈出選單中選擇“檢視程式碼”，在 “Private Sub OptionButton1_Click()”和“End Sub”兩段程式碼中間插入：

　　　Private Sub OptionButton1_Click()

　　　MsgBox ("對不起，答錯了!")

　　　End Sub

　　　右擊單選項，在彈出選單中選擇“設定控制元件格式”，在“設定控制元件格式”調整選項尺寸為高度：1.5，寬度：18 ，

然後用複製出另外三個，分別修改它們的位置，在彈出選單中選擇“位置”，分別設定為（4，6）（4，9）（4，12）（4，15）,注（左上角，左上角）；

　　　

　　　然後分別修改複製出另外三個“屬性”和“察看程式碼”中的程式碼。

　　　第二個OptionButton2屬性中的“Caption”修改為“B．許海峰”，右鍵單擊OptionButton2，在彈出選單中選擇“檢視程式碼”，在開啟的視窗中出現“Private Sub OptionButton2_Click()”和“End Sub”兩段程式碼中間插入：

　　　Private Sub OptionButton2_Click()
　　　MsgBox ("你真棒，答對了!")
　　　End Sub

　　　第三個OptionButton3屬性中的“Caption”修改為“C．吳小璇”，右鍵單擊OptionButton3，在彈出選單中選擇“檢視程式碼”，在開啟的視窗中出現“Private Sub OptionButton3_Click()”和“End Sub”兩段程式碼中間插入：

　　　Private Sub OptionButton3_Click()

　　　MsgBox ("對不起，答錯了!")

　　　End Sub

　　　第四個OptionButton4屬性中的“Caption”修改為“D．欒菊傑”，右鍵單擊OptionButton4，在彈出選單中選擇“檢視程式碼”，在開啟的視窗中出現“Private Sub OptionButton4_Click()”和“End Sub”兩段程式碼中間插入：

　　　Private Sub OptionButton4_Click()

　　　MsgBox ("對不起，答錯了!")

　　　End Sub

　　　至於四個選項哪個對，就輸入：MsgBox ("你真棒，答對了!")，其餘的輸入：MsgBox ("對不起，答錯了!")。

　　　再複製出若干張幻燈片，只要修改一下題乾和每一項中的屬性中的“Caption”和四個選項中的程式碼就可以了。

　　　只用一句程式碼就可以做出如此互動性好的ppt，很簡單吧？vba是一種很好的製作ppt的方法，只要你有興趣，有毅力去學習，你會開闢出一個全新的ppt製作新天地！