郭 晴

(山西大學(xué) 商務(wù)學(xué)院信息中心,太原 030031)

基于VBA和ActiveX測試課件的設(shè)計與實現(xiàn)

郭 晴

(山西大學(xué) 商務(wù)學(xué)院信息中心,太原 030031)

隨著多媒體課件制作技術(shù)的不斷發(fā)展，交互式課件具有強大的交互性、靈活性和可擴展性，其獨特的優(yōu)勢，在教與學(xué)的過程中日顯突出，越來越受到廣大師生的青睞。能否制作具有功能強大的交互式課件，已成為又一個衡量教師信息化素養(yǎng)的指標。文中以制作測試課件為例，詳細分析了利用ActiveX和VBA技術(shù)在PPT中實現(xiàn)智能交互的步驟、方法與技巧，為多媒體課件的開發(fā)與完善提供有益的參考。

測試課件；VBA技術(shù)；ActiveX控件；交互

高等教育現(xiàn)代化、信息化的不斷推進，教學(xué)理念、教學(xué)方法的不斷革新，實用高效的教學(xué)課件越來越受到推崇。PPT因操作簡便、實用性廣、表現(xiàn)力強而一直主導(dǎo)著多媒體教學(xué)課件的制作。利用ActiveX控件和VBA技術(shù)制作的交互式課件，具有較好的交互性和靈活性，使教學(xué)表達呈現(xiàn)多樣化，更好地滿足教與學(xué)的需求。以筆者實踐中測試課件為例，在教學(xué)過程中，學(xué)習(xí)主動性增強，教學(xué)效果顯著提升。

1 測試課件的重要性

從教學(xué)需求的角度，教學(xué)過程中定期對學(xué)習(xí)內(nèi)容進行考核，有利于階段性地檢測學(xué)生對學(xué)習(xí)內(nèi)容、操作技能的掌握水平，及時發(fā)現(xiàn)教學(xué)過程中存在的問題并予以糾正。增強學(xué)生學(xué)習(xí)主動性的同時，教師的知識水平和業(yè)務(wù)能力也得以提升，切實的做到教學(xué)相長。

從高等教育發(fā)展的角度，測試課件的開發(fā)與應(yīng)運，可以滿足教學(xué)與自主學(xué)習(xí)型、訓(xùn)練復(fù)習(xí)型課件的需求[1]，無疑是信息化、網(wǎng)絡(luò)化推進的具體表現(xiàn)。測試課件具有良好的擴展性，無論課上與課下都能很好地調(diào)動學(xué)生的學(xué)習(xí)興趣，方便知識內(nèi)容的鞏固與延展。

2 VBA與ActiveX控件

ActiveX控件是Microsoft對于一系列策略性面向?qū)ο蟪绦蚣夹g(shù)和工具的稱呼，其中主要的技術(shù)是組件對象模型(COM)，是一種可重用的軟件組件。很多情況下，不需要自己編程，就可以完成相關(guān)應(yīng)用程序的設(shè)計[2]。

VBA是Visual Basic for Application的簡寫，它是Microsoft Office系列軟件的內(nèi)置編程語言，是應(yīng)用程序開發(fā)語言VB(Visual Basic)的子集。它以VB語言為基礎(chǔ)，經(jīng)過修改并運行在Microsoft Office，它功能強大，面向?qū)ο?，可極大地增加Office系列軟件的交互性[3]。

將VBA技術(shù)與ActiveX控件相結(jié)合應(yīng)運到PPT中，可制作交互性和擴展性很強的測試課件。主要制作的有選擇、判斷、填空等各類客觀題。

3 課件的設(shè)計與制作

3.1 構(gòu)建效果圖

通常好的設(shè)計者在制作課件前都先草建一個效果圖，以便制作過程中有一個參考和比較。本例效果圖如圖1、圖2和圖3所示。

圖1 測試主頁

圖2 選擇題測試頁

圖3 最終得分頁

3.2 制作流程圖

一個完好的制作流程圖，便于設(shè)計者了解課件整體制作思路，對制作過程全方位把控。本例縱向步驟為制作的主流程，橫向為主流程中某些步驟包含的分支流程。如圖4所示。

圖4 制作流程

3.3 制作試題內(nèi)容

本例測試內(nèi)容分為單項選擇和填空兩類，分別制作在單獨的演示文稿中，通過試題主頁的鏈接而進入。

3.3.1 選擇題

每道選擇題分為兩部分，題目部分用文本框輸入，選項部分則用選項按鈕控件來完成。具體操作如下；

