基于PowerPoint VBA的練習(xí)及測(cè)試課件制作

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

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

中圖分類(lèi)號(hào)：TP317.4 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1007-9599 （2012） 17-0000-02

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

1 課件設(shè)計(jì)思路

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

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

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

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

3 課件功能設(shè)計(jì)

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

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

（1）復(fù)習(xí)模塊：“復(fù)習(xí)回顧”控件代碼

Private Sub CommandButton1_Click（）

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

End Sub

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

Private Sub CommandButton1_Click（）

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

End Sub

（2）練習(xí)模塊：以單選題為主

1）“課堂練習(xí)”控件代碼：

Private Sub CommandButton2_Click（）

SlideShowWindows（1）.View.GotoSlide 2

End Sub

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

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

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

Private Sub Cmd_lx11_Click（）

Dim ex

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

Else

ex = MsgBox（“做錯(cuò)了，認(rèn)真想想！再重新選擇?！保瑅bOKOnly，”提示”）

End If

End Sub

當(dāng)用戶(hù)做完題點(diǎn)擊“提交答案”按鈕后，計(jì)算機(jī)自動(dòng)執(zhí)行這一段代碼，判斷用戶(hù)輸入的是否符合要求，這是一段判斷語(yǔ)句，因?yàn)锽選項(xiàng)是正確的，只做了一種全對(duì)的判斷，全對(duì)了，就會(huì)彈出“做對(duì)了，你真棒！”的對(duì)話框；如果不對(duì)，則會(huì)彈出“做錯(cuò)了，認(rèn)真想想！再重新選擇?！钡膶?duì)話框。

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

Private Sub Cmd_lx12_Click（）

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

End Sub

當(dāng)用戶(hù)點(diǎn)擊“重新選擇”按鈕后，所有選項(xiàng)內(nèi)容清空，可進(jìn)行重新選擇。

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

Private Sub Cmd_lx13_Click（）

With SlideShowWindows（1）.View

.Next

End With

End Sub

點(diǎn)擊“下一題”按鈕后，進(jìn)下頁(yè)，在最后一題的幻燈片設(shè)置返回鍵，方法如前所述。

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

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

步驟：新建四個(gè)復(fù)選項(xiàng)按鈕CheckBox，分別命名為Cs1a、Cs1b、CS1c、Cs1d， caption屬性分別為：“A.剛果河”、“B.長(zhǎng)江”、“C.黃河”、“D.尼羅河”， 新建三個(gè)命令按鈕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（\"恭喜您，答對(duì)了\" Chr（10） Chr（10） \"測(cè)試題目已全部完成，按<確定>查看成績(jī)。\"， vbOKOnly， \"提示\"）

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

End If

Else

ex = MsgBox（\"選擇錯(cuò)誤，答案為B、C\" Chr（10） Chr（10） \"測(cè)試題目已全部完成，按<確定>查看成績(jī)。\"， 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個(gè)全局變量arr（i）、MySum、ts分別作為題目是否已做記錄、得分記錄、做題數(shù)記錄，當(dāng)用戶(hù)做完題點(diǎn)擊“提交答案”按鈕后，計(jì)算機(jī)自動(dòng)判斷用戶(hù)輸入的是否符合要求，這是一段判斷語(yǔ)句，因?yàn)锽、C選項(xiàng)是都正確的，如果選對(duì)了就會(huì)彈出“恭喜您，答對(duì)了。測(cè)試題目已全部完成，按<確定>查看成績(jī)。”的對(duì)話框，系統(tǒng)會(huì)自動(dòng)加分；如果不對(duì)，則會(huì)彈出“選擇錯(cuò)誤，答案為B、C。測(cè)試題目已全部完成，按<確定>查看成績(jī)?！钡膶?duì)話框，此題不得分。本功能是不允許重回上一頁(yè)重做以獲得重新加分的。做完題后無(wú)論對(duì)錯(cuò)只能按“確定”查看所做題目數(shù)量及最終得分。

4 結(jié)束語(yǔ)

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

參考文獻(xiàn)：

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

[2]宋翔編著.商務(wù)演示文稿制作專(zhuān)家范例導(dǎo)航[M].科學(xué)出版社.