PowerPoint制作自動交互問答課件_PPT實例教程

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

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

圖1

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

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

圖2

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

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

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

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

　　If CheckBox1.Value = True And CheckBox4.Value = True Then
　　MsgBox "選擇正確。", vbOKOnly, "結(jié)果"
　　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）框（選擇錯誤！正確答案是“水和干冰”！——消息內(nèi)容；vbOKOnly——消息框中僅顯示出一個“確定”按鈕；提示——消息框標題）。

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

圖3

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

圖4

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

　　CheckBox1.Value = False
　　CheckBox2.Value = False
　　CheckBox3.Value = False
　　CheckBox4.Value = False

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