隨機(jī)抽題制作步驟

PPT輕松實(shí)現(xiàn)隨機(jī)抽題設(shè)計(jì)抽題界面打開PPT2010，將演示文稿保存成啟用宏的PPT演示文稿格式（即.pptm格式，包含宏代碼的演示文稿，必須保存成這種格式），在第一張幻燈片中設(shè)計(jì)抽題界面，先插入三個(gè)文本框，寫上必要的文字，展通過“開發(fā)工具選項(xiàng)卡，插入三個(gè)命按鈕控件，在這些控件上右擊，選擇“屬性命，打開它們的“屬，陽對話框，在“名稱后將命按鈕名稱分別修改為：開始、停止和打開抽取的題目，再在Caption后填寫按鈕上顯示的名稱（可隨意大寫，我這兒設(shè)置的與按鈕名稱相同），并對字體、字號(hào)、背景顏色、樣式等進(jìn)設(shè)置。再插入三個(gè)文本框控件，同樣在“屬，陽對話框中，修改它們的名稱為：抽取框、結(jié)果框和已抽題目。把“抽取框放到“開始和“停止命按鈕控件之間，扣“結(jié)果框放到“您抽取的是號(hào)題文本中，將“已抽題目拖至適合大小，放置到下面（圖1）。立件?=t隨機(jī)泊應(yīng)赤號(hào)并打開,pptw-Mitna^cftP（n-^erPoipt洼入設(shè)計(jì)切湊或回尋性?E3色導(dǎo)婦"幻燈片28立件?=t隨機(jī)泊應(yīng)赤號(hào)并打開,pptw-Mitna^cftP（n-^erPoipt洼入設(shè)計(jì)切湊或回尋性?E3色導(dǎo)婦"幻燈片28BZ0SaUA'Am*Ij守體■1i普掃.晌f.AflctleraterFalseBukColor□itfBOOOOOOFfr】一frwB?ck5tyl40paq.n$Caption開抬En^UedTrufiFont砌摭崔F^reColcir■到削OCOOISH?esht6S[25y11C5LockedFalse|開的C4rM1U.iBQl14fL柱守母厚!按歸類席:必答題第-開始停it您抽取的是號(hào)題打升抽取的題目已抽題目單擊此處添加備注□奔1.茹..芯11我"OHke攜，F(xiàn)急？匡j「EB噩甌宅5雌一"口丁/-，.?.]□奔1.茹..芯11我編寫宏代碼接下來，按ALT+F11組合鍵，打開VBA宏編輯窗口，雙擊左側(cè)的“Slidel，將以下代碼復(fù)制到右窗格中并保存。PrivateSub開始_Click()停止.Enabled=True'停止按鈕當(dāng)前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)'使用隨機(jī)函數(shù)抽取框.Text=a結(jié)果框.Text=""DoEventsLoopEndSubPrivateSub停止_Click()結(jié)果框.Text=抽取框.Text已抽題目=已抽題目+抽取框+"#"'題目標(biāo)記用#分隔停止.Enabled=FalseEndEndSubPrivateSub打開抽取的題目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)

EndSub隨機(jī)抽取題目并打開到抽取題目時(shí)，放映幻燈片，點(diǎn)擊第-張的“開始按鈕，此時(shí)其后的文本框中就隨機(jī)快速滾動(dòng)顯示1到10這十個(gè)數(shù)字，，點(diǎn)擊“停止按鈕后，數(shù)字停止?jié)L動(dòng)，并顯示出抽取的題號(hào)，同時(shí)在上方給出“您抽取的是X號(hào)題提示，在下方“已抽題目中顯示出所有抽過的題目標(biāo)號(hào)。點(diǎn)擊下方的“打開抽取的題目按鈕，換到抽取題目幻燈片，選手做完題目后，點(diǎn)擊返回鏈接，回到抽取題目頁面，繼續(xù)為下一個(gè)選手抽題（圖2）。tAb必答題第一輪隨機(jī)抽題占7..您抽取的是10號(hào)題tAb必答題第一輪隨機(jī)抽題占7..您抽取的是10號(hào)題開始10停止打開抽取的題目己抽題目己抽題目8#5#9#4#10#小提示：在幻燈片放映狀態(tài)下，可以選中三個(gè)文本框控件中的文本，刪除它們，達(dá)到清的目的。代碼圖示宏代碼PrivateSub開始_Click()停止.Enabled=True'停止按鈕當(dāng)前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)'使用隨機(jī)函數(shù)抽取框.Text=a結(jié)果框.Text=""DoEventsLoopEndSubPrivateSub停止_Click()結(jié)果框.Text=抽取框.Text已抽題目=已抽題目+抽取框+"#"'題目標(biāo)記用#分隔停止.Enabled=FalseEndEndSubPrivate