如何在PPT里面实现数字1 300的随机抽奖思路：
点击开始抽奖按钮，则数字随机滚动；点击停止抽奖，则得出随机的中奖数字。
步骤：
1、背景：
打开PowerPoint软件，新建幻灯片，右键“设置背景格式”-“填充”-“图片或纹理填充”，选择准备好的背景图片。
2、如没有“开发工具”菜单项，则添加的方法为：点击“文件”菜单-“选项”-“自定义功能区”-“主选项卡”中找到“开发工具”，点击“添加”按钮即可。
3、添加控件：
点击“开发工具”菜单-“标签”控件，添加1个员工号的标签控制；“命令按钮”控件，添加2个按钮控制；选择员工号控制，右键“属性表”打开“属性”对话框，选择命令按钮1，设置BackColor为浅绿、Caption为开始抽奖、Font为隶书粗体一号、ForeColor为深绿色；切换到命令按钮1，设置BackColor为浅粉、Caption为停止抽奖、Font为隶书粗体一号、ForeColor为红色；切换到标签控制，设置BackColor为红色、Caption为中奖号、Font为隶书粗体初号、ForeColor为黄色；
4、“插入”菜单-“文本”-“文本框”-“横排文本框”，输入文字“祝贺中奖的员工号为：”，并设置为隶书、大小为48加粗、阴影、黄色；调整3个控件框的大小和位置。
5、双击开始抽奖按钮，在代码框的上方粘贴代码：
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//声明两个全局变量a和b
PrivateSubCommandButton1_Click()//一个按钮点击事件
b=0//把变量设为0，这是一个标志量，为0时执行随机函数，为时执行停止操作
DoWhileTrue//无限循环，使随机数变化。
a=1+Int(Rnd()*99)//产生随机数表达式，99代表的是1~99之间的随机数
Label1.Caption=a//使标签控件显示生成的随机数。
DimSavetimeAsSingle//这五行用于延时，防止系统死掉
Savetime=Timer
WhileTimer<Savetime+0.05
DoEvents
Wend
Ifb=1Then//判断b值是否为1，如果为1，则停止产生随机数。
ExitDo//退出无限循环
EndIf//否则，继续执行无限循环
Loop//无限循环
EndSub//函数结束标志
PrivateSubCommandButton2_Click()//这是停止控件的监听事件
b=1//把b值设为1.
Label1.Caption=a//把选择的随机数显示出来
EndSub//函数结束标志