(1)新建一張“空白”的幻燈片，在其中插入一文本框輸入題目內(nèi)容并設(shè)置。

(2)單擊功能區(qū)中的[開發(fā)工具]→[控件]→[選項按鈕]，在幻燈片中繪制，并右擊選擇[屬性]命令，設(shè)置其Caption屬性為“A.按Ctrl+S組合鍵快速保存”。

(3)按照同樣的方法，再添加其他三個選項按鈕并設(shè)置。

(4)新建一張幻燈片，輸入“恭喜您，以完成全部答題”“最終得分”文本內(nèi)容，并進行樣式的設(shè)置(如效果圖3)。最后將其保存，名稱“選擇題”，文件類型為啟用宏的PPT演示文稿。

3.3.2 填空題

本例中的填空題如紙質(zhì)試卷中的樣式，用文本框來輸入題目，文本框控件作為答題者輸入答案的空間，具體操作如下。

(1)使用重用幻燈片功能可以提高制作效率[4]。新建一個演示文稿并將默認幻燈片刪除。單擊功能區(qū)[開始]→[幻燈片]→[新建幻燈片]命令，在打開的列表中點擊[重用幻燈片]，選擇“選擇題.pptm”，并選中[保留源格式]，將所需進行重用，之后只對題目內(nèi)容進行修改即可。

(2)單擊功能區(qū)[開始]→[控件]→[文本框]按鈕，將其拖放至填空題中下劃線的上方，并右擊選擇[屬性]命令，將BorderStyle屬性設(shè)置為[0-frmBorderStyleNone],隱藏文本框控件的邊框。再將TextAlign屬性設(shè)置為[2-fmTextAlignCenter]，將文字居中。

(3)最后將其保存，名稱“填空題”，文件類型為啟用宏的PPT演示文稿。

3.4 編寫代碼實現(xiàn)自動出題與評分

為了讓測試課件自動出題，且能夠根據(jù)所選擇的答案而自動判斷正確與否，并對回答正確的答題累計分數(shù)，就需要編寫VBA代碼來實現(xiàn)。

3.4.1 編寫選擇題代碼

設(shè)計思路：當選擇了某個選項后，通過單擊[提交答案]按鈕，提示回答是否正確并進入下一題，回答完所有題目，單擊[最終得分]按鈕來查看自己的得分，并自動退出答題環(huán)境。具體代碼如下：

(1)聲明一個公有變量[5]Score記錄得分情況。打開名為“選擇題.pptm”演示文稿，按Alt+F11組合進入VBA編輯窗口，單擊 [插入]→[模塊]命令，單擊插入的模塊，在下方的[屬性]中將[名稱]改為My。雙擊[屬性]窗格上方的工程資源管理器中的My打開模塊代碼窗口輸入：Public Score As integer。

(2)雙擊工程資源管理器中選擇題所在幻燈片(本例Slide1)，打開代碼窗口輸入：

Sub xuanze1()

My.Score = 0

Select Case True

Case OptionButton1.Value

MsgBox "您答錯了"

Case OptionButton2.Value

MsgBox "您答錯了"

Case OptionButton3.Value

MsgBox "您答對了"

My.Score=My.Score + 10’每答對一題加10分

Case OptionButton4.Value

MsgBox "您答錯了"

End Select

SlideShowWindows(1).View.Next’自動退出幻燈片放映狀態(tài)

End Sub

(3)編寫計分功能，在標準模塊代碼窗口輸入：

Sub defen()

MsgBox "您的得分是：" & Score

SlideShowWindows(1).View.Next

End Sub

(4)代碼編寫完后，還要將各幻燈片中的按鈕與相應(yīng)的代碼進行關(guān)聯(lián)。從VBE環(huán)境切換到第一張幻燈片，單擊“提交答案”按鈕邊框，單擊功能區(qū)[插入]→[鏈接]→[動作]按鈕，打開[動作設(shè)置]對話框，選中[運行宏]并從下拉列表中選擇對應(yīng)的宏的過程名(Slide1.xuanze1)即可。將第2張幻燈片中的按鈕鏈接到名為“得分”的宏。

3.4.2 編寫填空題代碼

填空題的設(shè)計思路與選擇題相同，編寫方法也類似，只需判斷文本框控件中輸入的內(nèi)容與指定內(nèi)容是否相同即可。代碼編寫及操作除填空題模塊不同外，得分等模塊代碼與操作均相同。本例中Slide1的代碼如下：

Sub tiankong1()

My.Score=0

