陳振農(nóng)

摘?要：本文論述了利用Powerpoint內(nèi)嵌的Activex控件，通過幾個簡單課件的制作實例，讓大家逐步了解VBA，并掌握利用Activex控件制作交互性數(shù)學(xué)課件的方法。

關(guān)鍵詞：ActiveX控件;交互式;VBA;數(shù)學(xué)課件

Powerpoint（PPT）是一個電子演示文稿，是目前廣大教師最常用來制作課件的一種軟件，但大多數(shù)老師所制作的PPT課件常常因缺乏交互性而變成一篇單調(diào)的演示文稿。特別是數(shù)學(xué)課件，如果只演示題目、答案則顯得比較呆板。作為一名數(shù)學(xué)老師如果能掌握PPT中的ActiveX控件，運用簡單的VBA代碼，將使制作的課件更具交互性、靈活性和趣味性。

一、認識ActiveX控件及VBA（以Powerpoint2003為例）

（一）如何使用ActiveX控件

（1）啟動：[視圖]→[工具欄]→[控件工具箱]，或在任意工具欄或菜單欄上單擊鼠標(biāo)右鍵，選擇[控件工具箱]。

（2）生成：選擇所需控件，當(dāng)編輯區(qū)出現(xiàn)符號“+”點擊或拖曳即可。

（3）屬性：右擊控件，選擇“屬性”，可以編輯該控件的名稱、大小、字體、顏色、位置等（如圖1）。

（二）什么是VBA

（1）VBA是Visual Basic for Application的簡寫，是微軟專為Office系列軟件編寫的程序語言，它以VB語言為基礎(chǔ)，與其它程序設(shè)計語言相比，最大的特點就是：簡單、易學(xué)、靈活。因此利用VBA可以輕松制作交互性強的PPT課件。

（2）VBA代碼編輯：右擊控件，選擇“查看代碼”（或雙擊控件），可以編輯該控件的事件代碼。

（三）制作交互式課件常用的控件工具

（1）文本框：可以輸入文本，可用來制作填空題。

（2）復(fù)選框：可以選擇多個選項，可用來制作多項選擇題。

（3）選項按鈕：只能選中一個選項，可用來制作單選題或判斷題。

（4）命令按鈕：用來確定選擇，也可以制作超鏈接。

（5）標(biāo)簽：用來顯示文字信息。

（6）圖像：用來顯示圖片或圖形。

（7）其他控件：在這里可以選擇更多的控件，如插入視頻、Flash動畫等控件。

（8）消息框（MsgBox）：彈出窗口，向用戶提供反饋信息。在工具欄中沒出現(xiàn)，直接以代碼形式編寫。

二、交互式數(shù)學(xué)課件制作實例

（一）例1：制作交互性單選題

（1）菜單插入→文本框，輸入單選題題目，如“方程5x-15=0的解是（?）”;

（2）點擊控件工具箱中的選項按鈕，插入一個選項按鈕控件，右擊控件，選擇屬性，將名稱改為“選項1”Caption項改為“A、x=5”，再復(fù)制三個選項按鈕將名稱改為“選項2”、“選項3”、“選項4”對應(yīng)的Caption改為“B、x=-5”、“C、x=3”“、D、x=-3”，將四個選項按鈕對齊排列在題目下方，調(diào)整位置及大小。

（3）插入一個命令按鈕，將屬性名稱改為“提交按鈕”Caption項改為“提交”，右擊該控件，選擇“查看代碼”（或雙擊控件），在VBA代碼窗口“PrivateSub提交按鈕_Click（）”與“End Sub”之間輸入以下代碼（注意：引號和小括號使用的是半角狀態(tài)英語符號，“//”號后是代碼的說明部分。以下實例代碼編輯同此方法。）：

If選項3.Value=True then

MsgBox（"恭喜你答對了！ "）?//（如果答對了消息框顯示為“恭喜你答對了！”）

Else

MsgBox（"對不起，答錯了"）?//（如果答錯了消息框顯示為“對不起，答錯了”）

選項1.Value=False?//（清空選擇狀態(tài)）

選項2.Value=False

選項3.Value=False

選項4.Value=False

End if

（4）點擊菜單[幻燈片放映]→[觀看放映]（或按F5），觀察響應(yīng)效果，不滿意的可再次進行修改。觀看放映前若出現(xiàn)安全提示，需要設(shè)置宏的安全級為“低”。

