用Powerpoint 2007可以方便迅速地做出演示型課件。但上課是需要交互的，即使是簡單的單項選擇題或者是非判斷題也應該要根據學生們的選擇在課件中做出相應的反應的。下面我們用PowerPoint 2007制作簡單的交互式練習題。

　　一、用到的控件屬性

　　先點擊PowerPoint左上角“Office選項”按鈕，在彈出的菜單中點擊右下角“PowerPoint選項”按鈕，在打開的對話框中選中“在功能區顯示“開發工具”選項卡”復選項。完成后就可以在功能區添加“開發工具”選項卡了。

　　點擊“開發工具”選項卡，“控件”功能組中相關按鈕就是我們要用的主要控件了，如圖1所示。

　　以單選框為例，點擊該單選框按鈕，然后在幻燈片上單擊，就可以產生一個單選項。選中它，點擊右鍵，在彈出菜單中選擇“屬性”命令，或者點擊“開發工具”選項卡“控件”功能組中“屬性”按鈕，可以打開“屬性”對話框。在其中的“Caption”輸入框中輸入我們所需要的內容，就可以做出適合我們的單選項了。

　　單擊“BackStyle”項目，然后在右側的下拉列表中選擇“0-fmBackStyleTransparent”，可以使做出的單選項背景透明。點擊“Font”輸入框，然后單擊出現的按鈕，可以設置字體、字號等格式。點擊“Forecolor”輸入框，則可以設置顏色。如圖2所示。

　　其它幾個控件“屬性”設置基本與此類似，不再羅嗦。

　　二、單項選擇題

　　題目的題干部份可以用插入文本框的方法輸入。然后用單選框做好四個選項?？梢栽谧龊靡粋€以后，復制得到其它三個。只需要修改屬性中的“Caption”即可。完成后，按住“Shift”鍵依次選中它們，然后點擊功能區“開始”選項卡“繪圖”功能組中“排列”按鈕下的小三角形，在彈出的菜單中選擇相應命令將它們對齊并分布均勻，如圖3所示。

　　現在我們選中代表正確答案的那個單選項“B:矛盾分析的方法”，點擊右鍵，在彈出菜單中選擇“查看代碼”命令，在打開的窗口中找到“PRivate Sub OptionButton2_Click()”和“End Sub”兩段代碼。在這兩段代碼中間插入代碼：

　　MsgBox ("恭喜您，答對了!")

　　OptionButton1.Value = False And OptionButton3.Value = False And OptionButton4.Value = False

　　關閉窗口，然后運行一下幻燈片，點擊選項B試試，結果不錯吧?如圖4所示。

　　代碼的第一句是設置提示框及提示信息的。而第二句代碼則是在單擊B選項后使其它各選項恢復到未選中狀態。“OptionButton*”(*為1、2、3、4)分別表示我們制作出的四個單選項。它是以單選項制作順序排列的。在“屬性”對話框的“名稱”處可以查到它。

　　我們可以照著葫蘆畫瓢，給其它的三個選項也設置上類似的提示框。要注意提示信息及第二句代碼中相應數字的調整。

　　三、是非判斷題

　　是非判斷題可以看成只有兩個選項的單項選擇題。所以，其做法與單項選擇題是一樣的。只是在最后添加的代碼稍加修改即可。

　　四、多項選擇題

　　多選題需要用到復選框。假定有四個選項，其中只有A、B、D三項全選才為正確，多選或少選均為錯誤。

　　用前面的方法插入四個復選框，調整好位置。再插入一個命令按鈕，打開“屬性”對話框，將“Caption”值設為“答案”。選中“答案”按鈕，在右鍵菜單中選擇“查看代碼”命令，打開代碼編輯窗口。在窗口中找到如下兩句代碼：

　　Private Sub CommandButton1_Click()

　　End Sub

　　在這兩句代碼中間插入以下代碼：

　　If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True And CheckBox3.Value = False Then

　　MsgBox "厲害，答對了!", vbOKOnly, "多項選擇題"

　　Else

　　MsgBox "不好意思，您做錯了。再仔細想想?", vbOKOnly, "多項選擇題"

　　CheckBox1.Value = False

　　CheckBox2.Value = False

　　CheckBox3.Value = False

　　CheckBox4.Value = False

　　End If

　　如圖5所示。放映幻燈片試試，如果出錯，呵呵，那就如圖6所示效果，彈出一提示框進行提示。

　　仔細讀一下代碼不難發現，其實是做了一個判斷：如果第1、2、4個復選框均為選中狀態的話，就彈出一個表示答對的提示框，否則就彈出一個答錯的提示框，并將所有復選框的選中狀態消除，以便再次選擇。

　　五、填空題

　　先做好題目，制作一條短橫線表示填空區。點擊“開發工具”選項卡中的“文本框”控件，然后拖出一個大小合適的文本框。調整其位置至合適。仍然打開其“屬性”對話框，設置其相關的屬性，比如字體格式等。這與前面的介紹基本一致，可參照操作。

　　選中做好的文本框，打開代碼編輯窗口，還是先找到這兩句代碼：

　　Private Sub TextBox1_Change()

　　End Sub

　　在兩句中間插入如下代碼：

　　If TextBox1.Value = "電腦" Then

　　MsgBox "不錯，你填對了!", vbOKOnly, "填空題"

　　Else

　　MsgBox "不對吧?再想想!", vbOKOnly, "填空題"

　　TextBox1.Text = ""

　　End If

　　其中“電腦”是正確的答案。如果在文本框中填入了“電腦”，那么就會彈出正確的提示，反之會彈出錯誤提示并清除已填寫內容。這就是這段代碼的含義。

　　放映一下試試，是不是可以填入答案并做出相應的反饋啊?效果如圖7所示。

　　好了，先這么多吧。好好利用控件和VBA代碼，可以完成一些看起來不那么容易完成的事情呢!