周體強(qiáng)

(麗水學(xué)院 計(jì)算機(jī)科學(xué)與技術(shù)系，浙江 麗水 323000)

PowerPoint使用簡單、兼容性好，廣泛用于制作廣告宣傳、產(chǎn)品演示、學(xué)術(shù)交流、演講、工作匯報(bào)、輔助教學(xué)等[1]，它是目前應(yīng)用于多媒體課件制作最廣泛的軟件。用控件與VBA制作多種類型的練習(xí)題，能很好地實(shí)現(xiàn)課件交互功能，本文以PowerPoint 2010版為例，談?wù)劸唧w制作方法。

1 單項(xiàng)選擇題

1.1 用控件“標(biāo)簽”添加VBA代碼

(1)題目部分制作。選擇“插入文本框橫排文本框”，生成橫排文本框，在其中輸入題目文字內(nèi)容。

(2)答案選項(xiàng)標(biāo)簽制作。選擇“開發(fā)工具控件標(biāo)簽”，修改其Caption屬性值為A答案選項(xiàng)內(nèi)容，用Font屬性設(shè)置字體大小。用相同方法制作B、C、D選項(xiàng)。

(3)標(biāo)簽VBA代碼添加。雙擊正確答案標(biāo)簽，打開代碼編輯器，在光標(biāo)處添加代碼：MsgBox "選擇正確！"，然后分別雙擊3個(gè)錯(cuò)誤答案標(biāo)簽，在光標(biāo)處添加代碼：MsgBox "選擇錯(cuò)誤！"[2]。

放映時(shí)單擊選項(xiàng)標(biāo)簽，彈出對話框顯示對錯(cuò)反饋。

1.2 用控件“選項(xiàng)按鈕”添加VBA代碼

(1)題目與選項(xiàng)文字制作。選擇“插入文本框橫排文本框”，生成橫排文本框，在其中輸入題目與答案選項(xiàng)文字內(nèi)容，用空格調(diào)整位置。

(2)答案選項(xiàng)按鈕制作。單擊“開發(fā)工具控件選項(xiàng)按鈕”，在答案A前繪制按鈕，B、C、D依序用相同方法制作。

(3)選項(xiàng)按鈕添加VBA代碼。雙擊正確答案前選項(xiàng)按鈕，打開VBA代碼編輯器，在光標(biāo)處添加代碼：MsgBox "選擇正確！"。然后分別雙擊其它3個(gè)選項(xiàng)按鈕，在光標(biāo)處添加代碼(控件名即為打開屬性窗口中首項(xiàng)“(名稱)”的值)：

MsgBox "選擇錯(cuò)誤！"

選項(xiàng)按鈕名稱.Value=False

放映時(shí)單擊選項(xiàng)按鈕，彈出對話框顯示對錯(cuò)反饋。

1.3 用控件“選項(xiàng)按鈕”與“命令按鈕”添加VBA代碼

(1)題目與選項(xiàng)文字制作。選擇“插入文本框橫排文本框”，拖動鼠標(biāo)生成橫排文本框，在其中輸入題目與答案選項(xiàng)文字內(nèi)容，用空格調(diào)整位置。

(2)答案選項(xiàng)按鈕制作。單擊“開發(fā)工具控件選項(xiàng)按鈕”，在答案A前繪制按鈕，B、C、D依序用相同方法制作。再制作判斷命令按鈕：選擇“開發(fā)工具控件命令按鈕”，繪制按鈕，修改屬性項(xiàng)Caption的值為“判斷”，修改屬性項(xiàng)Font字體大小。

(3)命令按鈕VBA代碼添加。雙擊“判斷”命令按鈕，打開代碼編輯窗口，在光標(biāo)處添加代碼：

If 正確選項(xiàng)按鈕名稱.Value=True Then

MsgBox "選擇正確！"

Else

MsgBox "選擇錯(cuò)誤！"

OptionButton1.Value=False

OptionButton2.Value=False

OptionButton3.Value=False

OptionButton4.Value=False

End If

放映時(shí)單擊選項(xiàng)按鈕，再單擊“判斷”命令按鈕彈出對話框顯示對錯(cuò)反饋。

2 填空題

2.1 用控件“文本框”添加VBA代碼

(1)題目部分制作。選擇“插入文本框橫排文本框”，生成橫排文本框，在其中輸入題目文字內(nèi)容，填空位置用空格突出。

(2)繪制答案文本框與判斷命令按鈕。選擇“開發(fā)工具控件文本框，在填空位置繪制控件文本框，用Font屬性設(shè)置填空字體大小。

