題目同單選題,填空的地方用文本框。
選中該文本輸入框,右擊打開代碼編輯窗口。點(diǎn)擊右上方的下拉按鈕,在彈出的下拉列表中選擇“LostFocus”。
目的是:當(dāng)文本輸入完成、鼠標(biāo)離開這個(gè)文本框的時(shí)候,就會(huì)出現(xiàn)在下面設(shè)置好的反饋信息。
找到這兩行代碼:Private Sub TextBox1_LostFocus()和End Sub
在這兩行文本中間插入如下代碼:
If TextBox1.Value = "正確的文本" Then
MsgBox("不錯(cuò),你填對(duì)了。恭喜您!"),vbOKOnly,"填空題"
Else MsgBox("不對(duì)吧?再想想。") , vbOKOnly,"填空題"
TextBox1.Text = ""
End If
如果有多個(gè)填空題,那么需要將上面代碼中的TextBox1替換為TextBox2、TextBox3等,依此類推。
說(shuō)明:表示答對(duì)或答錯(cuò)時(shí)課件的反饋信息,制作中可以根據(jù)實(shí)際自行更改。
注意:“正確的文本”一定要用半角雙引號(hào)括起來(lái),如幾個(gè)空一起判斷,方法同多選題。
PowerPoint中利用VBA制作課堂小測(cè)驗(yàn)
PowerPoint附帶的VBA功能使其具有了制作智能課件的能力。本文就是基于 PowerPoint中的VBA來(lái)制作智能的課堂小測(cè)驗(yàn)的一個(gè)例子。
一、基本構(gòu)想
本例很簡(jiǎn)單,就兩道題:界面如圖1所示,就是題目、選項(xiàng)和一個(gè)按鈕,在最后一道題所在的頁(yè)面上把“下一題”按鈕改成“得分”按鈕。由界面可知,我們需要一個(gè)文本框,四個(gè)選項(xiàng)按鈕和一個(gè)命令按鈕。功能方面我希望在單擊“下一題”按鈕時(shí),界面能夠轉(zhuǎn)到下一題;單擊“得分”按鈕時(shí),在成績(jī)文本框中能夠顯示出這次測(cè)驗(yàn)的成績(jī)就可以了。本例的兩道題的正確選項(xiàng)分別為“B”、“C”。
二、制作過(guò)程
1、運(yùn)行PowerPoint2003,單擊“文件”-“保存”命令,彈出“另存為”對(duì)話框,文件名設(shè)為“測(cè)驗(yàn)”,單擊“保存”命令。
2、單擊“插入”-“文本框”-“水平”命令,這時(shí)鼠標(biāo)變成“1”字型,在編輯區(qū)內(nèi)單擊鼠標(biāo)左鍵拖動(dòng)鼠標(biāo)拉出一個(gè)方框,在框內(nèi)輸入第一題的題目“1.人造地球衛(wèi)星的軌道半徑越大,則”。
3、下面我們來(lái)制作選項(xiàng)。單擊“視圖”-“工具欄”-“控件工具箱”命令,彈出“控件工具箱”,單擊“控件工具箱”上的“選項(xiàng)按鈕”控件,鼠標(biāo)變成十字型,按下鼠標(biāo)左鍵拖動(dòng)鼠標(biāo)拉出一個(gè)方框。單擊“控件工具箱”上的“屬性”命令,彈出“屬性”對(duì)話框,把“名稱”改為“ti1”,把“caption”改為“A.速度越小,周期越小”,其它設(shè)為默認(rèn)。如圖2所示。
其余的三個(gè)選項(xiàng)的名稱分別為“ti2”、“ti3”、“ti4”,“caption”分別為“B.速度越小,周期越大”、“C.速度越大,周期越小”、“D.速度越大,周期越大”。
4、“下一題”按鈕的制作。單擊“控件工具箱”中“命令按鈕”控件,這時(shí)鼠標(biāo)變成十字型,如前在編輯區(qū)內(nèi)拖拉出一個(gè)方框,松開鼠標(biāo)方框會(huì)變成一個(gè)按鈕。選中它,單擊鼠標(biāo)右鍵,在彈出的快捷菜單中選擇“屬性”命令,把“命令按鈕”屬性中的“caption”設(shè)為“下一題”。
這樣,第一題的界面就制作完成了。第二題我們可以按照第2-4步做出來(lái),只是要把題目、各個(gè)選項(xiàng)值換一下,另外需要添加一個(gè)文本框命令,其名稱設(shè)為“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試一下效果吧,怎么樣,是不是和原來(lái)設(shè)計(jì)的一樣呢。
版權(quán)聲明: 本站資源均來(lái)自互聯(lián)網(wǎng)或會(huì)員發(fā)布,如果侵犯了您的權(quán)益請(qǐng)與我們聯(lián)系,我們將在24小時(shí)內(nèi)刪除!謝謝!
轉(zhuǎn)載請(qǐng)注明: 用PPT制作填空題教程