PowerPoint幻灯片抽奖幻灯片如何重复
1.做了一个抽奖的ppt,当我的倒计时图片结束后,怎么进入一直循环的
您好，由于动画的持续时间最多为59秒，幻灯片不可以单独做循环播放，只可以做幻灯片整体循环。所以您假如要求的单个幻灯片循环是办不到的 但是假如所有的倒计时图片跟抽奖演示都在一张幻灯片上是可以实现的，方法如下： 打开动画窗格，进行设置
选择效果选项，如图设置即可
2.知识竞赛中PPT当中用VBA设置了随机抽题,但是抽出来的题总是重
最简单的不重复随机数算法是这样的。
假如要取0-9个随机数
那么先定义一个10个元素数组，存放0-9的值。再定义一个数字，存放数组有效元素的起始下标。
然后取随机数，范围为0-当前数组有效元素个数。 第一次为0-10（即取包含0，不包含10的随机数）。
假设第一次取到是5。
那么将数组中第5个元素输出，然后将第5个元素置为有效元素的起始下标（此时是0），有效元素的起始下标置为-1（这步做不做无所谓。），数组有效元素下标+1
继续取1-9，假设下一个随机数是5，那么将第5个元素输出，然后将第5个元素置为有效元素的起始下标（此时是1），数组有效元素下标+1。
继续取2-9，假设下一个随机数是5，那么将第5个元素输出，然后将第5个元素置为有效元素的起始下标（此时是2），数组有效元素下标+1。
以此类推，直到取了10次随机数，10个数字都被取出，循环结束。
3.PPT如何一次性从3个不同题库抽题?
红色经典创意2015模板
信息科技年终盛典模板
我用excel题库做过一个的，但不是在PPT显示，而是生成word纸试卷。
探讨一思路吧：
用excel 随机函数为题库中各题目生在一个随机数，再用rank函数取得这个随机数排在前5位的题目就行了，因为表内数据刷新一次，随机数变化一次，前5的题目也会变化一次。
但是不能保证第二次的题目和第一次出现的题目不重复，若想不重复，则需要对已取过的题目进行标记，再重新取题
VBA编程解决的办法其实有很多的，比如：建临时表，做标记、采用数组、字典等等
4.PPT如何一次性从3个不同题库抽题?
红色经典创意2015模板信息科技年终盛典模板我用excel题库做过一个的，但不是在PPT显示，而是生成word纸试卷。
探讨一思路吧：用excel 随机函数为题库中各题目生在一个随机数，再用rank函数取得这个随机数排在前5位的题目就行了，因为表内数据刷新一次，随机数变化一次，前5的题目也会变化一次。但是不能保证第二次的题目和第一次出现的题目不重复，若想不重复，则需要对已取过的题目进行标记，再重新取题VBA编程解决的办法其实有很多的，比如：建临时表，做标记、采用数组、字典等等。
5.ppt的VB窗口,1到100,类似抽奖,一次产生五个不同随机数,第二次
Private Sub CommandButton1_Click()
Dim ran As New RandomHelper(1, 100)
TextBox1.Value = ran.Next
TextBox2.Value = ran.Next
TextBox3.Value = ran.Next
TextBox4.Value = ran.Next
TextBox5.Value = ran.Next
End Sub
Class RandomHelper
Protected nums As List(Of Integer)
Protected min, max As Integer
Public Sub New(min As Integer, max As Integer)
Me.min = min
Me.max = max
Reset()
End Sub
Public Function [Next]() As Integer
Dim tmp As Integer = Int(Rnd() * nums.Count)
Dim value As Integer = nums(tmp)
nums.RemoveAt(tmp)
Return value
End Function
Public Sub Reset()
nums = New List(Of Integer)
For i = min To max
nums.Add(i)
Next
End Sub
End Class