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

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

圖1

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

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

圖2

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

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

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

　　5．再用“控件工具箱”的“命令按鈕”在幻燈片上添加一個(gè)按鈕，并將其“Caption”屬性修改為“判斷”（或其他字符）。再雙擊該按鈕，進(jìn)入“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 “選對了一個(gè)�！�, vbOKOnly, “提示”
　　Else
　　MsgBox "選擇錯誤！正確答案是“水和干冰”！", vbOKOnly, "提示"
　　End If
　　End If

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

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

圖3

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

圖4

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

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

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