本文是用ppt製作一個抽獎系統，點擊開始抽取時，屏幕會隨機滾動數字，點擊停止滾動即顯示抽取到的數字。
一、製作過程
第一步：打開ppt（我用的是wps）
第二步：點開“開發工具”如下圖：
第三步：在控件區選擇按鈕控件和標籤控件：
第四步：生成如下圖的樣式：
第五步：右擊左下角的按鈕控件出現如下，點擊屬性，出現下圖。
第六步：點擊如下圖的“宋體”中，可以選擇字體屬性：
第七步：選擇左下角的按鈕控件，右擊出現如下形式選擇“編輯”，可以編輯漢字，如下圖：
第八步：把右下角的按鈕控件如上步驟弄好。弄好後出現下圖：
第九步：雙擊開始按鈕，出現如下圖所示：
第十步：把下面的代碼複製到裏面，代碼如下：
Public a, b As Integer
Private Sub CommandButton1_Click()
b = 0
Do While True
a = 1 + Int(Rnd() * 1900)
Label1.Caption = a
Dim Savetime As Single
Savetime = Timer
While Timer < Savetime + 0.005
DoEvents
Wend
If b = 1 Then
Exit Do
End If
Loop
End Sub
第十一步：雙擊停止按鈕：如下所示：
把如下代碼放入
Private Sub CommandButton2_Click()
End Sub
之間，代碼如下：
b = 1
Label1.Caption = a
結果圖如下：
第十二步：按保存按鈕，選擇有宏的選項，如下圖：
二、對代碼的詳細解釋
Public a, b As Integer //聲明兩個全局變量a和b
Private Sub CommandButton1_Click() //一個按鈕點擊事件
b = 0 //把變量設爲0，這是一個標誌量，爲0時執行隨機函數，爲1 時執行停止操作
Do While True //無限循環，使隨機數變化。
a = 1 + Int(Rnd() * 1900) //產生隨機數表達式，1900代表的是1~1900之間的隨機數
Label1.Caption = a //使標籤控件顯示生成的隨機數。
Dim Savetime As Single //這五行用於延時，防止系統死掉
Savetime = Timer
While Timer < Savetime + 0.005
DoEvents
Wend
If b = 1 Then //判斷b值是否爲1，如果爲1，則停止產生隨機數。
Exit Do //退出無限循環
End If //否則，繼續執行無限循環
Loop //無限循環
End Sub //函數結束標誌
Private Sub CommandButton2_Click() //這是停止控件的監聽事件
b = 1 //把b值設爲1.
Label1.Caption = a //把選擇的隨機數顯示出來
End Sub //函數結束標誌
