仝海燕,呂洪善,秦春影,賈爽

(1.亳州師范高等專科學(xué)校理化系;2.亳州職業(yè)技術(shù)學(xué)院電子與電氣工程系,安徽亳州236800)

基于VBA的交互性習(xí)題的設(shè)計(jì)

仝海燕1,呂洪善2,秦春影1,賈爽1

(1.亳州師范高等?？茖W(xué)校理化系;2.亳州職業(yè)技術(shù)學(xué)院電子與電氣工程系,安徽亳州236800)

當(dāng)前,大部分課件制作者都是利用自定義動(dòng)畫和觸發(fā)器制作,很少有人用VBA控件實(shí)現(xiàn)具有交互性的習(xí)題. VBA作為O ffice系列軟件的二次開(kāi)發(fā)和擴(kuò)展工具,在課件制作中能夠起到很好的輔助作用.以單項(xiàng)選擇題為例,分析了在PowerPoint課件中具有交互性的習(xí)題設(shè)計(jì)方法,指出了在習(xí)題數(shù)量較少和較多的情況下,如何使用VBA編程語(yǔ)言和Access數(shù)據(jù)庫(kù)相關(guān)技術(shù)制作符合學(xué)習(xí)認(rèn)知規(guī)律、自主選擇、交互性更好的習(xí)題.

VBA編程;課件;VB控件;Access數(shù)據(jù)庫(kù);認(rèn)知

隨著信息技術(shù)的不斷發(fā)展,很多學(xué)校都引進(jìn)了大量的多媒體教學(xué)設(shè)施,有效的利用這些多媒體設(shè)施可以很好的提高教學(xué)質(zhì)量.要充分的利用這些設(shè)施,教師就要在教學(xué)中根據(jù)具體授課情況制作符合學(xué)生認(rèn)知的課件.目前,制作課件的工具有很多,如Authorware、Flash、PowerPoint等軟件都可以實(shí)現(xiàn)課件的制作.相比較而言,PowerPoint軟件具有使用簡(jiǎn)單,易學(xué)易用,兼容性好等優(yōu)點(diǎn),在實(shí)際課件制作中,深受廣大使用者的歡迎.

有些人認(rèn)為,利用PowerPoint制作交互性習(xí)題時(shí),沒(méi)有其他軟件制作的效果明顯.也有些教師為方便起見(jiàn),直接將題目和答題選項(xiàng)輸入在幻燈片上,只是將答案用不同的顏色表示,忽視了習(xí)題的交互性.另外,有些教師為了加上一些交互效果,大多采用自定義動(dòng)畫和觸發(fā)器的方法來(lái)實(shí)現(xiàn)習(xí)題的交互.這兩種方式,雖在一定程度上實(shí)現(xiàn)了交互,但對(duì)學(xué)生在課下自主學(xué)習(xí)的時(shí)候,就不能自主的按照認(rèn)知規(guī)律進(jìn)行相應(yīng)的選擇或輸入相應(yīng)的答案,交互效果不能起到很好的作用.在PowerPoint課件中,要制作具有交互性好的習(xí)題,可以利用Office自帶的VBA工具來(lái)實(shí)現(xiàn).以單項(xiàng)選擇題為例,探討利用VBA工具和Access的相關(guān)技術(shù),實(shí)現(xiàn)交互性更好、更符合學(xué)生自主選擇和認(rèn)知規(guī)律的習(xí)題設(shè)計(jì)方法.

1 VBA簡(jiǎn)介及在PowerPoint 2010環(huán)境下VBA編程環(huán)境的進(jìn)入

1.1 VBA簡(jiǎn)介

VBA是Visual Basic for Application的縮寫,是微軟開(kāi)發(fā)的一種應(yīng)用程序共享的自動(dòng)化編程語(yǔ)言,用于Office系列軟件功能的二次開(kāi)發(fā)和擴(kuò)展,被內(nèi)置在Office系列軟件中.用戶利用VBA技術(shù)可以極大的增加Office系列軟件的交互性.它與VB的開(kāi)發(fā)環(huán)境相似,不同之處是VB程序可以獨(dú)立運(yùn)行,而VBA必須依賴于相應(yīng)的應(yīng)用程序[1].

