三、制作填空題

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

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

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

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

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