If TextBox1.Text="1" Then’該空答案為1，且為文本型

MsgBox"您答對了": My.Score=My.Score+10

Else

MsgBox"您答錯了"

End If

SlideShowWindows(1).View.Next

End Sub

完成代碼編寫后，剩下的工作就是將按鈕與宏鏈接起來，即將第1張幻燈片中的按鈕鏈接到名為“Slide1.tiankong1”的宏，第2張中的按鈕鏈接到名為“得分”的宏。

3.5 制作試題主頁

完成各部分試題內(nèi)容的制作后，還需要在單獨的演示文稿中制作試題主頁。即在測試時，直接啟動試題主頁演示文稿，然后選擇需要的試題類型，并直接打開進行作答。不僅方便課件制作者統(tǒng)一制作管理不同類型的試題，還方便答題者按需選取。具體操作如下：

(1)新建一個演示文稿，輸入“請選擇題庫類型”“選擇題”“填空題”“退出”類似于目錄的文本內(nèi)容，并對其進行相關(guān)設(shè)置，如效果圖1中所示。

(2)為目錄文字設(shè)置超鏈接，方法不再贅述。只以本例而言，“選擇題”超鏈接到名為的演示文稿，“填空題”超鏈接到“填空題.pptm”。

(3)在單擊文字“退出”時，希望退出演示文稿的放映狀態(tài)，超鏈接沒有結(jié)束放映這項設(shè)置，所以將對其進行動作設(shè)置。單擊功能區(qū)[插入]→[鏈接]→[動作]按鈕，打開[動作設(shè)置]對話框，選中[超鏈接到]單選按鈕，下拉列表中選擇[結(jié)束放映]，將此演示文稿保存為“試題主頁.pptx”。至此，本例測試課件的設(shè)計與制作全部完成。

通過上述案例展示了ActiveX和VBA技術(shù)在PPT制作測試課件中的運用，然而程序的設(shè)計算法不同，代碼的精簡程度也不一樣 ，系統(tǒng)的運行效率也不同。因此，需要我們每個制作者繼續(xù)不斷地深入探索研究，以期簡單高效的設(shè)計制作方法。

4 結(jié)束語

引入交互性，改變了課件的結(jié)構(gòu)形式和表現(xiàn)方式，提高了課件的設(shè)計水平和應(yīng)用價值，為加強課件的演示效果開辟了廣闊的空間[6]。充分利用PowerPoint的ActiveX 控件和VBA技術(shù)，制作交互性和動態(tài)性強的高品質(zhì)課件，無疑是一條捷徑。希望通過本文的介紹，廣大教師不再將交互式課件的設(shè)計視為畏途，能順利開發(fā)出符合教育教學(xué)需求、功能強大的各類課件，進一步推進現(xiàn)代教育的進程。

[1]張春明.如何利用PowerPoint實現(xiàn)交互[J].電腦開發(fā)與應(yīng)用，2012(11):57-59.

[2]李燕梅.基于ActiveX控件的PowerPoint練習(xí)型課件制作[J].電腦知識與技術(shù),2013(27):6150-6152.

[3]葉永機.PowerPoint多媒體交互課件制作(百度文庫)[EB/OL].(2010-06-20).http://wenku.baidu.com/view/3e5d470203d8ce2foo6623d1.html.

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

[5]高軼俊.PowerPoint課件中如何制作單選題和多選題[J].中小學(xué)電教,2010(12):3-4.

[6]紀宏偉.基于ActiveX和VBA的PPT課件交互設(shè)計與實現(xiàn)[J].中國教育信息化，2011(16):63-65.

Design and Implementation of Test Courseware Based on VBA and ActiveX

GUO Qing

(Information Center College of Business,Shanxi University,Taiyuan 030031, China)

With the continuous development of the multimedia class production technology, interactive courseware has strong interactivity, flexibility and extensibility. Its unique advantages in the process of teaching and learning have

the favor from many teachers and students. Whether has the powerful interactive courseware, has become another index of teachers’ information literacy. To test the courseware as an example, this paper analyzed in detail using the ActiveX and VBA technology in PPT intelligent interactive steps, methods and skills, for the development and improvement of the multimedia courseware to provide the beneficial reference.

test courseware；VBA technology；ActiveX control；interaction

2014-11-06；修改日期: 2014-11-20

郭 晴(1979-)，女，碩士，實驗師，研究方向：計算機基礎(chǔ)、多媒體課件技術(shù)與軟件開發(fā)。

TP39；G642.4

A

10.3969/j.issn.1672-4550.2014.06.016