利用VBA程序制作高中化學練習題

曹秀玉

唐山市豐潤區(qū)車軸山中學 河北唐山 064001

教師已經(jīng)習慣了應(yīng)用多媒體進行授課，但是多媒體主要是用于教學過程中的新授課環(huán)節(jié)。而當新授課教學任務(wù)完成之后，教師就要進行課堂檢測，此時通常的做法就是拿出一本練習冊指定某頁某題，然后學生就是埋頭做題了。這時多媒體就成了一種擺設(shè)，發(fā)揮不了其相應(yīng)的作用?；谶@種現(xiàn)象，在這里筆者和大家探討一下如何利用Power-Point制作練習型課件，以增強教師與學生的互動性，從而更進一步提高課堂的時效性。

運用PowerPoint制作練習題的關(guān)鍵就是對VBA程序的熟練使用。如果教師能夠破解VBA程序語言的秘密，就能夠成功地制作出各式各樣翻新出奇的練習題，讓自己的課堂變得更加精彩。同時，教師更好地發(fā)掘PowerPoint的功能，靈活制作練習型課件，讓多媒體更好地為教學服務(wù)。

1 制作選擇題

選擇題是課堂練習中常見的題型，通常分為兩種形式：單選和多選。通常情況下，選擇題是由一個題干和幾個備選答案組成。制作選擇題可以使用自定義動畫的形式。下面筆者以高中化學教材中的一道單選題為例，介紹一下如何制作選擇題。

A.υ(A)=0.5 mol/(L·s)

B.υ(B)=0.3 mol/(L·s)

C.υ(C)=0.8 mol/(L·s)

D.υ(D)=1 mol/(L·s)

1)添加題目：單擊“插入”選項卡，單擊“文本框”，在幻燈片的適當位置拖出文本框并輸入文本信息，在題干后添加一個文本框輸入“B”，再分別添加4個文本框并添加答案選項，注意要使題干、每個答案選項和答案分別處于各自的文本框中；把文本框拖動到適當?shù)奈恢蒙稀?/p>

2)設(shè)置字體格式：排列對齊4個答案的文本框，將所有文本框選中，設(shè)置字體為“宋體”，字號為“18”。

3)設(shè)置自定義動畫：選中“答案文本框”，單擊“動畫”選項卡，單擊“淡出”。

4)設(shè)置觸發(fā)對象：單擊“動畫”選項卡，單擊“動畫窗格”，展開“動畫窗格”對話框，右擊“TextBox6:B”，單擊計時，彈出“淡出”對話框，在觸發(fā)器命令下選擇“單擊下列對象時啟動效果”，選擇“TextBox3:B.υ(B)=0.3 mol/(L·s)”，設(shè)置完成觸發(fā)器。

5)放映課件：檢查測試動畫是否設(shè)置成功。

6)保存課件。

2 制作填空題

PowerPoint提供了大量的應(yīng)用程序用于實現(xiàn)客戶間的交互功能。VBA程序就是為編寫程序完成某些功能提供的工具，VBA程序常用于交互型的練習課件制作過程中。填空題是習題中常見的一種題型，用于考查學生對于某些文章段落、概念原理等知識點的記憶情況，在高中化學習題中也經(jīng)常出現(xiàn)填空題。

現(xiàn)在以下面的內(nèi)容為例，介紹如何制作具備交互性的填空題。

【題目】對于反應(yīng)2SO2+O22SO3，如果2 min內(nèi)SO2的濃度由6 mol/L下降為2 mol/L，那么，用SO2濃度變化來表示的化學反應(yīng)速率為( )。

1)輸入文本，插入文本框，輸入題干內(nèi)容，設(shè)置好字體、字號、段落。

2)添加文本框控件，在題目預(yù)留的空格處添加文本框控件。具體做法：

①單擊“開發(fā)工具”選項卡，單擊帶方框的ab按鈕；

②在題干的空格處拖動出一個文本框控件；

③修飾文本框控件，選中文本框控件，選擇“開發(fā)工具”中的“屬性”命令，設(shè)置BackColor的調(diào)色板為二行6列顏色。

3)添加按鈕控件。單擊“開發(fā)工具”選項卡中的按鈕命令，在幻燈片的適當位置拖拽出一個按鈕，單擊“屬性”命令，在彈出的屬性面板中修改設(shè)置。

①Caption為判斷。

②BackColor為一行7列樣式的顏色。

③Font為黑體一號字。

④添加判斷程序：雙擊“判斷”按鈕，打開VBA編輯窗口，輸入程序代碼，完成判斷功能。程序代碼：

If TextBox1.Value="2mol/(L·min)”Then MsBox”填寫正確！”，vbOKOnly，”結(jié)果” Else MsgBox”填寫錯誤！”，vbOKOnly，”提示”End If。