1.2 VBA編程環(huán)境的進(jìn)入

首先,啟動(dòng)PowerPoint 2010,建立一張幻燈片,為了編輯的直觀性,可以將該幻燈片的版式設(shè)置為空白版式.

其次,將"開(kāi)發(fā)工具"選項(xiàng)卡顯示出來(lái),VBA的相關(guān)按鈕在"開(kāi)發(fā)工具"選項(xiàng)卡中,而默認(rèn)情況下,該選項(xiàng)卡是不顯示的.

顯示"開(kāi)發(fā)工具"選項(xiàng)卡的方法:單擊PowerPoint2010"文件"菜單,選擇"選項(xiàng)"命令,在出現(xiàn)的對(duì)話框的左側(cè)列表中選擇"自定義功能區(qū)",在右側(cè)"主選項(xiàng)卡"中將"開(kāi)發(fā)工具"前面的復(fù)選框選中,然后單擊"確定",即可在PowerPoint的選項(xiàng)卡中顯示"開(kāi)發(fā)工具"選項(xiàng)卡.

最后,單擊"開(kāi)發(fā)工具"選項(xiàng)卡,利用其相應(yīng)功能區(qū)的相關(guān)按鈕即可進(jìn)入VBA的編輯環(huán)境.

2 基于VBA的PowerPoint課件習(xí)題的設(shè)計(jì)

以單選題為例,闡述利用VBA實(shí)現(xiàn)題量少與多時(shí),具有較好交互性的習(xí)題設(shè)計(jì)方法.

2.1 題量不多時(shí)的設(shè)計(jì)方法

如果制作的習(xí)題數(shù)量不多,可以利用VBA的相關(guān)控件直接將題目制作在幻燈片中.例如,實(shí)現(xiàn)如圖1所示的選擇題效果.

圖1 單選題效果圖

用戶可以根據(jù)自己的想法進(jìn)行自主的選擇答案,想核對(duì)選擇的正確與否可以單擊"查看答案"按鈕,屏幕出現(xiàn)相應(yīng)的答案,再在答案上單擊一下鼠標(biāo),答案隱藏起來(lái).

具體實(shí)現(xiàn)步驟如下:

第一,在課件的某張幻燈片上輸入相應(yīng)的標(biāo)題和具體的題目.

第二,利用VBA控件中的單選按鈕制作答案選項(xiàng),詳細(xì)設(shè)計(jì)為:選擇"開(kāi)發(fā)工具"選項(xiàng)卡中"控件功能區(qū)"的"單選按鈕"控件,題目的下方制作單元按鈕.選中剛制作的單選按鈕控件,然后選擇"控件"功能區(qū)中的"屬性"按鈕,打開(kāi)"屬性"窗口,設(shè)置該按鈕的"caption"屬性為相應(yīng)的答案數(shù)據(jù).按照類似的方法,制作其他選項(xiàng)的單選按鈕,并修改相應(yīng)的屬性值.制作好4個(gè)單選按鈕后,按住Shift依此將這四個(gè)單選按鈕選中,利用"開(kāi)始"選項(xiàng)卡的"繪圖"功能區(qū)的"排列"功能,設(shè)置其對(duì)齊方式,使界面更加美觀些.

第三,利用"控件"功能區(qū)的"命令按鈕"制作"查看答案"按鈕.在題目選項(xiàng)的下方制作命令按鈕,并設(shè)置屬性如圖2(左)所示.

第四,利用"控件"功能區(qū)的"標(biāo)簽"控件,在"查看答案"按鈕的右側(cè)制作文字標(biāo)簽控件,用來(lái)顯示參考答案.設(shè)置屬性值如圖2(右)所示.

第五,在幻燈片中雙擊"查看答案",進(jìn)入其代碼編輯界面,輸入代碼: LabelDa.Caption="答案為:"+"A".雙擊"標(biāo)簽"控件,進(jìn)入其代碼編輯界面,輸入代碼:

圖2 "查看答案"按鈕的屬性值(左)和"標(biāo)簽"的屬性值(右)

LabelDa.Caption="".

按照上面描述的方法,在幻燈片上制作其他的選擇題目即可.

