ppt抽獎程序源碼_大神幫我在PPT中製作一款抽獎軟體就是在1---120數字之間進行滾動並且隨時可以抽出任意數字

1. 如何用PPT做個年會抽獎

如果要用PPT來製作一個模擬隨機抽獎程序的幻燈片，該怎麼製作呢？下面就跟我來看看操作方法。

做下說明，用PPT做抽獎的人數不宜太多，最好控制在30個人以內。

1、在word裡面輸入好你需要抽獎的名單，每個名字一行，然後保存，關閉，如圖，Word名單；

2. 怎樣把抽獎程序嵌入PPT裡面

在設計這個顯示隨機數之前，我們想來想想顯示這個隨機數都需要哪些東西。首先需要一個開始的按紐，點一下按紐才能開始顯示；其次需要一個清空的按紐，點一下把剛才顯示的隨機數字清除掉；第三，還要有一個顯示器，就是顯示數字的地方。
准備工作：把開發工具欄添加到菜單上來。點office按鈕--powerpoint選項--常用--第三項「在功能區顯示開發工具選項卡」，這樣就可以把開發工具添加到菜單欄了。
做第一個按紐：新建一張幻燈片--點擊開發工具--命令按紐--在幻燈片中畫一個按紐--雙擊剛畫出的按紐--在彈出的VB編程欄中輸入如下代碼：Label1.Caption = 1 + Int(51 * Rnd())，其中的51就是在51以內顯示隨機數，可以更改。還可以在caption中修改按紐的名字，比如起名「開始」。
做第二個按紐：用同樣的方法畫一個按紐--雙擊按紐--輸入：Label1.Caption = ""。同樣可以給該按紐起名，比如「清空」。
做顯示數字的標簽：點擊標簽--畫一個小方框，此方框就是顯示數字的顯示器--方框的代碼中什麼都不要輸。
好了，現在播放幻燈片，就可以得到1到51中間的隨機數了。

3. 需要一個可以抽獎，並且可以內定大獎的程序，如果沒有，vb或者ppt邏輯腳本也可以。急求。

PLuckyDraw 支持內定的，但是要找作者（官網）要內定支持版，網上的一般不支持內定的

4. 怎麼在PPT幻燈片中，插入一個抽獎的程序。

我設定的是2、5、10、50、100、200、500、1000、2000共9個選項。

如果你要改的話，按價值換成你的獎品就行了。

噢，對了，你先打開powerpoint，然後從文件-打開，擴展名改為pps就能打開這個文件進行修改了。

5. 怎麼做抽獎ppt

你好
公司晚會臨時需要增加一個抽獎活動，但是臨時沒有抽獎程序，沒事我們用PPT臨時做一個出來，非常的簡單，那麼下面就來教教大家如何PPT製作抽獎效果。

我們首先製作每個頁面的抽獎內容，然後轉換到第一頁，點擊上方的【動畫】，在切換速度中設置為【快速】，換片方式中【在此之後自動設置動畫效果】設置為0.01秒。

然後在設置放映方式中，勾丫循環放映，按ESC鍵終止】。

最後就可以開始放映幻燈片，按1暫停，按空格鍵繼續開始，按ESC停止。

以上就是在PPT中快速製作一個臨時抽獎程序的方法，是不是很簡單呢，小夥伴們以後遇到什麼臨時抽獎活動，就交給PPT吧。

6. 大神幫我在PPT2003中製作一款抽獎軟體，就是在1---42數字之間進行隨機抽取，並且隨時可以抽出任意數字

附件是電子表格的抽獎器，相信可能會符合你的要求。

7. 這是一個PPT中利用VBS抽獎的代碼，怎樣才能實現已抽題目中抽了四次之後就變成白的重新開始四次抽獎

PrivateNumAsInteger


PrivateSub開始_Click()
停止.Enabled=True
開始.Enabled=False
結果框.Text=""
DimaAsInteger
Randomize
Do
If停止.Enabled=FalseThen
結果框.Text=抽取框.Text
Num=Num+1
IfNum<=4Then
If已抽題目.Text=""Then
b=""
Else
b="#"
EndIf
已抽題目.Text=已抽題目.Text&b&抽取框.Text
Else
Num=1
已抽題目.Text=抽取框.Text
EndIf

