PPT隨機抽題制作步驟

1、ppt輕松實現(xiàn)隨機抽題設(shè)計抽題界面打開ppt2010,將演示文稿保存成啟用宏的ppt演示文稿格式（即.pptm格式，包含宏代碼的演示文稿，必須保存成這種格式），在第一張幻燈片中設(shè)計抽題界面，先插入三個文本框，寫上必要的文字，再通過“開發(fā)工具” 選項卡，插入三個命令按鈕控件，在這些控件上右擊，選擇“屬性”命令，打開它們的“屬性”對話框，在“名稱后將命令按鈕名稱分別修改為：開始、停止和打開抽取的題目，再在caption后填寫按鈕上顯示的名稱（可隨意大寫，我這兒設(shè)置的與按鈕名稱相同），并對字體、字號、背景顏色、樣式等進行設(shè)置。再插入三個文本框控件，同樣在“屬性”對話框中，修改它們的名稱為：抽取框、結(jié)

2、果框和已抽題目。把“抽取框”放到“開始”和“停止”命令按鈕控件之間，把“結(jié)果框”放到“您抽取的是號題”文本中，將“已抽題目”拖至適合大小，放置到下面（圖1）。菜草4-拈法新噩第幻好片 j幻燈片hjj也qv 11打開抽取的題月造理工式曾書閉，ppti - microsoh powerpoint招必答題第-通人 設(shè)計 均受 無叵您抽取的是開始。已抽厥目單擊此處添加備汪office衣” j 向國）| | 1由接著新建一張幻燈片，設(shè)計好被抽題目放置界面，并在其上設(shè)計一個返回到抽題界面幻燈片的鏈接。將該幻燈 片復(fù)制多份，將相應(yīng)題目錄入相應(yīng)各幻燈片上，第二張幻燈片放第一道題目，第三張幻燈片放第二道題目，依

3、 次類推。編寫宏代碼接下來，按 alt+f11組合鍵，打開 vba宏編輯窗口，雙擊左側(cè)的“slidel”，將以下代碼復(fù)制到右窗格中并保存。private sub 開始 _click()停止.enabled = true 停止按鈕當(dāng)前有效dim a as integerrandomizedoa = fix(rnd * 10 + 1)使用隨機函數(shù)抽取框.text = a結(jié)果框.text =doeventsloopend subprivate sub 停止 _click()結(jié)果框.text = 抽取框.text已抽題目=已抽題目+抽取框+ # 題目標(biāo)記用#分隔停止.enabled = falseen

4、dend subprivate sub打開抽取的題目 _click()activepresentation.slideshowwindow_.view.gotoslide val(抽取框.text + 1)end sub隨機抽取題目并打開到抽取題目時，放映幻燈片，點擊第一張的“開始”按鈕，此時其后的文本框中就隨機快速滾動顯示1到10這十個數(shù)字，點擊“停止”按鈕后，數(shù)字停止?jié)L動，并顯示出抽取的題號，同時在上方給出“您抽取的是x號題”提示，在下方“已抽題目”中顯示出所有抽過的題目標(biāo)號。點擊下方的“打開抽取的題目”按鈕，切換到抽取 題目幻燈片，選手做完題目后，點擊返回鏈接，回到抽取題目頁面，繼續(xù)為下

5、一個選手抽題（圖2）。*皆一旗西系必答題第一輪隨機抽題您抽取的是10號題1()-可編輯修改-打開抽取的題目已抽題目8#5#9#4# 10#小提示：在幻燈片放映狀態(tài)下，可以選中三個文本框控件中的文本，刪除它們，達到清零的目的苣 microsoft visual bale for app ications -噴機后毀盟目并打開1-舊視圖/插入0)格式 調(diào)試)運行兇 工具cdgn!打開曲般的題目clickprivate sub 開始_click0vbaproj tc 白覃mi croso 國 slid停itenabled = true 停止按鈕當(dāng)前有效dim a as integerrandomiz

6、e10 + 1) j使用隨機函數(shù) a ir *doa = fixtrnd * 抽取框.tt = 結(jié)集框.trt = doevents loop end subfrivate sub ?lt_click 0 結(jié)臬框.text =抽取棍,text 已抽題目=已抽題目+抽取框+ * 停止.en過匕l(fā)ed = falseendend sub: _ private subactivefresentation. slideshowindow_ .viev.gotoslide wal (抽取框.t巳kt + 1) end sub代碼圖示宏代碼private sub 開始 _click()停止.enabled = true 停止按鈕當(dāng)前有效dim a as integerrandomizedoa = fix(rnd * 10 + 1)使用隨機函數(shù) 抽取框.text = a結(jié)果框.text =doeventsloopend subprivate sub 停止 _click()結(jié)果框.text = 抽取框.text已抽題目=已抽題目+抽取框+ # 題目標(biāo)記用#分隔停止.enabled = falseendend subprivate sub打開抽取的題目 _click()activepresentation.slidesho