陳振農(nóng)

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

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

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

一、認(rèn)識(shí)ActiveX控件及VBA（以Powerpoint2003為例）

（一）如何使用ActiveX控件

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

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

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

（二）什么是VBA

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

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

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

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

（2）復(fù)選框：可以選擇多個(gè)選項(xiàng)，可用來(lái)制作多項(xiàng)選擇題。

（3）選項(xiàng)按鈕：只能選中一個(gè)選項(xiàng)，可用來(lái)制作單選題或判斷題。

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

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

（6）圖像：用來(lái)顯示圖片或圖形。

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

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

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

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

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

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

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

If選項(xiàng)3.Value=True then

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

Else

MsgBox（"對(duì)不起，答錯(cuò)了"）?//（如果答錯(cuò)了消息框顯示為“對(duì)不起，答錯(cuò)了”）

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

選項(xiàng)2.Value=False

選項(xiàng)3.Value=False

選項(xiàng)4.Value=False

End if

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

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

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

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

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

MsgBox（"恭喜你答對(duì)了！ "）

Else

MsgBox（"對(duì)不起，答錯(cuò)了"）

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

End If

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

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

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

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

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

MsgBox（"恭喜你，答對(duì)了！ "）

Else

MsgBox（"對(duì)不起，答錯(cuò)了"）

判斷1.Value = False

判斷2.Value = False

End If

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

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

（1）輸入題目?jī)?nèi)容“請(qǐng)輸入三角形三邊的長(zhǎng)度，判斷能不能構(gòu)成三角形。”和三邊“a”、“b”、“c”。

（2）在對(duì)應(yīng)的字母下插入三個(gè)文本框控件，分別修改其屬性名稱為“輸入a”“輸入b”“輸入c”，用來(lái)提供給學(xué)生輸入三角形的三邊，再插入兩個(gè)命令按鈕，分別修改其屬性名稱和Caption都為“判斷”和“清空”，最后插入一個(gè)文本框控件，修改其屬性名稱為“顯示結(jié)果”用來(lái)顯示判斷的結(jié)果。版面設(shè)計(jì)如圖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)成三角形！請(qǐng)重新輸入。"，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é)課件中常見(jiàn)交互性實(shí)例的制作方法，利用VBA還可以制作出更復(fù)雜、交互性更強(qiáng)的數(shù)學(xué)課件，如隨機(jī)出題、統(tǒng)計(jì)成績(jī)、畫(huà)函數(shù)圖像等等。只要我們充分挖掘PPT中的控件功能并熟悉VBA編程技術(shù)，一定能制作出功能更強(qiáng)、更富有趣味的教學(xué)課件。

參考文獻(xiàn)：

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

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

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