【如何在PPT里面實(shí)現(xiàn)數(shù)字1-300的隨機(jī)抽獎(jiǎng)？】
隨機(jī)抽獎(jiǎng)的實(shí)現(xiàn)方式有多種，下面僅以此為例，互相學(xué)習(xí)，謝謝。
思路：
點(diǎn)擊開(kāi)始抽獎(jiǎng)按鈕，則數(shù)字隨機(jī)滾動(dòng)；點(diǎn)擊停止抽獎(jiǎng)，則得出隨機(jī)的中獎(jiǎng)數(shù)字。
步驟：
1、背景：
打開(kāi)PowerPoint軟件，新建幻燈片，右鍵“設(shè)置背景格式”-“填充”-“圖片或紋理填充”，選擇準(zhǔn)備好的背景圖片。
2、如沒(méi)有“開(kāi)發(fā)工具”菜單項(xiàng)，則添加的方法為：點(diǎn)擊“文件”菜單-“選項(xiàng)”-“自定義功能區(qū)”-“主選項(xiàng)卡”中找到“開(kāi)發(fā)工具”，點(diǎn)擊“添加”按鈕即可。
3、添加控件：
點(diǎn)擊“開(kāi)發(fā)工具”菜單-“標(biāo)簽”控件，添加1個(gè)員工號(hào)的標(biāo)簽控制；“命令按鈕”控件，添加2個(gè)按鈕控制；選擇員工號(hào)控制，右鍵“屬性表”打開(kāi)“屬性”對(duì)話框，選擇命令按鈕1，設(shè)置BackColor為淺綠、Caption為開(kāi)始抽獎(jiǎng)、Font為隸書粗體一號(hào)、ForeColor為深綠色；切換到命令按鈕1，設(shè)置BackColor為淺粉、Caption為停止抽獎(jiǎng)、Font為隸書粗體一號(hào)、ForeColor為紅色；切換到標(biāo)簽控制，設(shè)置BackColor為紅色、Caption為中獎(jiǎng)號(hào)、Font為隸書粗體初號(hào)、ForeColor為黃色；
4、“插入”菜單-“文本”-“文本框”-“橫排文本框”，輸入文字“祝賀中獎(jiǎng)的員工號(hào)為：”，并設(shè)置為隸書、大小為48加粗、陰影、黃色；調(diào)整3個(gè)控件框的大小和位置。
5、雙擊開(kāi)始抽獎(jiǎng)按鈕，在代碼框的上方粘貼代碼：
Publica,bAsInteger
PrivateSubCommandButton1_Click()
b=0
DoWhileTrue
a=1+Int(Rnd()*99)
Label1.Caption=a
DimSavetimeAsSingle
Savetime=Timer
WhileTimer<Savetime+0.05
DoEvents
Wend
Ifb=1Then
ExitDo
EndIf
Loop
EndSub
在代碼框的下方粘貼代碼：
PrivateSubCommandButton2_Click()
b=1
Label1.Caption=a
EndSub
將文件保存為啟用宏的演示文稿格式的文件*.pptm。
6、代碼的解釋：
Publica,bAsInteger//聲明兩個(gè)全局變量a和b
PrivateSubCommandButton1_Click()//一個(gè)按鈕點(diǎn)擊事件
b=0//把變量設(shè)為0，這是一個(gè)標(biāo)志量，為0時(shí)執(zhí)行隨機(jī)函數(shù)，為時(shí)執(zhí)行停止操作
DoWhileTrue//無(wú)限循環(huán)，使隨機(jī)數(shù)變化。
a=1+Int(Rnd()*99)//產(chǎn)生隨機(jī)數(shù)表達(dá)式，99代表的是1~99之間的隨機(jī)數(shù)
Label1.Caption=a//使標(biāo)簽控件顯示生成的隨機(jī)數(shù)。
DimSavetimeAsSingle//這五行用于延時(shí)，防止系統(tǒng)死掉
Savetime=Timer
WhileTimer<Savetime+0.05
DoEvents
Wend
Ifb=1Then//判斷b值是否為1，如果為1，則停止產(chǎn)生隨機(jī)數(shù)。
ExitDo//退出無(wú)限循環(huán)
EndIf//否則，繼續(xù)執(zhí)行無(wú)限循環(huán)
Loop//無(wú)限循環(huán)
EndSub//函數(shù)結(jié)束標(biāo)志
PrivateSubCommandButton2_Click()//這是停止控件的監(jiān)聽(tīng)事件
b=1//把b值設(shè)為1.
Label1.Caption=a//把選擇的隨機(jī)數(shù)顯示出來(lái)
EndSub//函數(shù)結(jié)束標(biāo)志