在Powerpoint中引入VBA技術(shù)制作交互式多媒體教學(xué)課件

張捷 李露璐 封俊紅

摘要：課堂教學(xué)中使用的交互式多媒體教學(xué)課件.可以引導(dǎo)學(xué)生建立對所學(xué)課程的學(xué)習(xí)興趣[1]。該文在Powerpoint中引入VBA[2]技術(shù)，使得在Powerpoint中就可以制作人機交互式的多媒體課件。在作答選擇題、填空題和判斷題等客觀練習(xí)題時，題目和答案存放在文本文件中，Powerpoint讀取文本文件中的題目顯示在幻燈片中，用戶在幻燈片中作答后，Powerpoint比較用戶的答案和從文本文件中讀取的標準答案比較，根據(jù)正確與否作出相應(yīng)的反應(yīng)。用此方法制作的多媒體課件可以在一張幻燈片中做無數(shù)多的題目，其它課件使用時只需要復(fù)制這張幻燈片、修改文本文件中的題目和答案即可。此方法是對教育教學(xué)改革的一項創(chuàng)新，對制作高質(zhì)量教學(xué)課件起著很重要的作用。

關(guān)鍵詞：Powerpoint；VBA；交互式；多媒體課件；教學(xué)改革；教學(xué)課件

中圖分類號：G642.0 文獻標識碼：A 文章編號：1009-3044（2014）05-1063-03

隨著計算機應(yīng)用的逐漸普及，多媒體輔助教學(xué)已經(jīng)成為課堂教學(xué)的一個重要部分[3]，多媒體教學(xué)起到了越來越重要的作用，多媒體教學(xué)課件的制作成為教學(xué)和講演的必備環(huán)節(jié)，也涌現(xiàn)了眾多多媒體課件制作軟件。Office家族中Powerpoint軟件憑借其易用性、方便性，在教學(xué)中仍舊起著很重要的作用，到目前為止，大部分的教學(xué)課件仍舊是用Powerpoint制作的。然而，Powerpoint在交互式多媒體課件制作方面存在欠缺，雖然可以通過按某個動作按鈕或者單擊某個鏈接跳到另一張幻燈片，但并不能根據(jù)用戶的輸入來判斷應(yīng)該顯示那張幻燈片，即不具有判斷功能。另外，多個題目可能需要制作很多張幻燈片；題目一變，幻燈片需要重新制作。為了彌補這個不足，該文將VBA技術(shù)引入到Powerpoint中，使得僅使用一張幻燈片，就可以使幻燈片具有判斷功能，也可以在一張幻燈片上作答很多練習(xí)題目。

1 填空題和判斷題的交互式處理

填空題和判斷題的交互式處理是類似的，判斷題可以看作是特殊的填空題，只不過答案只有“對”和“錯”兩種。這兩種題目都需要幻燈片具有判斷功能，需要判斷用戶輸入的信息和標準答案是否相同。如果不相同，顯示如圖1所示的信息，下面顯示“錯誤”圖標、顯示“錯誤”文本框提示并用“錯誤”聲音顯示；如果相同，則顯示如圖2所示的信息，下面顯示“正確”圖標、顯示“正確”文本框提示并用“正確”聲音顯示。

圖1 輸入錯誤時的畫面

在Powerpoint幻燈片中使用控件工具箱中的文本框工具設(shè)計兩個文本框，上面一個用于用戶輸入信息，下面一個用于顯示標準答案。使用控件工具箱中的圖像工具設(shè)計2個圖像對象，用于存放“正確”和“錯誤”圖標。使用控件工具箱中的命令按鈕工具設(shè)計5個按鈕，“Init”按鈕用于初始化操作，先判斷存放題目和標準答案的文本文件是否存在，如果不存在，給出文件不存在的錯誤提示信息，如果存在，則初始化按鈕控件和圖像控件的可見性屬性，清空兩個文本框控件，讀取文本文件中的第一個題目顯示到幻燈片中?！癗ext”和“Prior”按鈕分別從文本文件中讀取“下一個”和“上一個”題目，顯示到幻燈片中，讀取時要判斷題目是否是最后一道或第一道以便顯示對應(yīng)的信息給用戶?！癈heck”按鈕用于檢查用戶輸入的信息和標準答案是否相同，不相同進行“錯誤”處理，顯示圖1所示的信息；相同進行“正確”處理，顯示圖2所示的信息?！癉isplay Answer”按鈕從題目文本文件中讀取標準答案顯示在下面的文本框控件中，如圖3所示。

圖3 顯示題目的標準答案

2 選擇題的交互式處理

