PowerPoint制作自動交互問答課件[圖]

http://www.enorth.com.cn　 2005-07-09 10:17

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

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

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

　　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項，則會彈出如圖所示的消息框；

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

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

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

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

編輯：趙海濤

[進入IT論壇]

請您文明上網、理性發言並遵守相關規定，在注冊後發表評論。

只有北方網注冊用戶可以發表評論......

　北方網精彩內容推薦

【關閉窗口】

| 北方網最新新聞排行 | IT浪潮新聞排行榜 |

無標題文檔

天津民生資訊
天氣交通	天津福彩	每月影訊	二手市場
空氣質量	天津股票	廣播節目	二手房源
失物招領	股市大擂臺	天視節目	每日房價

	熱點專題
	北京奧運聖火傳遞和諧之旅	迎奧運講文明樹新風
	解放思想乾事創業科學發展	同在一方熱土共建美好家園
	2008天津夏季達沃斯論壇	《今日股市觀察》視頻
	北方網網絡相聲頻道在線收聽	2008高考招生簡章復習衝刺
	天津自然博物館館藏精品展示	2008年天津中考問題解答
	帶你了解08春夏服飾流行趨勢	完美塑身舞動肚皮舞(視頻)
	C-NCAP碰撞試驗—雪佛蘭景程	特殊時期善待自己孕期檢查
	熱點新聞排行財經體育娛樂	汽車 IT 時尚健康教育