制作(zuo)自動交(jiao)互問(wen)答(da)課件

     
       1.啟動PowerPoint2003(其他版本操作相似),打開相應的課件演示文稿,定位到制作練習題幻燈片中,輸入題干字符。

  2.執行“視圖→工(gong)具(ju)欄→控件(jian)工(gong)具(ju)箱”命令,展開“控件(jian)工(gong)具(ju)箱”,點(dian)擊一(yi)下其中(zhong)的“復選(xuan)框”按(an)鈕,然后在幻燈片中(zhong)拖(tuo)拉出一(yi)個復選(xuan)框來(lai)。
      3.選中上(shang)述復選框(CheckBox1),單擊“控件工具箱”上(shang)的(de)“屬(shu)性”按(an)鈕,打開“屬(shu)性”對話框,切換到“按(an)分(fen)類序(xu)”標簽下(xia),展開“外觀(guan)”選項,將其中的(de)“Caption”后面               的字(zi)(zi)(zi)符(fu)(fu)修改(gai)為題目相應的選項字(zi)(zi)(zi)符(fu)(fu)(如“水”),再展(zhan)開“字(zi)(zi)(zi)體”選項,點擊(ji)右(you)側的“省略號(hao)(hao)”按鈕,打開“字(zi)(zi)(zi)體”對話框,設(she)置(zhi)好(hao)字(zi)(zi)(zi)體、字(zi)(zi)(zi)號(hao)(hao)等。

 

  小貼(tie)士:控件的(de)其他屬(shu)性可以直(zhi)接采用默認的(de)屬(shu)性。

  4.將上述復(fu)(fu)制(zhi)框(kuang)復(fu)(fu)制(zhi)三份(根據備選項的多少確定復(fu)(fu)制(zhi)數量),分別將“Caption”屬性(xing)修(xiu)改為題目其(qi)他選項字符(如“純堿、熟石灰、干(gan)冰”)。

  5.再用(yong)“控件工具箱”的(de)“命令按(an)鈕”在幻燈(deng)片(pian)上添加一個按(an)鈕,并將(jiang)(jiang)其“Caption”屬性(xing)修改為(wei)“判斷”(或其他字符(fu))。再雙擊該按(an)鈕,進(jin)入“Visual Basic編輯器”狀態(如(ru)圖(tu)4),將(jiang)(jiang)下述代碼(ma)輸入到出現的(de)一組代碼(ma)中(zhong)間(jian),輸入完成(cheng)后,關閉窗口返回。

  If CheckBox1.Value = True And CheckBox4.Value = True Then
  MsgBox "選擇正確。", vbOKOnly, "結果"
  Else
  If CheckBox1.Value = True Or CheckBox4.Value = True Then
  MsgBox “選對了一個。”, vbOKOnly, “提示”
  Else
  MsgBox "選擇錯誤!正確答案是“水和干冰”!", vbOKOnly, "提示"
  End If
  End If

  小貼(tie)士:上(shang)述(shu)代碼的含義是(shi),如(ru)果(guo)(If)選擇(ze)了第(di)1和第(di)4項(CheckBox1.Value = True And CheckBox4.Value = True),按(an)下“判斷”按(an)鈕,則彈出(chu)界(jie)面和消息(xi)(MsgBox)框(kuang)(選擇(ze)錯誤!正(zheng)確答案是(shi)“水和干(gan)冰”!——消息(xi)內容;vbOKOnly——消息(xi)框(kuang)中僅顯(xian)示出(chu)一(yi)個(ge)“確定”按(an)鈕;提示——消息(xi)框(kuang)標(biao)題)。

  如(ru)果只選擇了第(di)1項或第(di)4項,則(ze)會彈出的消息框;  其他選(xuan)擇(ze)均會彈(dan)出如圖所(suo)示(shi)的(de)消息框。
  6.將(jiang)(jiang)上(shang)述(shu)命令按(an)鈕(niu)復制一(yi)份,將(jiang)(jiang)“Caption”屬性(xing)修(xiu)改為(wei)“重(zhong)選(xuan)”),再雙擊該(gai)按(an)鈕(niu),將(jiang)(jiang)下述(shu)代(dai)(dai)碼輸入到出現的(de)一(yi)組代(dai)(dai)碼中間,輸入完成(cheng)后,關(guan)閉窗口返(fan)回。

  CheckBox1.Value = False
  CheckBox2.Value = False
  CheckBox3.Value = False
  CheckBox4.Value = False

  7.在演示過程(cheng)中,設計(ji)師進行相(xiang)(xiang)應的選擇后,按(an)下(xia)“判斷(duan)”按(an)鈕,即可作出相(xiang)(xiang)應判斷(duan);如果認為選擇有誤,按(an)一下(xia)“重(zhong)選”按(an)鈕,即可重(zhong)新選擇。