求助如何在PPT中随机选取30个问题，不要重复~谢谢！

打开PPT2010，将演示文稿保存为启用宏的PPT演示文稿格式(即..pptm格式，带宏代码的演示文稿必须保存为这种格式)，在第一张幻灯片中设计选题界面，先插入三个文本框，写好必要的文字，然后通过“开发工具”选项卡插入三个命令按钮控件，在这些控件上单击鼠标右键，选择“属性”。打开他们的“属性”对话框，在“名称”后，将命令按钮的名称改为:启动、停止、打开提取的主题，然后在Caption后填写按钮上显示的名称(可以随意大写，与我这里设置的按钮名称相同)，设置字体、字号、背景色、样式。

再插入三个文本框控件，同样在属性对话框中，将它们的名称改为:提取框、结果框和提取的主题。将“提取框”放在“开始”和“停止”命令按钮控件之间，并将“结果框”放在“您提取了什么？号文本，拖动“所选主题”到合适的大小，放在下面(图1)。

然后新建一张幻灯片，设计选定主题放置界面，在上面设计一个链接，返回选定主题界面的幻灯片。复制多份此幻灯片，在相应的幻灯片上输入相应的主题，第一个主题在第二张幻灯片上，第二个主题在第三张幻灯片上，以此类推。

编写宏代码

接下来，按ALT+F11打开VBA宏编辑窗口，双击左边的“Slide1”将下面的代码复制到右边的窗格中并保存。

私有子start _Click()

停下来。“Enabled = True”停止按钮当前处于活动状态。

将a作为整数变暗

使不规则化

做

A = Fix(Rnd * 10+1)'使用随机函数。

提取框. text = a

结果框。文本= " "

多项活动

环

末端接头

私有Sub stop _Click()

结果框。Text =提取框。文本

所选主题=所选主题+提取框+"# " '主题标签以#分隔。

停下来。启用=假

结束

末端接头

Private Sub打开提取的topic _Click()

ActivePresentation幻灯片放映窗口_

. view.goto slideval(提取框。Text+1)

末端接头

随机选择问题并打开。

提取主题后，播放幻灯片，点击第一页的“开始”按钮。这时，从1到10这十个数字会随机快速显示在后面的文本框中。点击“停止”按钮后，数字将停止滚动，并显示提取的主题编号。同时顶部会给出“你提取了题目X”的提示，底部会给出“已选题目”。点击下面的“打开提取主题”按钮，切换到提取主题的幻灯片。玩家完成话题后，点击返回链接，返回提取话题页面，继续为下一位玩家提取话题(图2)。

提示:在幻灯片放映状态下，可以选择三个文本框控件中的文本并删除，达到清除的目的。