選擇題也需要幻燈片具有判斷功能，需要判斷用戶選擇了那個按鈕，選擇的選項是否正確。如果正確，顯示如圖4所示的信息，下面顯示“錯誤”圖標、顯示“錯誤”文本框提示并用“錯誤”聲音顯示；如果錯誤，則顯示如圖5所示的信息，下面顯示“正確”圖標、顯示“正確”文本框提示并用“正確”聲音顯示。

在Powerpoint中使用控件工具箱中的命令按鈕工具設(shè)計7個按鈕，“Init”按鈕、“Next”和“Prior”按鈕和填空題的基本類似。“A”、“B”、“C”和“D”四個按鈕用于供用戶選擇的四個選項，選擇后判斷用戶選擇的選項和標準答案是否一致，不一致進行“錯誤”處理，顯示圖4所示的信息；一致進行“正確”處理，顯示圖5所示的信息。

圖4 選擇錯誤時的畫面

圖5 輸入正確時的畫面

3 關(guān)鍵的實現(xiàn)細節(jié)

無論是填空題、判斷題還是選擇題都需要進行“正確”處理和“錯誤”處理，都需要顯示提示信息和圖標，并進行聲音提示。后面的代碼以填空題為例進行說明，判斷題和選擇題的代碼類似。

進行“正確”處理的關(guān)鍵代碼如下：

Image1.Visible = True

Image2.Visible = False

Call PlayWavFile（strFilePath & "＼正確6.wav"， 1， 1000）

MsgBox "恭喜你，填對了"， vbOKOnly + vbInformation， "填空題填空

首先顯示表示正確的拍手圖像，隱藏表示錯誤的紅叉圖像，然后播放表示正確的聲音文件，最后顯示一個表示正確的對話框。

進行“錯誤”處理的關(guān)鍵代碼如下：

Image2.Visible = True

Image1.Visible = False

Call PlayWavFile（strFilePath & "＼錯誤1.wav"， 1， 1000）

MsgBox "填錯了，繼續(xù)努力"， vbOKOnly + vbCritical， "填空題填空"

首先顯示表示錯誤的紅叉圖像，隱藏表示正確的拍手圖像，然后播放表示錯誤的聲音文件，最后顯示一個表示錯誤的對話框。

兩種處理調(diào)用的PlayWavFile是用于播放聲音的操作，其關(guān)鍵代碼如下：

If Len（Dir（strFileName）） = 0 Then Exit Sub

If PlayCount = 0 Then Exit Sub

If JianGe < 1000 Then JianGe = 1000

DoEvents

sndPlaySound strFileName， 16 + 1

Sleep JianGe

Call PlayWavFile（strFileName， PlayCount - 1， JianGe）

其中，strFileName，playCount 和JianGe分別表示要播放的文件名（帶路徑），播放的次數(shù)和多次播放時每次的時間間隔。

首先保證播放的文件是存在的、播放的次數(shù)是合法的，然后調(diào)用API函數(shù)sndPlaySound播放聲音，播放完根據(jù)播放次數(shù)確定是否重復(fù)播放及重復(fù)播放的次數(shù)。

“Next”和“Prior”按鈕完成從題目文本文件中讀取題目并顯示到幻燈片中的操作，“Next” 按鈕的關(guān)鍵代碼如下：

Dim myShape As Shape

Set myShape = ActivePresentation.Slides（QstPresent）.Shapes（"Rectangle 3"）

Open strFileName For Input As #1

Line Input #1， strQuestion

myShape.TextFrame.TextRange.Text = strQuestion

Line Input #1， strAnswer

首先獲取幻燈片中用于顯示題目的對象，然后打開文件讀取題目并顯示到幻燈片中，最后讀取標準答案放在已經(jīng)隱藏的文本框控件中。

4 結(jié)論

在Powerpoint中引入VBA技術(shù)，就可以輕松的在Powerpoint中制作高質(zhì)量的交互式課件。該文的方法可以在一張幻燈片中可以作答無數(shù)多的選擇題、填空題或判斷題，能對用戶選擇的選項或輸入的信息做出判斷，給出對應(yīng)的信息提示。該文僅僅是在Powerpoint中使用VBA技術(shù)的一次嘗試，仍需要不斷地完善和補充。

參考文獻：

[1] 王春生.淺論交互式多媒體教學(xué)課件的設(shè)計[J].重慶科技學(xué)院學(xué)報：社會科學(xué)版，2011（8）： 184-186.

[2] 張捷，封俊紅.基于VBA的PPT文檔轉(zhuǎn)換為WORD文檔的研究與實現(xiàn)—張捷[J].微型電腦應(yīng)用，2009，25（2）.

[3] 趙龍.交互式多媒體教學(xué)課件的設(shè)計[J].電腦知識與技術(shù)，2009（10）.