PPT制作自動交互問答課件

　　教師在每節課結束前，習慣留幾道習題讓學生們自行練習，以鞏固當堂課所學的知識。如果用PowerPoint來做相應的演示文稿，可以利用其VBA功能，讓這些練習具有交互功能。

　　如圖1，這是一個答題界面示例，可以判斷答案正確性的多項選擇題，下面我們來看看具體的實現過程。

　　圖1

　　1.啟動PowerPoint2003(其他版本操作相似)，打開相應的課件演示文稿，定位到制作練習題幻燈片中，輸入題干字符。

　　2.執行“視圖→工具欄→控件工具箱”命令，展開“控件工具箱”，點擊一下其中的“復選框”按鈕，然後在幻燈片中拖拉出一個復選框來。

　　圖2

　　3.選中上述復選框(CheckBox1)，單擊“控件工具箱”上的“屬性”按鈕，打開“屬性”對話框，切換到“按分類序”標簽下，展開“外觀”選項，將其中的“Caption”後面的字符修改為題目相應的選項字符(如“水”)，再展開“字體”選項，點擊右側的“省略號”按鈕，打開“字體”對話框，設置好字體、字號等。

　　小貼士：控件的其他屬性可以直接采用默認的屬性。

　　4.將上述復制框復制三份(根據備選項的多少確定復制數量)，分別將“Caption”屬性修改為題目其他選項字符(如“純鹼、熟石灰、干冰”)。

　　5.再用“控件工具箱”的“命令按鈕”在幻燈片上添加一個按鈕，並將其“Caption”屬性修改為“判斷”(或其他字符)。再雙擊該按鈕，進入“Visual Basic編輯器”狀態(如圖4)，將下述代碼輸入到出現的一組代碼中間，輸入完成後，關閉窗口返回。

　　If CheckBox1.Value = True And CheckBox4.Value = True Then

　　MsgBox "選擇正確。", vbOKOnly, "結果"

　　Else

　　If CheckBox1.Value = True Or CheckBox4.Value = True Then

　　MsgBox “選對了一個。”, vbOKOnly, “提示”

　　Else

　　MsgBox "選擇錯誤!正確答案是“水和干冰”!", vbOKOnly, "提示"

　　End If

　　End If

　　小貼士：上述代碼的含義是，如果(If)選擇了第1和第4項(CheckBox1.Value = True And CheckBox4.Value = True)，按下“判斷”按鈕，則彈出如圖3所示界面和消息(MsgBox)框(選擇錯誤!正確答案是“水和干冰”!——消息內容;vbOKOnly—— 消息框中僅顯示出一個“確定”按鈕;提示——消息框標題)。

　　如果只選擇了第1項或第4項，則會彈出如圖所示的消息框;

　　圖3

　　其他選擇均會彈出如圖所示的消息框。

　　圖4

　　6.將上述命令按鈕復制一份，將“Caption”屬性修改為“重選”)，再雙擊該按鈕，將下述代碼輸入到出現的一組代碼中間，輸入完成後，關閉窗口返回。

　　CheckBox1.Value = False

　　CheckBox2.Value = False

　　CheckBox3.Value = False

　　CheckBox4.Value = False

　　7.在演示過程中，學生進行相應的選擇後，按下“判斷”按鈕，即可作出相應判斷;如果認為選擇有誤，按一下“重選”按鈕，即可重新選擇。