王 清

（無錫商業(yè)職業(yè)技術(shù)學(xué)院，江蘇 無錫 214153）

1 添加VBA開發(fā)工具

打開空白的PPT2016頁(yè)面，選擇“文件”下拉菜單中的“選項(xiàng)”，在彈出的對(duì)話框中左側(cè)列表中選擇“自定義功能區(qū)”，然后在右側(cè)勾選“開發(fā)工具”復(fù)選框，單擊“確定”。這時(shí)候在PPT2016的菜單選項(xiàng)中就多了一個(gè)“開發(fā)工具”菜單選項(xiàng)[1]。

在PPT的標(biāo)題處輸入“北京冬奧會(huì)知識(shí)有獎(jiǎng)問答”，副標(biāo)題處輸入“主辦：某某大學(xué)生社團(tuán)服務(wù)中心”。然后對(duì)標(biāo)題和副標(biāo)題的字體樣式進(jìn)行設(shè)置，并設(shè)置幻燈片的版式，再插入4張空白的“標(biāo)題和內(nèi)容”版式幻燈片。

2 制作選擇題

（1）在第二張幻燈片標(biāo)題處輸入文字“一、單選題”，在文本框內(nèi)輸入試題文字“北京冬奧會(huì)在哪一年舉辦？”。

（2）單擊“開發(fā)工具”→“控件”→“選項(xiàng)按鈕”圖標(biāo)，在試題下方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”對(duì)話框中，將“Caption”的值改為“A:”，根據(jù)實(shí)際應(yīng)用需求還可以修改其他的屬性設(shè)置，比如字體、字號(hào)、顏色、按鈕的寬度、高度等等。

（3）在選項(xiàng)按鈕旁添加一個(gè)文本框，輸入文字“2000年”。

（4）按照同樣方法添加B、C、D選項(xiàng)按鈕，并修改它們的“Caption”值分別為“B:”“C:”“D:”，添加相應(yīng)的文本框并輸入文字分別為“2008年”“2020年”“2022年”，然后調(diào)整各個(gè)按鈕和文本框到合適的位置。

（5）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”對(duì)話框中，將“Caption”的值改為“提交”，并在屬性對(duì)話框中設(shè)置其字體、字號(hào)、顏色等。

（6）選中“檢驗(yàn)”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼If OptionButton4.Value = True表示設(shè)置該選擇題的正確答案是第4個(gè)按鈕，然后選擇每個(gè)選項(xiàng)會(huì)彈出相應(yīng)的提示。

（7）在第三張“標(biāo)題和內(nèi)容”版式的幻燈片標(biāo)題處輸入文字“二、多選題”，在文本框內(nèi)輸入試題文字“下列哪些城市曾經(jīng)舉辦過冬奧會(huì)？”。

（8）單擊“開發(fā)工具”→“控件”→“復(fù)選框”圖標(biāo)，在試題下方繪制出該復(fù)選框。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“A:”，根據(jù)實(shí)際應(yīng)用需求還可以修改其他的屬性設(shè)置。在復(fù)選框旁添加一個(gè)文本框，在其中輸入文字“韓國(guó)-平昌”。

（9）按照同樣方法添加B、C、D復(fù)選框，并修改它們的“Caption”值分別為“B:”“C:”“D:”。添加相應(yīng)的文本框并輸入文字分別為“俄羅斯-索契”“意大利-都靈”“美國(guó)-鹽湖城”，然后調(diào)整各個(gè)按鈕和文本框到合適的位置。

（10）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”對(duì)話框中，將“Caption”的值改為“提交”。

（11）選中“提交”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼Check Box1.Value = Tr ue A nd CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True表示設(shè)置該多選題的正確答案是同時(shí)選擇4個(gè)復(fù)選框按鈕，然后選擇每個(gè)選項(xiàng)會(huì)彈出相應(yīng)的提示。

（12）保存該演示文稿，放映幻燈片查看多選題的效果，按照相同的方式可以制作更多的多選題。

3 制作填空題

（1）在第四張“標(biāo)題和內(nèi)容”版式的幻燈片標(biāo)題處輸入文字“三、填空題”，在文本框內(nèi)輸入試題文字“中國(guó)第一個(gè)獲得冬奧會(huì)冠軍的運(yùn)動(dòng)員是 ?！薄?/p>

（2）單擊“開發(fā)工具”→“控件”→“文本框”圖標(biāo)，在試題文字中需要填空的地方繪制出該文本框。

（3）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”。

（4）選中“提交”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼TextBox1.Value = “楊揚(yáng)”表示設(shè)置該填空題的正確答案是“楊揚(yáng)”，在文本框中填入答案后單擊“提交”按鈕，會(huì)彈出相應(yīng)的提示，如圖4所示。

（5）保存該演示文稿，放映幻燈片查看填空題的效果，按照相同的方式可以制作更多的填空題。

4 制作是非題

（1）在第五張“標(biāo)題和內(nèi)容”版式的幻燈片標(biāo)題處輸入文字“四、是非題”，在文本框內(nèi)輸入試題文字“北京是第一個(gè)也是唯一舉辦過夏季奧運(yùn)會(huì)，又舉辦冬季奧運(yùn)會(huì)的城市?！?。

（2）單擊“開發(fā)工具”→“控件”→“選項(xiàng)按鈕”圖標(biāo)，在試題下方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為空。

（3）在選項(xiàng)按鈕旁添加一個(gè)文本框，在其中輸入文字“是”，按照同樣方法再添加一個(gè)選項(xiàng)按鈕，并修改它的“Caption”值為空，添加相應(yīng)的文本框并輸入“非”。

（4）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”。

（5）選中“提交”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼OptionButton1.Value = True表示設(shè)置該是非題的正確答案選項(xiàng)是第1個(gè)按鈕，單擊“提交”按鈕，會(huì)彈出相應(yīng)的提示，如圖4所示。

（6）保存該演示文稿，放映幻燈片查看是非題的效果，按照相同的方式可以制作更多的是非題。

最后，把所有題目添加和設(shè)置完成之后，對(duì)所有幻燈片頁(yè)面的字體、顏色等進(jìn)行設(shè)置，設(shè)置幻燈片的主題和背景，添加“動(dòng)畫”和“切換”效果。本案例中只以4種題型作為范例進(jìn)行講解，當(dāng)然可以根據(jù)需要添加和設(shè)置更多的不同類型的題目。

通過以上事例我們發(fā)現(xiàn)，在PPT中VBA強(qiáng)大功能的幫助下[3]，可以讓奧運(yùn)會(huì)知識(shí)的宣傳及時(shí)有效，而且能實(shí)時(shí)交互，在學(xué)習(xí)相關(guān)知識(shí)的同時(shí)，還能實(shí)時(shí)互動(dòng)，既有趣味性，也能提升人們參與的熱情。