4)添加清空程序：雙擊“清空重填”按鈕，在VBA編輯窗口中輸入“TextBox1.Value=""”。

5)保存課件，將課件保存為啟用宏的演示文稿(擴展名為.pptm)。

3 制作判斷題

在課堂練習中，為了檢查學生對于某些知識點的領(lǐng)悟程度，教師通常要出一些判斷題。為了檢測常識性概念的掌握程度，判斷題能夠經(jīng)常起到一針見血的作用，從而達到讓學生是非分明、準確把握。判斷題是一種用對或者錯來回答的題型，最明顯的表現(xiàn)是先寫出一句話，然后在其后的括號內(nèi)打上對號或者差號。具體做法通常是在每道判斷題的后面放置一個“切換”按鈕，以便為該題打上對號或者是錯號。最后單擊“提交答案”按鈕用于提交該題的答案?，F(xiàn)在以一道高中化學的判斷題為例進行說明。

1)制作題目。插入一個橫排文本框，在里面輸入題目，題目內(nèi)容：“1.與水反應(yīng)生成酸的氧化物，不一定是該酸對應(yīng)的酸性氧化物( )”。設(shè)置字體、字號。

2)添加切換按鈕。在題后的括號內(nèi)插入切換按鈕，具體方法：單擊“開發(fā)工具”下的“切換控件”按鈕，在題后括號內(nèi)拖畫出該控件。

3)修改其屬性。選中切換按鈕，單擊“屬性”命令，打開“屬性”面板，具體設(shè)置：

①Caption為判斷；

② TextAlign為 2-fmTextAlignCenter；

③Font為宋體二號(TextAlign為文本的對齊方式)。

4)制作“開始答題”按鈕。在所有判斷題的下面適當位置上插入按鈕控件，并完成該按鈕的制作。

具體方法：

①單擊“按鈕”控件，在幻燈片適當位置托拽出一個按鈕；

②選中該控件，單擊“屬性”，展開屬性面板；

③將屬性設(shè)置為Caption為開始答題，F(xiàn)ont為黑體小一。

5)制作“提交答案”按鈕，制作方法同“開始答題”的按鈕制作一樣。

6)添加VBA程序。雙擊按鈕控件，在VBA代碼編輯窗口中用VB語言編寫程序代碼，完成交互判斷題的制作。

①添加切換按鈕程序“If ToggleButton1.Value =True Then ToggleButton1.Caption = “√””，下一行為“Else ToggleButton1.Caption = “×””；

②添加“開始答題”程序，雙擊“開始答題”按鈕，在VBA編輯窗口中輸入程序代碼“ToggleButton1.Caption= “判斷””，完成開始答題初始化功能；

③添加“提交答案”程序，雙擊“提交答案”程序，在VBA編輯窗口中輸入程序代碼“If ToggleButton1.Value = True And ToggleButton1.Caption ◇”判斷”下行為_Then no1=”正確”Else no1=”錯誤，答案應(yīng)為正確””，完成判斷題所提交答案正確與否的功能。

4 制作連線題

在日常的教學中，教師經(jīng)常要制作一些連線題用于考查學生對所學知識的匹配性的理解程度。連線題的特點就是由一個題目和左右若干個匹配選項組成，答題過程是這樣的：把左右兩邊題意相符的選項用直線連接起來?，F(xiàn)以高中化學中的一道連線題為例，介紹如何制作這種題型課件。

1)制作連線題選項：插入橫排文本框若干次并輸入相應(yīng)文字內(nèi)容，設(shè)置好字體字號，將文本框排列對齊，效果如圖1所示。

2)繪制連線：利用“插入”選項卡下的“形狀”中的“直線”工具繪制連線，并設(shè)置線型寬度為2磅，完成選項之間連線的制作過程。

3)添加動畫。

①同時選中四條直線，選擇“動畫”選項卡，單擊“添加動畫”；

②單擊“擦除”命令，彈出“動畫窗格”；

③右擊“動畫窗格”中的組合，在展出的下拉菜單中選擇“效果選項”，彈出“擦除”對話框；

④在“擦除”對話框中，單擊“效果”選項卡，在設(shè)置方向后選擇“自左側(cè)”；

⑤調(diào)整動畫順序，選擇“動畫菜單”，選中“動畫窗格”中的第二條直接連接符，右擊“動畫窗格”下面的“重排順序”命令；

⑥按照上面的步驟依次調(diào)整動畫順序，同時設(shè)置“開始”后的下拉菜單中選擇“單擊時”。

4)測試動畫效果。

5)保存課件。

在PowerPoint中，經(jīng)常要用VBA語言編寫程序，這些程序叫做“宏”。當運行帶有“宏”的文件時，Power-Point就會通過其自檢功能查到并提示用戶注意，讓用戶自行選擇是否啟用“宏”。如果取消，課件就不能實現(xiàn)某些功能。

圖1