2.2 題量較多時(shí)的設(shè)計(jì)方法

如果題目數(shù)量較多時(shí),采用上述方法則工作量太大,制作過(guò)程比較麻煩.為解決此問(wèn)題,可以將VBA技術(shù)和Access數(shù)據(jù)庫(kù)技術(shù)相結(jié)合,來(lái)制作題量大、交互性好且易于管理的習(xí)題.

2.2.1 VBA與Access數(shù)據(jù)庫(kù)的連接

VBA與數(shù)據(jù)庫(kù)的連接一般采用ADO方式,ADO是目前通用的數(shù)據(jù)庫(kù)訪問(wèn)技術(shù).在連接數(shù)據(jù)庫(kù)時(shí)要用到Connection、Recordset對(duì)象.

(1)Connection:建立應(yīng)用程序與數(shù)據(jù)源的連接.只有連接成功后,Recordset對(duì)象才能訪問(wèn)某個(gè)數(shù)據(jù)庫(kù). (2)Recordset:執(zhí)行數(shù)據(jù)訪問(wèn)或SQL命令得到動(dòng)態(tài)記錄集,它被緩存在內(nèi)存中[2].

2.2.2 題量多時(shí)的設(shè)計(jì)方法

對(duì)于習(xí)題量大的情況,可以利用Access制作相應(yīng)的習(xí)題庫(kù).下面以單選題為例,來(lái)說(shuō)明利用VBA和數(shù)據(jù)庫(kù)技術(shù)實(shí)現(xiàn)多題量的設(shè)計(jì)方法.

在幻燈片中單擊"單項(xiàng)選擇題練習(xí)"按鈕,進(jìn)入如圖3(左)所示的做題歡迎界面.單擊"開(kāi)始練習(xí)"按鈕,即可進(jìn)入做題界面(圖3右)

圖3 習(xí)題初始界面(左)和做題界面(右)

開(kāi)始做題時(shí),"上一題"按鈕處于灰色不可用狀態(tài),到最后一題時(shí),"下一題"按鈕處于灰色不可用狀態(tài),其他情況下均可用.做題過(guò)程中可以隨時(shí)通過(guò)單擊"結(jié)束"按鈕和"查看答案"按鈕結(jié)束做題或查看答案.

利用這種方法設(shè)計(jì)的習(xí)題,交互性比較好,學(xué)生可以自主的進(jìn)行相應(yīng)的選擇,更加符合學(xué)生的認(rèn)知心理,且題庫(kù)管理也非常容易.

(1)制作習(xí)題庫(kù)

將題目信息利用Access軟件制作成題庫(kù)文件.本例中題庫(kù)文件名為xtk.mdb,保存在D盤的根目錄中.該數(shù)據(jù)庫(kù)中設(shè)計(jì)一張表xt用來(lái)存儲(chǔ)習(xí)題的具體信息,結(jié)構(gòu)設(shè)計(jì)如圖4所示.習(xí)題庫(kù)中包含timu、dA、dB、dC、dD和answer六個(gè)字段,分別表示題目的描述、四個(gè)答案選項(xiàng)和參考答案.

(2)制作習(xí)題的布局界面

1)制作歡迎界面

圖4 習(xí)題庫(kù)信息

在PPT編輯環(huán)境中,選擇"開(kāi)發(fā)工具"選項(xiàng)卡中的"代碼"功能區(qū)中的"Visual Basic"按鈕,進(jìn)入VBA的編程環(huán)境.在編程環(huán)境中,選擇"插入"菜單中的"用戶窗體"命令,則在VBA的編輯環(huán)境中插入一個(gè)窗體UserForm1.選中該窗體,選擇常用工具欄中的"屬性窗口"按鈕,將其"名稱"屬性設(shè)置為XY,"caption"屬性設(shè)置為空,其他默認(rèn).

選擇常用工具欄中的"工具箱"按鈕,在窗體XY中制作一個(gè)文字標(biāo)簽控件和一個(gè)按鈕控件,分別設(shè)置這兩個(gè)控件的屬性.

2)制作習(xí)題界面

利用(1)中介紹的方法,制作習(xí)題窗體,設(shè)置"名稱"屬性為UserFormXZT,"Caption"屬性為"單項(xiàng)選擇題".

