大家都知道，在課件制作中常常要制作單選題、多選題、填空題和判斷題，下面這個實例就是制作這幾類題目。
1、啟動POWERPOINT，將幻燈片版式設(shè)為“空白版式”。單擊菜單中的“插入”--“文本框”--“水平”，在插入的文本框中輸入“PowerPoint交互演示文稿”，同理插入其他文本框并輸入相應(yīng)的內(nèi)容及相應(yīng)格式化，最后結(jié)果如下圖所示(注意，有十一個文本框哦?。?/p>
控件解釋如下:
2、制作單選題選項
單擊控件工具箱中的“選項按鈕”，將鼠標(biāo)標(biāo)移至第1題下面（此時鼠標(biāo)指針為細十字），拖動出一個合適大小的矩形框。此時你應(yīng)該會看到一個單選按鈕，并且選項內(nèi)容為OptionButton1。接著右擊這個單選按鈕，選擇彈出的快捷菜單中的“屬性”，打開屬性對話框并做如下圖所示的設(shè)置：
解釋一下：這里我分別對名稱、Caption和GroupName項進行設(shè)置。
①名稱：即該單選按鈕的名字，默認為OptionButton1，為了方便，我改為Optb1；
②Caption即標(biāo)題，它是指顯示在單選按鈕后的文字，默認為OptionButton1，在第一個選項中，我按題目將其改為“美國”；
③GroupName即分組名，因為若干個單選項中我們只能選擇其中之一，這樣我們就需要將第一題的四個單選按鈕分成一組，第二題的四個選項分成另一組，這樣就不會出現(xiàn)八個單選按鈕只能選擇一個的現(xiàn)象了。
再接下來，用同樣的方法，再制作其他七個單選項到相應(yīng)位置，分別取名為Optb2---Optb8，并將前四個劃為第一組，GroupName屬性為group1，后四個劃為一組，GroupName屬性為group2。Caption項分別設(shè)為相應(yīng)的選擇內(nèi)容。此時的兩道單選題的選項添加完成，如下圖：
單擊控件工具箱中的“復(fù)選框”，將鼠標(biāo)移至第3題下面，拖動鼠標(biāo)，畫出一個矩形框，此時我們會看到一個復(fù)選按鈕，并且在后面有CheckBox1。然后單擊控件箱中的“屬性”也會打開屬性設(shè)置窗口，分別將其（名稱）設(shè)為Chkb1、Caption設(shè)為“單擊開始中的程序查找”、GroupName設(shè)為group3（注意不要與兩組單選題的組名同名哦）。
3、制作多選題的選項
用同樣的方法制作并設(shè)置其他多選項，名字分別為Chkb2---Chkb8，Caption設(shè)為相應(yīng)的選擇項，將前四個復(fù)選按鈕的GroupName設(shè)置為group3，其他四個設(shè)為group4。此時已完成單選項、多選項的添加，如下圖所示：
單擊控件工具箱中的“文本框”，將鼠標(biāo)移至第5題空位置，拖動出合適的大小，這樣就會看到一個空的文字框。然后單擊控件箱中的“屬性”，將其（名稱）設(shè)為Txb1，同理制作其他兩個文本框，名稱分別為Txb2和Txb3。完成后的填空如下圖所示：
4、制作填空題的空
單擊控件工具箱中的“切換按鈕”，將鼠標(biāo)移至第7題后面，拖動鼠標(biāo)，我們會看到一個按鈕。然后單擊控件箱中的“屬性”，將其（名稱）屬性設(shè)置為Tgb1,Caption值設(shè)為“判斷”。如圖所示：
5、制作判斷題的判斷按鈕
單南控件工具箱中的“命令按鈕”，在合適的位置拖動鼠標(biāo)，我們會看到一個命令按鈕。然后單擊控件箱中的“屬性”，在屬性窗口中將其（名稱）屬性設(shè)置為Cmb1和Cmb2，Caption分別設(shè)為“開始答題”和“查看成績”即可。
6、制作開始答題和查看答案兩個命令按鈕
OK！到這里為止，我們的界面設(shè)計就全部結(jié)束了。最后界面如下圖所示：
那是不是到這里就真的全部完成了呢？當(dāng)然不是！還有最精華的部分還沒做，即還要對相應(yīng)的判斷、答題按鈕編寫代碼。這個較難，有些老師可能有難度，耐心看一下，其實這些代碼只是一些很簡單的程序，有學(xué)過VB的老師就相對較容易了。
7、對判斷題按鈕編寫代碼
大擊判斷按鈕，就會出現(xiàn)其單擊事件的代碼窗口，在Private Sub tgb1_Click()和End sub之間寫入一句代碼
If tgb1.value=true Then tgb1.Caption="√" Else tgb1.Caption="×"
如下圖所示：
雙擊“開始答題”按鈕，在Private Sub Cmb1_click()和End sub之間寫入如下綠色代碼：
Optb1.Value = False
Optb2.Value = False
Optb3.Value = False
Optb4.Value = False
Optb5.Value = False
Optb6.Value = False
Optb7.Value = False
Optb8.Value = False
Chkb1.Value = False
Chkb2.Value = False
Chkb3.Value = False
Chkb4.Value = False
Chkb5.Value = False
Chkb6.Value = False
Chkb7.Value = False
Chkb8.Value = False
Txb1.Text = ""
Txb2.Text = ""
Txb3.Text = ""
Tgb1.Caption = "判斷"
這是一些初始化代碼,單擊"開始答題"按鈕時可以將各題的答題信息清除,然后重新答題。
8、為兩個命令按鈕寫代碼
再雙擊“查看成績”按鈕，在Private Sub Cmb2_Click()和End sub之間寫入如下綠色代碼：
Dim no1, no2, no3, no4, no5, no6, no7
If Optb1.Value = True Then no1 = "正確" Else no1 = "錯誤，答案應(yīng)為第一項"
If Optb7.Value = True Then no2 = "正確" Else no2 = "錯誤，答案應(yīng)為第三項"
If Chkb1.Value = True And Chkb3.Value = True And Chkb4.Value = True Then no3 = "正確" Else no3 = "錯誤，答案應(yīng)為第一、三、四項"
If Chkb5.Value = True And Chkb6.Value = True And Chkb8.Value = True Then no4 = "正確" Else no4 = "錯誤，答案應(yīng)為第一、二、四項"
If Txb1.Text = "運算器" Then no5 = "正確" Else no5 = "錯誤，答案應(yīng)為運算器"
If (Txb2.Text = "硬件" And Txb3.Text = "軟件") Or (Txb2.Text = "軟件" And Txb3.Text = "硬件") Then no6 = "正確" Else no6 = "錯誤，答案應(yīng)為硬件和軟件"
If Tgb1.Value = False And Tgb1.Caption <> "判斷" Then no7 = "正確" Else no7 = "錯誤，答案應(yīng)為錯誤"
MsgBox "第1題答案" & no1 & Chr(13) & "第2題答案" & no2 & Chr(13) & "第3題答案" & no3 & Chr(13) & "第4題答案" & no4 & Chr(13) & "第5題答案" & no5 & Chr(13) & "第6題答案" & no6 & Chr(13) & "第7題答案" & no7, vbOKOnly, "查看答案"
這些代碼是用來判斷各題的答題對錯，并將對錯情況存儲在七個變量當(dāng)中，最后顯示出做題結(jié)果。如下圖：
到此我已將這個復(fù)雜的交互操作題目的制作都講解完了，怎么樣？對POWERPOINT有沒有新的認識？快自已制作一個吧！
