PPT隨機抽題制作步驟備課講稿.doc

《PPT隨機抽題制作步驟備課講稿.doc》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在教育資源-天天文庫。

1、…………………………………………………………最新精品資料推薦……………………………………………………PPT輕松實現(xiàn)隨機抽題設計抽題界面打開PPT2010，將演示文稿保存成啟用宏的PPT演示文稿格式（即.pptm格式，包含宏代碼的演示文稿，必須保存成這種格式）,在第一張幻燈片中設計抽題界面，先插入三個文本框，寫上必要的文字，再通過“開發(fā)工具”選項卡，插入三個命令按鈕控件，在這些控件上右擊，選擇“屬性”命令，打開它們的“屬性”對話框，在“名稱”后將命令按鈕名稱分別修改為：開始、停止和打開抽取的題目，再在Caption后填寫按鈕上顯示的名稱（可隨意大寫，我這兒設置的與按

2、鈕名稱相同），并對字體、字號、背景顏色、樣式等進行設置。再插入三個文本框控件，同樣在“屬性”對話框中，修改它們的名稱為：抽取框、結(jié)果框和已抽題目。把“抽取框”放到“開始”和“停止”命令按鈕控件之間，把“結(jié)果框”放到“您抽取的是號題”文本中，將“已抽題目”拖至適合大小，放置到下面（圖1）?！钚戮焚Y料推薦……………………………………………………7…………………………………………………………最新精品資料推薦……………………………………………………接著新建一張幻燈片，設計好被抽題目放置界面，并在其上設計一個返回到抽題界面幻燈片

3、的鏈接。將該幻燈片復制多份，將相應題目錄入相應各幻燈片上，第二張幻燈片放第一道題目，第三張幻燈片放第二道題目，依次類推。編寫宏代碼接下來，按ALT+F11組合鍵，打開VBA宏編輯窗口，雙擊左側(cè)的“Slide1”，將以下代碼復制到右窗格中并保存。PrivateSub開始_Click()…………………………………………………………最新精品資料推薦……………………………………………………7…………………………………………………………最新精品資料推薦……………………………………………………停止.Enabled=True'停止按鈕當前有效DimaAsIntegerRando

4、mizeDoa=Fix(Rnd*10+1)'使用隨機函數(shù)抽取框.Text=a結(jié)果框.Text=""DoEventsLoopEndSubPrivateSub停止_Click()結(jié)果框.Text=抽取框.Text已抽題目=已抽題目+抽取框+"#"'題目標記用#分隔停止.Enabled=FalseEndEndSubPrivateSub打開抽取的題目_Click()…………………………………………………………最新精品資料推薦……………………………………………………7…………………………………………………………最新精品資料推薦……………………………………………………Acti

5、vePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)EndSub隨機抽取題目并打開到抽取題目時，放映幻燈片，點擊第一張的“開始”按鈕，此時其后的文本框中就隨機快速滾動顯示1到10這十個數(shù)字，點擊“停止”按鈕后，數(shù)字停止?jié)L動，并顯示出抽取的題號，同時在上方給出“您抽取的是X號題”提示，在下方“已抽題目”中顯示出所有抽過的題目標號。點擊下方的“打開抽取的題目”按鈕，切換到抽取題目幻燈片，選手做完題目后，點擊返回鏈接，回到抽取題目頁面，繼續(xù)為下一個選手抽題（圖2）。小提示：在幻燈片放映狀態(tài)下，可以選中

6、三個文本框控件中的文本，刪除它們，達到清零的目的?！钚戮焚Y料推薦……………………………………………………7…………………………………………………………最新精品資料推薦……………………………………………………代碼圖示宏代碼 PrivateSub開始_Click() 停止.Enabled=True'停止按鈕當前有效 DimaAsInteger Randomize Do a=Fix(Rnd*10+1)'使用隨機函數(shù) 抽取框.Text=a 結(jié)果框.Text=…………………………………………………………最新精品資料推薦……………

7、………………………………………7…………………………………………………………最新精品資料推薦……………………………………………………"" DoEvents Loop EndSub PrivateSub停止_Click() 結(jié)果框.Text=抽取框.Text 已抽題目=已抽題目+抽取框+"#"'題目標記用#分隔 停止.Enabled=False End EndSub PrivateSub打開抽取的題目_Click() ActivePresentation.SlideShowWindow_ .View.GotoSlideVal(抽取框.Text+1) EndSub18

8、、《慈母情