在窗體UserFormXZT中插入1個(gè)標(biāo)簽控件(其"名稱"屬性設(shè)置為L(zhǎng)abelTM,"Caption"屬性為空)用來(lái)顯示題目描述,4個(gè)單選按鈕控件和相應(yīng)的四個(gè)文字標(biāo)簽控件(單選按鈕控件"Caption"屬性設(shè)置為空,其他默認(rèn),文字標(biāo)簽控件屬性的名稱分別設(shè)置為L(zhǎng)abelDaA、LabelDaB、LabelDaC、LabelDaD,"Caption"屬性均為空)用來(lái)顯示答題信息,4個(gè)命令按鈕用來(lái)制作"查看答案"、"上一題"、"下一題"和"結(jié)束"按鈕,"查看答案"按鈕右側(cè)插入1個(gè)文字標(biāo)簽控件,用來(lái)顯示具體的答案.這4個(gè)按鈕及標(biāo)簽控件的的"名稱"屬性分別設(shè)置為ButtonCKDA、ButtonSYT、ButtonXYT、ButtonJS和LabelCKDA,"Caption"屬性分別設(shè)置為"查看答案"、"上一題"、"下一題"、"結(jié)束"和"空".將相應(yīng)的控件按照效果圖進(jìn)行排列,布局好其相應(yīng)位置.

3)利用VBA實(shí)現(xiàn)各控件相應(yīng)的功能

要實(shí)現(xiàn)VBA與Access題庫(kù)的連接,在打開(kāi)Visual Basic編輯器上,執(zhí)行"工具"菜單項(xiàng)下的"引用"命令,激活"引用"對(duì)話框,從打開(kāi)的"引用"列表中選擇"Microsoft ActiveX Data Objects 2.8 Library"一項(xiàng),然后單擊"確定"按鈕,把它引用到PowerPoint幻燈片中[3].

在VBA開(kāi)發(fā)環(huán)境的左側(cè),雙擊XY窗體,打開(kāi)其對(duì)象編輯窗口,再雙擊"開(kāi)始練習(xí)"按鈕,進(jìn)入代碼編輯窗口,輸入代碼:

XY.Hide

UserFormXZT.Show.

雙擊UserFormXZT窗體,選擇"視圖"菜單中的"代碼窗口"切換到該窗體的代碼編輯界面.

在該界面的最前面,設(shè)置變量:

Dim sn As ADODB.Recordset

Dim cn As ADODB.Connection

Dim rownum As Integer,CurrentRow As Integer,CurrentNum As Integer

Dim XT_Array(100,5)As String.

在窗體UserFormXZT的Initialize過(guò)程中輸入代碼:

ButtonST.Enabled=False

Dim constring As String

Set sn=New ADODB.Recordset

Set cn=New ADODB.Connection

constring="provider=microsoft.jet.OLEDB.4.0;"&"data source="&"d:xtk.mdb"

cn.Open constring

sn.Open"xt",cn,adOpenStatic

CurrentRow=1

With sn

DoWhile Not.EOF

XT_Array(CurrentRow,0)=sn.Fields(0)

XT_Array(CurrentRow,1)=sn.Fields(1)

XT_Array(CurrentRow,2)=sn.Fields(2)

XT_Array(CurrentRow,3)=sn.Fields(3)

XT_Array(CurrentRow,4)=sn.Fields(4)

XT_Array(CurrentRow,5)=sn.Fields(5)

CurrentRow=CurrentRow+1

.MoveNext

Loop

rownum=CurrentRow-1

End With

CurrentNum=1

LabelTM.Caption=XT_Array(CurrentNum,0)

LabelDaA.Caption=XT_Array(CurrentNum,1)

LabelDaB.Caption=XT_Array(CurrentNum,2)

LabelDaC.Caption=XT_Array(CurrentNum,3)

LabelDaD.Caption=XT_Array(CurrentNum,4).

在"下一題"按鈕的代碼窗口中代碼:

Private Sub ButtonXT_Click()

LabelCKDA.Caption=""

ButtonST.Enabled=True

CurrentNum=CurrentNum+1

