利用ＶＢＡ制作智能測驗題課件

在眾多的課件類型中，練習(xí)與測驗類課件是比較重要的一種類型。該類課件的安排十分靈活，可以穿插在課堂的講課過程中，在講完一個知識點后，出一兩道相關(guān)的測驗題，考考學(xué)生對知識點的掌握程度；也可以把練習(xí)與測驗類課件作為一個獨立的部分，制作成為一個完整的課件，專門作課堂和課后的練習(xí)。

練習(xí)與測驗類課件最重要的特征是交互性。學(xué)生在答題的時候得到反饋信息，可以調(diào)動學(xué)生的積極性。本文將介紹一種利用ActiveX控件和VBA制作一個單項選擇題智能課件的方法。

所謂VBA就是Microsoft Visual Basic的宏語言版本（用于編寫Windows應(yīng)用程序），它是Visual Basic for Applications的英文縮寫。將ActiveX控件插入到幻燈片中，然后用VBA編寫程序控制這些ActiveX控件，從而達到需要的交互效果。具體制作過程如下：

1 創(chuàng)建測驗題目內(nèi)容

1.1 新建幻燈片文檔

新建1個空白幻燈片文檔，設(shè)計模板采用Expedition效果，插入1個藝術(shù)標題——“單項選擇題”。

1.2 創(chuàng)建題目文本框

插入5個水平文本框，在1個文本框中輸入單選題題目，在另外4個文本框中輸入4個備選答案，將其對齊放在合適的位置。

2 創(chuàng)建選項按鈕

2.1 插入選項按鈕控件

單擊“控件工具箱”中的“選項按鈕”控件按鈕，這時光標變成“十字”形狀，在幻燈片工作區(qū)拖動鼠標創(chuàng)建1個選項按鈕。

2.2 設(shè)置選項按鈕控件屬性

保持選項按鈕的選中狀態(tài)，單擊“控件工具箱”中的“屬性”按鈕，打開“屬性”對話框，在這個對話框中可以設(shè)置選項按鈕的各種屬性。這里主要設(shè)置Caption、Font、Value這3個屬性的值：Caption屬性值確定選項按鈕旁邊的文字信息，這里設(shè)置為“A.”；Font屬性值確定選項按鈕旁邊的文字格式，可以根據(jù)情況進行設(shè)置，使得整體的文字內(nèi)容協(xié)調(diào)；Value屬性值確定選項按鈕是否是默認的選中狀態(tài)，它有2個值，一個是True（默認處于選中狀態(tài)），另一個是False（不是默認的選中狀態(tài)），這里將Value屬性值設(shè)置為False。

2.3 復(fù)制單選按鈕控件

將上面創(chuàng)建的選項按鈕再復(fù)制出來3個復(fù)本，然后分別將這3個副本選項按鈕的Caption屬性值更改為“B.”“C.”“D.”。接著將這4個選項按鈕對齊放置在相應(yīng)的4個備選答案文字左邊合適的位置（如圖1所示）。

2.4 定義單選按鈕控件的名稱

為了便于下面的VBA編程，這里定義一下4個選項按鈕對象的名稱。選擇第1個選項按鈕，然后在“屬性”對話框中的“（名稱）”屬性項后面的文本框中輸入But1（如圖2所示）。按照同樣的方法，定義其他3個選項按鈕對象的名稱分別為But2、But3、But4。

3 編寫VBA程序

3.1 編寫正確答案對應(yīng)的選項按鈕的VBA程序

本實例的第1個備選答案是正確答案。雙擊這個備選答案前面的選項按鈕，打開Mircrosoft Visual Basic窗口，在代碼編輯窗口中找到以下代碼：

Private Sub But1_Click()

End Sub

然后輸入：

If But1.Value = True Then ex = MsgBox(\"選擇正確！恭喜你！\"， vbOKOnly)

代碼輸入完成后的結(jié)果如圖3所示。

3.2 編寫錯誤答案對應(yīng)的選項按鈕的VBA程序

雙擊第2個備選答案前面的選項按鈕，彈出Mircrosoft Visual Basic窗口，在代碼編輯窗口中找到以下代碼：

Private Sub But2_Click()

End Sub

然后輸入：

If But2.Value = true Then ex = MsgBox(\"選擇錯誤！請再想想！\"， vbOKOnly)

剩下的2個備選答案按同樣的方法進行設(shè)置，最終代碼如圖4所示。

代碼輸入完成以后，關(guān)閉Mircrosoft Visual Basic窗口，返回到幻燈片編輯窗口。

4 完善課件功能

4.1 添加控制按鈕

單擊“控件工具箱”中的“按鈕”控件按鈕，這時光標變成“十字”形狀，在幻燈片工作區(qū)拖動鼠標創(chuàng)建一個合適大小的按鈕。

保持按鈕的選中狀態(tài)，單擊“控件工具箱”中的“屬性”按鈕，打開“屬性”對話框，將Caption屬性值設(shè)置為“重新選擇”（效果如圖5所示）。

4.2 編寫“重新選擇”按鈕的VBA程序

雙擊“重新選擇”按鈕，在打開的代碼編輯窗口中的“Private Sub CommandButton1_Click()”和“End Sub”代碼間輸入：

But1.Value = False

But2.Value = False

But3.Value = False

But4.Value = False

至此為止，該課件實例制作完成，可以點擊觀看課件播放效果。