摘要：盡管PowerPoint功能強大，應用廣泛，但使用其制作的CAI課件大部分都是局限于幻燈片的演示和放映，缺乏互動性。如能充分利用Office內(nèi)嵌的VBA，就可制作出互動性較強的CAI課件，使課件更具靈活性和趣味性。本文就此展開討論。

關(guān)鍵詞：CAI；VBA；交互性；控件

中圖分類號：TP317.4 文獻標識碼：A 文章編號：1007-9599 （2012） 17-0000-02

隨著CAI技術(shù)的不斷提高，通過圖片、文字、動畫、視頻、聲音等多種媒體與各種計算機軟件的有機組合，可制作出使用效果良好的課件。在教育領域，越來越多的教師在使用、制作CAI課件，CAI課件成為教學過程中不可缺少的重要的教學手段，并影響和改變著傳統(tǒng)的教學觀念與教學模式。在眾多課件制作工具中，PowerPoint由于操作簡單，功能齊全，成為最常用的CAI課件制作工具，但其一些潛在功能未被廣泛使用。部分計算機基礎稍差的教師，苦于不懂編程語言，無法制作出滿意的課件，只能制作一些功能簡單PPT，課堂上只是起到演示的作用、電影的效果，一節(jié)課下來，學生們看完很快便忘記了。究其原因，很大程度上是缺乏互動性，學生只是在被動地接受，難以達到教學效果。通過本文的學習，在PowerPiont環(huán)境下，計算機基礎稍差的教師也能利用VBA編寫制作出一套互動性較強的練習及測試課件，讓學生可以自主學習和測試，能有效地提高教學效果。

1 課件設計思路

1.1功能介紹：優(yōu)秀的課件設計時往往能夠以學生特征為依據(jù)，以教學內(nèi)容為基礎，通過使用教學策略，優(yōu)化課件設計，達到良好的教學效果。本課件是在教師進行完課堂講解后，以本章節(jié)學習內(nèi)容為基礎，以互動的方式，通過課件的復習回顧、課堂練習、隨堂測試等功能，對本次教學中的重點環(huán)節(jié)及內(nèi)容進行二次學習，加強對教學內(nèi)容的回憶，提高教學質(zhì)量。

1.2模塊劃分：本課件是隨堂使用，可嵌入到教學PPT中，作用是復習及鞏固課堂內(nèi)容，時間在10～15分鐘內(nèi)，因此不用設計過于復雜，滿足主要功能即可。模塊分為復習模塊、練習模塊、測試模塊。詳見下表。

2 課件使用環(huán)境和開發(fā)工具

2.1使用環(huán)境：PowerPoint是微軟公司套裝辦公自動軟件 Office中的重要組成部分，這是在 Windows 平臺下運行的、專門用于制作PPT演示文稿的應用軟件。2.2開發(fā)工具：充分利用“寄生于”O(jiān)ffice應用程序的VBA技術(shù)。VBA（visual Basic for Applications）是新一代標準宏語言，是Microsoft Office系列的內(nèi)置編程語言，是非常流行的開發(fā)語言VB（Visual Basic）的子集。它功能強大，面向?qū)ο?，具有更強的靈活性，可以通過編程實現(xiàn)交互功能。

3 課件功能設計

3.1界面設計：在界面設計中，PowerPoint中模版十分豐富，可選擇使用。設計時應避免繁瑣，內(nèi)容應力求準確、簡潔明了，使界面更具整體性與美感，可利用菜單技術(shù)來實現(xiàn)多模塊層次結(jié)構(gòu)，各模塊可逐步展開，直至覆蓋全部教學內(nèi)容。3.2模塊設計：在設計時考慮到學生的特點、能力、知識水平，立足使模塊操作簡單，通過鼠標和鍵盤的幾個簡單操作動作即可完成。

步驟：在主菜單幻燈片中通過控件工具箱建立4個命令按鈕CommandButton，分別命名為CommandButton1、CommandButton2、CommandButton3、CommandButton4；caption屬性分別改為“復習回顧”、“課堂練習”、“隨堂測試”、“退出”，其他屬性設置默認即可，分別添加VBA代碼。

（1）復習模塊：“復習回顧”控件代碼

Private Sub CommandButton1_Click（）

SlideShowWindows（1）.View.GotoSlide n 'n為復習概括內(nèi)容的幻燈片頁碼數(shù)

End Sub

在最后一張（也可以是每一張）復習內(nèi)容的幻燈片中建立CommandButton1（命令按鈕），設置成返回鍵，可以返回主菜單。添加如下代碼：

Private Sub CommandButton1_Click（）

SlideShowWindows（1）.View.GotoSlide n 'n為主菜單幻燈片的頁碼數(shù)

End Sub

（2）練習模塊：以單選題為主

1）“課堂練習”控件代碼：

Private Sub CommandButton2_Click（）

SlideShowWindows（1）.View.GotoSlide 2

End Sub

2）Slide 2 練習題1題目：詩句“床前明月光，疑是地上霜”詩是哪位詩人 的作品？

