ppt抽奖程序源码

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.