三、制作填空題

1、三、制作填空題1、新建一張空“幻燈片” 。2、放置一個“文本框” ，輸入“計算機是由硬件和組成”（ 題目）3、點擊“控件工具”上的“文本框”控件( 這時鼠標會變成“十字形” ) ，然后在“ =”“公頃”之間拖拽鼠標，就可以放置一個“文本框”控件，最后調(diào)整好大小和位置。4、再點擊“控件工具箱”上的“命令按鈕”控件，用同樣的方法拖拽鼠標在幻燈片上放置一個“命令按鈕”控件。5 、用鼠標“右鍵”點擊剛剛放置好的 “命令按鈕”，選擇“屬性”。此時會彈出一個對話框。6、找到“ Caption ”項，把后面的“ CommandButtonl ”值改成“完成”，關閉屬性對話框，即可改變按鍵名字。7、雙擊“完成

2、”，此時便進入到了Visual Basic代碼編寫環(huán)境里。在對象對話框中選擇 “通用”，在出現(xiàn)的空白行中輸入 “Dim num”，定義了一個變量，作用是記錄學生的分數(shù)。8、在編輯窗口中找到如下兩條語句Private Sub完成 _Click()End Sub把這上面的兩行代碼改成：Private Sub完成 _Click()IF Trim(TextBoxl.Text)=”軟件” ThenMsgBox”你答對了”Num=Bum+lElseMsgBox“你答錯了” !End IfEnd Sub9、按 F5 按鍵觀看效果，隨便輸入一個字，然后單擊“完成”看看有什么結果。10 、進入下一題加人命令按鈕

3、，將 Caption 和“ ( 名稱 ) ”屬性都改為“下一題” ，雙擊命令按鈕，進入 VBA。插入以下語句： SlideShowWindow.View.Next 四、制作判斷題1 輸入題目。新建幻燈片，輸入題目： “計算機由硬件和軟件組成。 ”2 點擊“控件工具”上的“復選框”控件，放置在題目后面。雙擊復選框，進入 VBA。在編輯窗口中找到如下兩條語句：Private Sub CheckBoxl_Click()End Sub因為本題是正確的， 也就是復選框應該是選中的， 所以在上面這兩條語句中間插入以下語句：If CheckBoxl.Value=True Then num=num+1如果本題

4、是錯誤的，則應該輸入：If CheckBoxl.Value=false Then num=num+13 進入下一題。（見單選題）4、顯示得分（見單選題）新建一個頁面，輸入文字： “你最終得分是：”。加入一個標簽控件和一個按鈕控件。雙擊按鈕控件，輸入：“Label1.Caption=num ”。注意：在 OfficeXP 中默認情況下是禁用VBA的，如果播放的時候沒有出現(xiàn)交互效果，請將“工具/ 選項 / 安全”的“宏安全性”設置為“低”或者“中” 。五、多項選擇題多選題需要用到復選框。假定有四個選項，其中只有 A、 B、D三項全選才為正確，多選或少選均為錯誤。用前面的方法插入四個復選框， 調(diào)整好

5、位置。再插入一個命令按鈕，打開“屬性”對話框，將“ Caption ”值設為“答案”。選中“答案”按鈕，在右鍵菜單中選擇 “查看代碼” 命令，打開代碼編輯窗口。在窗口中找到如下兩句代碼：Private Sub CommandButton1_Click()End Sub在這兩句代碼中間插入以下代碼：If CheckBox1.Value = True And CheckBox2.Value = True AndCheckBox4.Value = True And CheckBox3.Value = False ThenMsgBox " 厲害，答對了 !", vbOKOnly, "多項選擇題 "ElseMsgBox " 不好意思，您做錯了。再仔細想想?", vbOKOnly, "多項選擇題 "CheckBox1.Value = Fals