步驟：新建四個單選項按鈕OptionButton，分別命名為lx1a、lx1b、lx1c、lx1d； caption屬性分別為：“A.白居易”、“B.李白”、“C.杜甫”、“D.蘇軾”， 新建三個命令按鈕CommandButton，分別命名為Cmd_lx11、 Cmd_lx12、Cmd_lx13；caption屬性分別改為：“提交答案”、“重新選擇”、“下一題”。

3）“提交答案”控件代碼：

Private Sub Cmd_lx11_Click（）

Dim ex

If lx1b.Value = True Then ：ex = MsgBox（“做對了，你真棒！”，vbOKOnly，”提示”）

Else

ex = MsgBox（“做錯了，認真想想！再重新選擇?！保瑅bOKOnly，”提示”）

End If

End Sub

當用戶做完題點擊“提交答案”按鈕后，計算機自動執(zhí)行這一段代碼，判斷用戶輸入的是否符合要求，這是一段判斷語句，因為B選項是正確的，只做了一種全對的判斷，全對了，就會彈出“做對了，你真棒！”的對話框；如果不對，則會彈出“做錯了，認真想想！再重新選擇?！钡膶υ捒颉?/p>

4）“重新選擇” 控件代碼：

Private Sub Cmd_lx12_Click（）

lx1a.Value = False： lx1b.Value = False： lx1c.Value = False： lx1d.Value = False

End Sub

當用戶點擊“重新選擇”按鈕后，所有選項內(nèi)容清空，可進行重新選擇。

5）“下一題”控件代碼：

Private Sub Cmd_lx13_Click（）

With SlideShowWindows（1）.View

.Next

End With

End Sub

點擊“下一題”按鈕后，進下頁，在最后一題的幻燈片設置返回鍵，方法如前所述。

（3）測試模塊：以單選題、多選題等客觀題為主

“隨堂測試”的進入方式與“練習模塊”的 “課堂練習”控件代碼類似，不再復述。測試的第1題為單選題，設置方法與“練習模塊”大致相同，增加了計算分數(shù)。第2題為多選題，現(xiàn)以完成了第1題單選題，做第2題多選題（Slide 6）為例說明，題目為：下列世界著名的河流中屬于中國的是（ ）。

步驟：新建四個復選項按鈕CheckBox，分別命名為Cs1a、Cs1b、CS1c、Cs1d， caption屬性分別為：“A.剛果河”、“B.長江”、“C.黃河”、“D.尼羅河”， 新建三個命令按鈕CommandButton，分別命名為Cmd_Cs21、Cmd_CS22、Cmd_CS23，caption屬性分別改為：“提交答案”、“重新選擇”、“返回主菜單”。

“提交答案”控件代碼：

Private Sub Cmd_cs21_Click（）

If cs2b.Value = True And cs2c.Value = True And cs2a.Value = False And cs2d.Value = False Then

ex = MsgBox（\"恭喜您，答對了\" Chr（10） Chr（10） \"測試題目已全部完成，按<確定>查看成績。\"， vbOKOnly， \"提示\"）

If arr（2） = 0 Then： MySum = MySum + 10

End If

Else

ex = MsgBox（\"選擇錯誤，答案為B、C\" Chr（10） Chr（10） \"測試題目已全部完成，按<確定>查看成績。\"， vbOKOnly， \"提示\"）

End If

If （cs2b.Value = True Or cs2c.Value = True Or cs2a.Value = True Or cs2d.Value = True） And arr（2） = 0 Then

arr（2） = 1： ts = ts + 1

End If

MsgBox \" 得分是： \" MySum \"分（每題10分）共做了 \" ts \"題\"， vbOKOnly， \"提示\"

Slide6.cs2a.Value = False： Slide6.cs2b.Value = False： Slide6.cs2c.Value = False： Slide6.cs2d.Value = False

End Sub

代碼中用了3個全局變量arr（i）、MySum、ts分別作為題目是否已做記錄、得分記錄、做題數(shù)記錄，當用戶做完題點擊“提交答案”按鈕后，計算機自動判斷用戶輸入的是否符合要求，這是一段判斷語句，因為B、C選項是都正確的，如果選對了就會彈出“恭喜您，答對了。測試題目已全部完成，按<確定>查看成績?！钡膶υ捒?，系統(tǒng)會自動加分；如果不對，則會彈出“選擇錯誤，答案為B、C。測試題目已全部完成，按<確定>查看成績?！钡膶υ捒颍祟}不得分。本功能是不允許重回上一頁重做以獲得重新加分的。做完題后無論對錯只能按“確定”查看所做題目數(shù)量及最終得分。

4 結(jié)束語

PowerPoint在CAI制作時， 加上VBA的協(xié)助，豈不功能將更加強大。VBA與PowerPoint相結(jié)合制作出的幻燈片界面交互性強，還可以實現(xiàn)許多用PowerPoint無法實現(xiàn)的功能。因此可以說VBA是實現(xiàn)PowerPoint高級應用必不可少的利器。

參考文獻：

[1]許江林編著.揭秘優(yōu)秀PPT這樣制作[M].電子工業(yè)出版社.

[2]宋翔編著.商務演示文稿制作專家范例導航[M].科學出版社.