If CurrentNum=rownum Then ButtonXT.Enabled=False

…

End Sub.

"上一題"按鈕的代碼窗口中,代碼:

Private Sub ButtonST_Click()

LabelCKDA.Caption=""

ButtonXT.Enabled=True

CurrentNum=CurrentNum-1

If CurrentNum<=1 Then ButtonST.Enabled=False

…

End Sub.

其中"…"處的代碼同Initialize過(guò)程的最后5行.

在"結(jié)束"按鈕的代碼窗口中輸入代碼:

UserFormXZT.Hide.

"查看答案"按鈕的代碼窗口中輸入代碼

LabelCKDA.Caption="答案為:"+XT_Array(CurrentNum,5).

最后,在PowerPoint制作的課件幻燈片中制作一個(gè)"命令按鈕"控件,設(shè)置其名稱屬性為DXLX,caption屬性為"單項(xiàng)選擇題練習(xí)",其他屬性默認(rèn).雙擊該按鈕,在其代碼窗口中輸入代碼:

XY.Show.

注意:要在幻燈片中運(yùn)行VBA開(kāi)發(fā)的代碼,必須將PowerPoint文件保存為"啟用宏的演示文稿"類型.在放映幻燈片中,單擊"單項(xiàng)選擇題練習(xí)"按鈕即可進(jìn)入相應(yīng)的界面.

3 結(jié)語(yǔ)

VBA是為Office設(shè)計(jì)的,作為Office軟件之一的PowerPoint,如果在使用PowerPoint制作課件時(shí),如果能與VBA編程相結(jié)合[4],充分的利用VBA工具,可以使制作出的課件的交互功能得到大大的增強(qiáng)[5].文中介紹的利用VBA和數(shù)據(jù)庫(kù)技術(shù)針對(duì)題量多的情況下做的習(xí)題設(shè)計(jì),具有易于管理、交互性好的特點(diǎn),更加符合使用者的認(rèn)知學(xué)習(xí).

[1]郭紅.基于VBA技術(shù)的CAI課件制作[J].華北科技學(xué)院學(xué)報(bào),2007,4(3):92-95.

[2]黨小云.于衛(wèi)紅.VBA在多媒體課件中的應(yīng)用[J].電腦編程技巧與維護(hù),2012(2):130-132.

[3]顏清.PowerPoint課件中基于VBA的習(xí)題設(shè)計(jì)[J].計(jì)算機(jī)與現(xiàn)代化,2006(2):80-84

[4]李文江.VBA在PowerPoint課件中的應(yīng)用[J].重慶文理學(xué)院學(xué)報(bào):自然科學(xué)版,2006,5(1):27-29.

[5]程昌品.VBA在課件交互設(shè)計(jì)中的應(yīng)用[J].電腦學(xué)習(xí),2005(1):25-26.

On the design of interactive exercises based on VBA

TONGHai-yan1,LV Hong-shan2,QIN Chun-ying1,JIA Shuang1
(1.Physical and Chemical Department,Bozhou Teachers College;2.Electrical and Electronic Engineering Department,Bozhou Vocational and Technical College,Bozhou 236800,Anhui,China)

At present,most courseware producers use the custom animation and flips flops,but few people use the VBA controls,to carry out active exercises.VBA as the two developments and expansion tool of office series software can play a good supporting role in making courseware.As an example to the single item choice,the paper analyses the design method of interactive exercises in PowerPoint courseware,in the exercise of fewer and more cases,and points out how to use the VBA programming language and Access database technology tomake more interactive exercises in line with the cognitive laws,self-selection and interactive principles.

VBA programming;courseware;VB controls;Access database;cognition

TP311

:A

:1007-5348(2014)06-0024-06

(責(zé)任編輯:歐愷)

2014-04-27

2013安徽省高校省級(jí)優(yōu)秀青年人才基金重點(diǎn)項(xiàng)目(2013SQRL127ZD);2013安徽省高等教育振興計(jì)劃項(xiàng)目(2013cgtg040).

仝海燕(1979-),女,安徽碭山人,亳州師范高等專科學(xué)校理化系講師,碩士,主要從事軟件測(cè)試、模式識(shí)別與智能系統(tǒng)的研究.