(3)文本框VBA代碼添加。雙擊文本框控件，打開代碼編輯窗口，單擊右上角下拉按鈕選Keydown項(xiàng)，在光標(biāo)處添加代碼：

If KeyCode=13 Then

If 文本框名稱.Value="答案" Then

MsgBox "填寫正確！"

Else

MsgBox "填寫錯(cuò)誤！"

文本框名稱.Value=""

End If

End If

放映時(shí)單擊填空處輸入答案，回車彈出對話框顯示對錯(cuò)反饋。

2.2 用控件“文本框”與“命令按鈕”添加VBA代碼

(1)題目部分制作。選擇“插入文本框橫排文本框”，生成橫排文本框，在其中輸入題目文字內(nèi)容，填空位置用空格突出。

(2)繪制答案文本框與判斷命令按鈕。選擇“開發(fā)工具控件文本框，在填空位置繪制控件文本框，用Font屬性設(shè)置填空字體大小。再制作判斷命令按鈕：選擇“開發(fā)工具控件命令按鈕”，繪制按鈕，修改屬性項(xiàng)Caption值為“判斷”，修改屬性項(xiàng)Font字體大小。

(3)命令按鈕VBA代碼添加。雙擊“判斷”命令按鈕，打開代碼編輯窗口，在光標(biāo)處添加代碼：

If文本框名稱.Value="答案" Then

MsgBox "填寫正確！"

Else

MsgBox "填寫錯(cuò)誤！"

文本框名稱.Value=""

End If

放映時(shí)單擊填空處輸入答案，再單擊“判斷”命令按鈕，彈出對話框?qū)﹀e(cuò)反饋信息。

2.3 同頁多項(xiàng)填空題制作方法

可用控件“文本框”添加VBA代碼制作：每個(gè)填空添加判斷代碼，與前類似，只要改代碼中序號與答案為相應(yīng)填空序號與答案(其中“序號”，第1個(gè)填空為1，第2個(gè)填空為2)。也可用控件“文本框”與“命令按鈕”添加VBA代碼制作：每個(gè)填空加一“判斷”命令按鈕與添加判斷代碼，與前類似，只要改代碼中序號與答案為相應(yīng)填空序號與答案。還可合并為一個(gè)“判斷”命令按鈕，連續(xù)判斷。雙擊“判斷”命令按鈕，打開代碼編輯窗口，在光標(biāo)處添加代碼：

If TextBox1.Value="答案1" Then

MsgBox "填空1填寫正確！"

Else

MsgBox "填空1填寫錯(cuò)誤！"

TextBox1.Value=""

End If

If TextBox2.Value="答案2" Then

MsgBox "填空2填寫正確！"

Else

MsgBox "填空2填寫錯(cuò)誤！"

TextBox2.Value=""

End If

……

放映時(shí)輸入所有答案，再單擊“判斷”按鈕，彈出對話框，先顯示第1個(gè)填空對錯(cuò)反饋，單擊確定，關(guān)閉前一對話框，彈出后一個(gè)對話框，顯示第2個(gè)填空對錯(cuò)反饋信息，以此類推。

3 多項(xiàng)選擇題

(1)題目與選項(xiàng)文字制作。選擇“插入文本框橫排文本框”，生成橫排文本框，在其中輸入題目與答案選項(xiàng)文字內(nèi)容，用空格調(diào)整位置。

(2)答案復(fù)選框制作。單擊“開發(fā)工具控件復(fù)選框”，在答案A前繪制復(fù)選框，B、C、D依序用相同方法制作。再用上文所述方法制作“判斷”命令按鈕。

(3)命令按鈕VBA代碼添加。雙擊“判斷”命令按鈕，打開代碼編輯窗口，在光標(biāo)處添加代碼(假設(shè)答案2對2錯(cuò))：

If 正確答案1復(fù)選框名稱.Value=True And正確答案2復(fù)選框名稱.Value=True And CheckBox錯(cuò)誤答案1復(fù)選框名稱.Value=False And錯(cuò)誤答案2復(fù)選框名稱.Value=False Then

MsgBox "選擇正確！"

Else

MsgBox "選擇錯(cuò)誤！"

CheckBox1.Value=False

CheckBox2.Value=False

CheckBox3.Value=False

CheckBox4.Value=False

End If

放映時(shí)單擊復(fù)選框，再單擊“判斷”命令按鈕，彈出對話框顯示對錯(cuò)反饋。

4 結(jié)語

在用PowerPoint制作多媒體教學(xué)課件時(shí)，充分、靈活運(yùn)用控件與VBA工具，可提升課件技術(shù)含量，加強(qiáng)課件交互功能，使課件展示更人性化、智能化。