使用控件制作PPT課件交互練習題

陳亞天

[摘 要]很多人使用PowerPoint制作PPT課件，卻因不熟悉編程而不能發揮PowerPoint強大的功能，本文簡單介紹PowerPoint2003中常用控件及VBA知識，通過制作單選題、多選題和填空題等案例，讓大家能迅速掌握并制作出具有交互功能的PPT課件練習題。

[關鍵詞]PowerPoint2003 PPT課件 控件 VBA

[中圖分類號] G484 [文獻標識碼] A [文章編號] 2095-3437（2013）07-0054-02

自1990年微軟（Microsoft）的PowerPoint問世后，這款軟件在國內被越來越多的教育工作者使用，在信息化教育大環境推動下，很多人提倡使用多媒體課件開展教育活動。因為PowerPoint上手容易，成為大多數教師制作課件的首選。使用中，很多老師對幻燈片的基本操作以及文字、圖片、音視頻等素材的編排都比較熟悉，但制作具有交互功能的練習題卻感到很棘手。利用PowerPoint中的編程雖可以實現，但很多人擔心編程難以掌握而望而卻步。事實上并不需要太多的專業編程知識，利用PowerPoint自帶的控件，配合一些簡單的語句就可以實現PPT課件強大的交互功能。

一、PowerPoint中的控件及VBA的簡單知識

在Microsoft Office系列軟件中，提供了一組這樣的工具，稱為控件（亦稱ActiveX控件），可以使用它在PowerPoint演示文稿中控制一組預定義的事件（或執行一段程序代碼）來達到我們需要的目的。在Powerpoint（以2003為例）中選擇菜單“視圖-工具欄-控件工具箱”，如圖1。

（一）常用的控件

文本框（TextBox）：可輸入文本，可形成滑動條展示于大量的文字，亦可用于設計填空題；

命令按鈕（CommandButon）：用于制作按鈕，常通過點擊后執行一定的代碼；

選項按鈕（OptionButton）：通常一組使用，只能選中其中一個，可用于制作單項選擇題或判斷題；

標簽（Label）：用于表現靜態文字信息，如顯示選擇題、判斷題的題目等

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

（二）控件中常涉及的屬性

以命令按鈕為例，在控件工具箱中選擇命令按鈕，鼠標變成十字形，在頁面上點擊或拖拉會出現一個“CommandButton1”的按鈕，右擊鼠標，選擇“屬性”，彈出一個屬性窗口，如圖2。其中常用的參數有：

名稱——控件默認名，一般不作修改，如果修改，會影響到VBA中的對象名稱；

Caption——控件顯示名，如將Caption后面的CommandButon1改成確定，我們將發現頁面上命令按鈕的文字就變成了確定；

Font——用于設置控件顯示名的字體、大小等；

BackColor——設置按鈕背景色；

Height、Left、Top、Width——用于設置命令按鈕的位置及大小；

Picture——可導入圖片作為命令按鈕的背景圖。

（三）VBA簡介

VBA是Visual Basic for Application的簡寫，它以應用程序開發語言VISUAL BASIC語言為基礎，經過修改并運行在Microsoft Office的應用程序，可以使這些應用程序（PowerPoint、Excel等）自動化，極大地增加Office系列軟件的交互性。在PPT中，對于控件如果不添加代碼，控件的使用價值將大大降低。

仍以命令按鈕為例，雙擊頁面中的命令按鈕，頁面將跳轉到VB的編輯界面，如圖3。如果我們在光標默認閃爍行中添加代碼，就意味著PPT放映中點擊命令按鈕后，將執行添加的程序代碼。

二、使用控件制作PPT課件中交互練習題

（一）PPT課件中的單選題

在PPT頁面上利用普通的文本框輸入題干，插入4個選項按鈕控件（OptionButton），將屬性里面的Caption修改為選擇項內容，具體如圖4。將題干和選擇項位置調整合適位置。雙擊第一個選擇按鈕控件進入VB編輯界面，可看到有OptionButton1-4四個對象，對OptionButton1、OptionButton2分別輸入：

Private Sub OptionButton1_Click（）

MsgBox （"錯誤"）

End Sub

以及Private Sub OptionButton2_Click（）

MsgBox （"正確"）

End Sub

其余2個選擇按鈕的代碼操作類似OptionButton1代碼的輸入。

運行PPT，點擊B選項，會跳出“正確”的提示框，點擊其他選項，會跳出“錯誤”的提示框。當然我們還可以將上面的代碼進行修改，將“錯誤”的文字換成其他文字，運行時可顯示其他的提示文字。

（二）PPT課件中的多選題

多選題設置類似單選題，不過插入的是復選框（CheckBox）控件，并添加一個命令按鈕控件，具體如圖5。進入VB編輯界面后，此處主要編輯CommandButton1對象代碼，輸入如下代碼：

Private Sub CommandButton1_Click（）

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

MsgBox （"正確"）

Else： MsgBox （"錯誤"）

End If

End Sub

該例中CheckBox1.Value=Ture表示該復選框被勾選，如未選，系統默認CheckBox1.Value=False，因為答案是ABCD，E是錯誤的，所以要強調CheckBox5.Value = False，代碼才能判斷正確的選擇項。

（三）PPT課件中的填空題

選擇文本框控件插入，并添加一個命令按鈕，如圖6。進入VB編輯界面，選擇文本框控件，注意事件為change，輸入如下代碼：

該例中因為“秦觀”“秦少游”都是正確答案，所以要考慮到這一點。當然我們也可以對文本框控件不編輯代碼，另增加一個命令按鈕，將粗體代碼添加在命令按鈕控件的Click事件中，運行時輸入文字不會有任何變化，只有通過點擊命令按鈕給出答案的判斷或提示。

[ 參 考 文 獻 ]

[1] 北京博彥科技開發有限責任公司. Offce VBA編程高手[M].北京大學出版社，2000，（12）.

[2] 網冠科技.Visual Basic 6.0控件時尚編程百例[M].機械工業出版社，2001.

[責任編輯：陳 兵]