用PPT控件VBA制作課件練習題的教學

周體強

摘要：教學中引導學生用PPT控件VBA制作課件練習題，能提高課件交互性，進而提高教學效果。

關鍵詞：PPT；課件；控件VBA；教學

PowerPoint是一個廣泛應用于多媒體課件制作的軟件，具有交互性的練習題制作，除了單選題能用動畫觸發器制作，其他題型只能用控件VBA來制作，但在PPT中它是一個難點，在教學中如何使學生更好理解和掌握此方法，下面談談一些做法。

1步步引導說明使用條件

⑴要添加控件，就要顯示控件選項卡，即顯示“開發工具”選項卡。方法：選擇“文件→選項→自定義功能區→勾選‘開發工具選項→確定”。

⑵打開使用了控件VBA的PPT文件，演示用默認保存PPTX格式，軟件會提示：“以下功能不能保存在未啟用宏的演示文稿中.Visual Basic for Applications（VBA）項目，若要使保存的文件具有這些功能，請單擊“否”，返回“另存為”對話框，然后在“文件類型”下拉框中選擇一種啟用宏的文件類型。是否繼續將此文件保存為未啟用宏的演示文稿？”，先選擇“是”，再次打開演示文稿，播放可見VBA功能失效，查看VBA代碼消失，說明使用控件VBA，要保存為“啟用宏的演示文稿”格式。

⑶ 打開保存“啟用宏的演示文稿”格式演示文稿，會顯示“安全警告：部分活動內容已被禁用”并顯示“啟用內容”按鈕。如果不啟用，運行時會再次提示啟用宏，不啟用則VBA功能失效，單擊“啟用內容”VBA才能起作用。引導得出選擇“開發工具/宏安全性”→選“啟用所有的宏”，則不會再提示。

2類比法教學練習題的制作

⑴ 先用文本框輸入題目和答案（A…、B…、C…、D…），用空格調整放置位置。

⑵ 首先單擊選擇控件，在相應位置（答案A或填空處）拖動鼠標繪制控件（選項按鈕、復選框，填空處繪制文本框），合適位置繪制一個命令按鈕。介紹相應控件功能：

文本框（Text Box）：可輸入文本填空，用于設計填空題。

選項按鈕（Option Button）：一組中只能選中其中一個，用于制作單項選擇題或判斷題。

復選框（Check Box）：是一個選擇控件，用于多項選擇題的制作。

命令按鈕（Command Buton）：用于制作按鈕，點擊執行代碼給出判斷對錯。

調整控件大小到合適（選項按鈕、復選框剛好顯示形狀或右擊選“設置控件格式”，高寬均為0.4厘米，文本框按字數），其余三個答案前控件，與A前相同，故用復制方法：選中已調整好的選項按鈕、復選框，按住Ctrl鍵不放，用鼠標按B、C、D次序拖放到另3個答案前相應位置。

要改變控件外觀，如填空和命令按鈕，右擊選屬性，打開“屬性”對話框，介紹設置屬性。

Caption （單擊、輸入修改名稱）設置對象名稱，如命令按鈕名稱“判斷”，“幫助”；

BackColor（單擊下箭頭、調色板）設置控件對象背景色；

ForeColor（單擊下箭頭、調色板）設置控件對象名稱文字顏色；

Font（單擊右邊“…”）設置控件對象名稱字體、字型和字號大小。

舉例命令按鈕用Caption項修改為“判斷”，用BackColor項修改背景色，用ForeColor項修改字顏色，用Font修改字體大小，選中“判斷”命令按鈕，用鼠標拖放復制，右擊選“屬性”，將Caption項改為“幫助”。如果再次用到“判斷”、“幫助”命令按鈕，引導學生用復制得到，提高制作效率（但VBA代碼要用“查看代碼”再輸入或復制修改）。

⑶右擊判斷和幫助按鈕選“查看代碼”，打開代碼編輯窗口輸入或復制粘貼代碼。

單選題“判斷”按鈕代碼：

Private Sub CommandButton1_Click（）

If OptionButton正確答案序號.Value = True Then

MsgBox "選擇正確！"， 0， "結果"

Else

MsgBox "選擇錯誤！"， 0， "提示"

End If

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

End Sub

類比教學：先分析代碼中命令、條件、清空等含義，加入“判斷”命令按鈕代碼，播放幻燈片看結果。引導學生類比多選題：選項按鈕、復選框名稱不同，改上OptionButton為CheckBox，判斷條件不同，單選只能選中1個答案，復選題4個答案均可選擇，均要判斷，例如AC選中BD未選正確則判斷條件如下面所示，得出多選題“判斷”按鈕代碼：

Private Sub CommandButton1_Click（）

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

MsgBox "選擇正確！"， 0， "結果"

Else

MsgBox "選擇錯誤！"， 0， "提示"

End If

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

CheckBox4.Value = False

End Sub

類比教學：選項按鈕、填空題名稱不同，改上OptionButton為TextBox，判斷條件不同，選擇題用選中True未選False，填空有填的內容用“答案”，清空只有一個，改False為""，得出填空題“判斷”按鈕代碼：

Private Sub CommandButton1_Click（）

If TextBox1.Value = "答案" Then

MsgBox "填寫正確！"， 0， "結果"

Else

MsgBox "填寫錯誤！"， 0， "提示"

End If

TextBox1.Value = ""

End Sub。

單選題、多選題、填空“幫助”按鈕代碼如下所示，只要改“答案”相應內容：填空為正確答案文字，選擇題為正確答案序號（A、B、C、D）。

Private Sub CommandButton2_Click（）

MsgBox "正確答案為：答案"， 0， "提示"

End Sub

3 結束語制作單選題、多選題和填空題，均為三個步驟：用文本框輸入題目和答案；添加控件設置屬性（更改外觀）；命令按鈕添加VBA代碼（用于對錯的判斷）。復制法用在制作多個相同控件和多次要制作“判斷”“幫助”命令按鈕，簡化制作設置時間，通過類比復制代碼后修改不同部分，使用學生容易理解并提高制作效率。