照网上的教程只做了个PPT的随机抽题系统，但如何在选题中筛除已选中的题目？

如何实现？求指点！

试试这个吧，应该可以用Private Sub CommandButton1_Click()flag = FalseDim q As IntegerDo While flag = Falseq = Fix(Rnd * 300 + 1) '使用随机函数抽取框.Text = qDoEventsLoopEnd SubPrivate Sub 抽取框_Change()End SubPrivate Sub 开始_Click()flag = True抽取框.Text = ""Static n As Integern = n + 1If n > 300 ThenMsgBox ("题目已抽完")Exit SubEnd IfDox = Int((300 - 1 + 1) * Rnd + 1)j = TrueFor i = 1 To n - 1If x = a(i) Then j = False: Exit ForNext iLoop Until ja(n) = x抽取框.Text = a(n)End SubPrivate Sub 打开抽取的题目_Click()ActivePresentation.SlideShowWindow.View.GotoSlide Val(抽取框.Text + 1)End Sub

用数组，抽取过的就从数组中删除 追问 大侠帮我改改吧！不会啊

前些年刚工作的时候，他们还会在提起自己女儿的时候眉眼间都是欣喜，可现在不了，他们会因为我没有成立自己的家庭而感到有些抬不起头。 本回答被提问者采纳

　　1 先把“幻灯片设计”弄出来（就是在右边有一栏）　　2 再点靠下一点的三个选项（设计模版、配色方案、动画方案）中的“配色方案”　　3 然后点最下边的“编辑配色方案...”　　4 选中“自定义”（就是在“标准”和“自定义”中间选）　　5 选中下边的“强调文字和超链接”，然后改成自己要的颜色　　6 再选中最下边的“强调文字和已访问的超链接”，然后再改成自己要的颜色　　7 记得点“确定”和“应用‘’

第一个功能可以用vba实现，但是俺不会。第二可能有点难度，暂时还不知道用什么可以实现。 本回答被网友采纳

期待但是好像FLASH做的更好之后嵌入PPT

2,可以用office2013，，当然，当时还没有

有篇文章，我截图给你看打开PPT2010，将演示文稿保存成启用宏的PPT演示文稿格式（即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式）,在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具”选项卡，插入三个命令按钮控件，在这些控件上右击，选择“属性”命令，打开它们的“属性”对话框，在“名称”后将命令按钮名称分别修改为：开始、停止和打开抽取的题目，再在Caption后填写按钮上显示的名称（可随意大写，我这儿设置的与按钮名称相同），并对字体、字号、背景颜色、样式等进行设置。再插入三个文本框控件，同样在“属性”对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框”放到“开始”和“停止”命令按钮控件之间，把“结果框”放到“您抽取的是  号题”文本中，将“已抽题目”拖至适合大小，放置到下面（图1）。接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依次类推。编写宏代码接下来，按ALT+F11组合键，打开VBA宏编辑窗口，双击左侧的“Slide1”，将以下代码复制到右窗格中并保存。Private Sub 开始_Click()停止.Enabled = True   '停止按钮当前有效Dim a As IntegerRandomizeDoa = Fix(Rnd * 10 + 1) '使用随机函数抽取框.Text = a结果框.Text = ""DoEventsLoopEnd SubPrivate Sub 停止_Click()结果框.Text = 抽取框.Text已抽题目 = 已抽题目 + 抽取框 + " # " '题目标记用#分隔停止.Enabled = FalseEndEnd SubPrivate Sub 打开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlide Val(抽取框.Text + 1)End Sub随机抽取题目并打开到抽取题目时，放映幻灯片，点击第一张的“开始”按钮，此时其后的文本框中就随机快速滚动显示1到10这十个数字，点击“停止”按钮后，数字停止滚动，并显示出抽取的题号，同时在上方给出“您抽取的是X号题”提示，在下方“已抽题目”中显示出所有抽过的题目标号。点击下方的“打开抽取的题目”按钮，切换到抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题（图2）。小提示：在幻灯片放映状态下，可以选中三个文本框控件中的文本，删除它们，达到清零的目的。 追问 这个选题会重复，怎么让他不重复 本回答被网友采纳

1、需要准备一份word文档，里面写上1-300的数字，记得的是word每一个数字都要作为一行，然后给每一个数字都选中标题1（建议可以在excel里面直接用填充柄，快速填充300个数字，复制到word里面，就更方便了）2、做好了这份word的之后，保存在桌面后，关闭word。3、新建一份PPT，点击“文件”-“打开”-“浏览”，4、找到你放置的word文件的位置，打开它，就可以放那些数字放到PPT里面，一个数字一页。5、选中其中一页，点击“视图”-“幻灯片母版”，6、进入那页后，只留下一个文本占位符，其他的删了，就留下那个写着“单击此处编辑母版标题样式”的，7、然后放好这个文本框的位置，放大里面的字体，在“开始选项”那里设置。都设置好后，点击“关闭母版视图”8、关闭后，选中所有的幻灯片，在“开始”选项那里的“版式”，找到我们刚刚设置的那页幻灯片，点击下它，就可以把所有页面就换成我们想要的版式了。9、选择所有幻灯片，在“切换”-“换片方式”，把点击鼠标时的勾去了，勾上“设置自动换片时间”。10、在“幻灯片放映”-“设置幻灯片放映时间”，勾上这个选项“循环播放，按ESC键终止”。11、这个时候你点击全屏播放或是按F5键播放，就是让幻灯片开始播放，你会看到每个数字在非常快的切换，就是抽奖。当你按任意键盘上的一个数字键时，它就会停止在抽奖的号码，当你按空格键时，它就开始继续抽奖，跳动。

　1.新建一个空白演示文档，将参加抽奖的人员的姓名录入PPT中，如图所示　　2. 一张幻灯片上录入一个参加抽奖的人员的姓名，如图所示　　3.点击【切换】---【切出】，然后将切片方式设置为设置自动换片时间，持续时间可以是00.10或者00.00，根据参加抽奖人数的多少而定。　　4.接着点击【幻灯片放映】------【设置幻灯片放映】，接着系统弹出【设置放映方式】对话框，如图所示　　5. 在【设置放映方式】对话框中勾选【按ESC键终止】选项，如图所示，点击【确定】即可。　　6.点击【从头开始】，幻灯片就开始从头播放，然后按Pause键即可停止，然后就顺利的选出了获奖者。

http://pan.baidu.com/s/1eQ3V9qM使用这个抽号器数字限定在1~60之间，使用前请允许使用宏，未做界面美化，请自行根据需要进行美化。代码如下：Sub txtStart() For i = 1 To 5000 With ActivePresentation.Slides(1) For j = 1 To 1 With .Shapes("txtNum" & j).TextFrame.TextRange .Text = Int((50 - 1 + 1) * Rnd + 1) #备注：支持1~100之间自定义，修改X参数即可：Text = Int((60 - 1 + 1) * Rnd + 1)# .Font.Color.RGB = 10000 * Rnd Debug.Print .Text End With Next End With DoEvents NextEnd SubSub OnSlideShowTerminate() Exit ForEnd Sub 本回答被网友采纳

最简单的不重复随机数算法是这样的。假如要取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个数字都被取出，循环结束。

你搜一下随机不重复值的算法