ExitDo
Else
a=Fix(Rnd*10+1)
抽取框.Text=a
EndIf

DoEvents
Loop
開始.Enabled=True
EndSub


PrivateSub停止_Click()
停止.Enabled=False
EndSub


PrivateSub打開抽取的題目_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide(Val(抽取框.Text+1))
EndSub

'說明：
'1、可能需要保存為啟用宏的文檔
'2、去除了end命令，在調試狀態需要手動點擊代碼編輯窗口的「重新設置」按鈕結束程序

8. ppt製作抽獎系統

可以單獨製作一個幻燈片,共十張,每張一個阿拉伯數字,幻燈片切換為無切換方式，每隔一秒切換一次。然後在第一張放一張圖片，正好將數字遮蓋住，把這個圖片復制到其他的9張，可以保證位置完全不變。最後在「幻燈片放映」裡面選擇設置放映方式，循環播放。這樣的幻燈片在放映的時候就是看見的只是一張圖片沒有任何變化，但是實際上這張圖片蓋著的數字在一秒一個的走。剛開始做的時候這個數字沒必要按照正常順序排列，打亂了排。

需要停止的時候按下Esc，這時候退出來了，點擊把現在這張幻燈片上面的這個圖片刪除掉，可以看到數字。然後撤銷動作，圖片回來了，回來了之後繼續放一個，抽下一個數字。

通過抽數字得到號碼。比如時999內的人數你就可以抽三個數字，99內的人數就抽兩個數字。

嚴格按照人數的抽獎辦法，用PPT，我還沒想出來。這個已經不容易了。加點分吧。。。呵呵

9. 在PPT中插入滾動抽獎程序flash,1-100

就滾動數字還可以做，恐怕PPT實現不了這個效果也難做了，因為，FLASH可以寫代碼的，由代碼來控制，關鍵是點滑鼠或按鍵後，要停止滾動，而且要出現隨便數字，就是PPT很難實現的。
用於抽獎活動這應該是一個軟體。或者用FLASH能做

10. 大神幫我在PPT中製作一款抽獎軟體，就是在1---120數字之間進行滾動，並且隨時可以抽出任意數字

步驟就是這樣：
1、新建ppt.
2、打開「控制項工具箱」，步驟：菜單視圖>工具欄>控制項工具箱。
3、點擊控制項箱上控制項「命令按鈕」，在幻燈片1上畫一個命令按鈕CommandButton1,
4、點擊控制項箱上控制項「標簽」，在幻燈片1上畫一個一個標簽Label。
5、點擊「命令按鈕CommandButton1」右擊滑鼠，選「屬性」，將CommandButton1的Caption屬性設置為"抽獎開始",再如此方法，將Label1的Caption屬性設置為空白。當然在屬性中還可以設置字體、顏色等等。
6、點擊在CommandButton1控制項上右擊，選「查看代碼」，進入Visual Basic界面，編寫代碼：
Private Sub CommandButton1_Click()
Slide1.Label1.Caption = Int(Rnd * 120 + 1)
End Sub
這句代碼可以意思是「點擊命令按鈕CommandButton1生成一個1到120之間的隨機整數，並把它輸出到標簽label1」上。」
還要注意一點，這里編寫的VB程序實際上就是「宏」。很多人把病毒編寫為宏，隨著用戶打開ppt文檔，病毒就進入了你的電腦。所以為了安全，很多人都把宏禁用了。
但是宏如果被禁用了，那麼我們剛才編寫的程序就不起作用了。所以我們還應該啟用宏，方法是ppt中的工具>選項菜單，「安全性」選項卡，「宏安全性」按鈕，在彈出的「安全性」窗口中就可以設置宏的安全級別。
當然這個最好做一個flash 軟體插入ppt.

導航:首頁 > 源碼編譯 > ppt抽獎程序源碼

ppt抽獎程序源碼

與ppt抽獎程序源碼相關的資料