（二）例2：制作交互式填空題

（1）輸入填空題內(nèi)容，如“一次函數(shù)y=kx+3經(jīng)過點M（3，9）則k=”。

（2）在填空題后面插入一個文本框控件和一個命令按鈕控件。將文本框控件屬性名稱改為“填入答案”，命令按鈕控件屬性名稱改為“提交按鈕”Caption項改為“提交”，雙擊“提交”，輸入代碼：

If填入答案.Value="2" Then

MsgBox（"恭喜你答對了！ "）

Else

MsgBox（"對不起，答錯了"）

填入答案.Value=""?//（清空文本框控件內(nèi)的內(nèi)容）

End If

（三）例3：制作交互性判斷題

（1）輸入判斷題內(nèi)容，如“多項式2a2b+3a-b是二次三項式”;

（2）在判斷題旁邊插入兩個復(fù)選框控件，將其屬性名稱改為“判斷1”、“判斷2”Caption項分別改為“正確”、“錯誤”;

（3）插入一個命令按鈕，將屬性名稱改為“提交按鈕”Caption項改為“提交”，雙擊“提交”，輸入代碼：

If判斷1.Value = False And判斷2.Value = True Then

MsgBox（"恭喜你，答對了！ "）

Else

MsgBox（"對不起，答錯了"）

判斷1.Value = False

判斷2.Value = False

End If

以上三個例子由于答案或結(jié)果都是固定的，利用觸發(fā)器也可實現(xiàn)，但是如果遇到由學(xué)生輸入隨機數(shù)據(jù)或者課堂上要實現(xiàn)隨機出題進行練習(xí)，用觸發(fā)器就無法做到了，借助ActiveX控件工具就可以輕松實現(xiàn)。

（四）例4：請輸入三角形三邊的長度，判斷能不能構(gòu)成三角形

（1）輸入題目內(nèi)容“請輸入三角形三邊的長度，判斷能不能構(gòu)成三角形?！焙腿叀癮”、“b”、“c”。

（2）在對應(yīng)的字母下插入三個文本框控件，分別修改其屬性名稱為“輸入a”“輸入b”“輸入c”，用來提供給學(xué)生輸入三角形的三邊，再插入兩個命令按鈕，分別修改其屬性名稱和Caption都為“判斷”和“清空”，最后插入一個文本框控件，修改其屬性名稱為“顯示結(jié)果”用來顯示判斷的結(jié)果。版面設(shè)計如圖3：

（3）雙擊“判斷”命令按鈕，輸入以下代碼：

Dim a，b，c As Double?//（定義數(shù)值類型）

Dim intYesorNo As Integer

a=Val（輸入a.Text）：b=Val（輸入b.Text）：

c=Val（輸入c.Text）

If a + b > c And b + c > a And c + a > b Then

顯示結(jié)果.Text = "恭喜您，您給的數(shù)據(jù)能構(gòu)成三角形"

Else

If MsgBox（"很抱歉，您給的數(shù)據(jù)不能構(gòu)成三角形！請重新輸入。"，vbYesNo + vbInformation，"提示"）= vbYes Then

輸入a.Text = ""

輸入b.Text = ""

輸入c.Text = ""

顯示結(jié)果.Text = ""?//（如果不能構(gòu)成三角形，彈出如圖4的提示，按確定后清空文本框內(nèi)容）

End If

End If

（4）雙擊“清空”命令按鈕，輸入以下代碼：

輸入a.Text = ""

輸入b.Text = ""

輸入c.Text = ""

顯示結(jié)果.Text = ""

以上只介紹了在數(shù)學(xué)課件中常見交互性實例的制作方法，利用VBA還可以制作出更復(fù)雜、交互性更強的數(shù)學(xué)課件，如隨機出題、統(tǒng)計成績、畫函數(shù)圖像等等。只要我們充分挖掘PPT中的控件功能并熟悉VBA編程技術(shù)，一定能制作出功能更強、更富有趣味的教學(xué)課件。

參考文獻：

[1]冷平，梅松竹.巧用ActiveX控件解決PPT制作CAI課件的交互性問題.陰山學(xué)刊，2010.6.

[2]周永進.談如何在 Powerpoint課件中 用 VBA 制作測試題.中國醫(yī)學(xué)教育技術(shù)，2008.2

[3]杜杉杉.PowerPoint交互設(shè)計策略及實現(xiàn).中小學(xué)電教，2012.7.