Powerpoint附帶的VBA功能使其具有了制作智能課件的能力。本文就是基于PowerPoint中的VBA來制作智能的物理課堂小測驗的一個例子。

　　一、基本構想

圖1

　　本例很簡單，就兩道題：界面如圖1所示，就是題目、選項和一個按鈕，在最后一道題所在的頁面上把“下一題”按鈕改成“得分”按鈕。由界面可知，我們需要一個文本框，四個選項按鈕和一個命令按鈕。功能方面我希望在單擊“下一題”按鈕時，界面能夠轉到下一題;單擊“得分”按鈕時，在成績文本框中能夠顯示出這次測驗的成績就可以了。本例的兩道題的正確選項分別為“B”、“C”。

　　二、制作過程

　　1、運行PowerPoint2003，單擊“文件”-“保存”命令，彈出“另存為”對話框，文件名設為“測驗”，單擊“保存”命令。

　　2、單擊“插入”-“文本框”-“水平”命令，這時鼠標變成“1”字型，在編輯區內單擊鼠標左鍵拖動鼠標拉出一個方框，在框內輸入第一題的題目“1.人造地球衛星的軌道半徑越大，則”。

　　3、下面我們來制作選項。單擊“視圖”-“工具欄”-“控件工具箱”命令，彈出“控件工具箱”，單擊“控件工具箱”上的“選項按鈕”控件，鼠標變成十字型，按下鼠標左鍵拖動鼠標拉出一個方框。單擊“控件工具箱”上的“屬性”命令，彈出“屬性”對話框，把“名稱”改為“ti1”，把“caption”改為“A.速度越小，周期越小”，其它設為默認。如圖2所示。

圖2

　　其余的三個選項的名稱分別為“ti2”、“ti3”、“ti4”，“caption”分別為“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。

　　4、“下一題”按鈕的制作。單擊“控件工具箱”中“命令按鈕”控件，這時鼠標變成十字型，如前在編輯區內拖拉出一個方框，松開鼠標方框會變成一個按鈕。選中它，單擊鼠標右鍵，在彈出的快捷菜單中選擇“屬性”命令，把“命令按鈕”屬性中的“caption”設為“下一題”。

　　這樣，第一題的界面就制作完成了。第二題我們可以按照第2-4步做出來，只是要把題目、各個選項值換一下，另外需要添加一個文本框命令，其名稱設為“sum”，命令按鈕的名稱改為“得分”。

　　三、添加代碼

　　1、單擊“控件工具箱”上“查看代碼”控件，彈出“Microsoft visual basic”編輯器，單擊“插入”-“模塊”命令，彈出“模塊”編輯窗口，在“模塊”編輯窗口輸入“public fen(2) as integer”。

　　2、選中第一題中“下一題”按鈕，單擊“控件工具箱”上“查看代碼”控件，彈出“Microsoft visual basic”編輯器，在“PRivate Sub CommandButton1_Click()”和“End Sub”之間輸入

　　If ti2.Value = True Then
　　fen(0) = 2
　　Else
　　fen(0) = 0
　　End If
　　With SlideShowWindows(1).View
　　.GotoSlide (2)
　　End With

　　3、選中最后一題中“得分“按鈕，單擊“控件工具箱”上“查看代碼”控件，彈出“Microsoft visual basic”編輯器，在“Private Sub CommandButton1_Click()”和“End Sub”之間輸入

　　If ti3.Value = True Then
　　fen(1) = 2
　　Else
　　fen(1) = 0
　　End If
　　Dim i, s
　　s = 0
　　For i = 0 To 2
　　s = s + fen(i)
　　Next
　　sum = s

　　好了，退出“Microsoft visual basic”編輯器，按F5試一下效果吧，怎么樣，是不是和原來設計的一樣呢。