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

曹秀玉

唐山市豐潤區車軸山中學 河北唐山 064001

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

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

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個文本框并添加答案選項，注意要使題干、每個答案選項和答案分別處于各自的文本框中；把文本框拖動到適當的位置上。

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

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

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

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

6)保存課件。

2 制作填空題

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

現在以下面的內容為例，介紹如何制作具備交互性的填空題。

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

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

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

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

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

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

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

①Caption為判斷。

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

③Font為黑體一號字。

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

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

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

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

3 制作判斷題

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

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

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

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

①Caption為判斷；

② TextAlign為 2-fmTextAlignCenter；

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

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

具體方法：

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

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

③將屬性設置為Caption為開始答題，Font為黑體小一。

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=”錯誤，答案應為正確””，完成判斷題所提交答案正確與否的功能。

4 制作連線題

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

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

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

3)添加動畫。

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

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

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

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

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

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

4)測試動畫效果。

5)保存課件。

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

圖1