如何在ppt中实现随机选题
PPT实现随机选题
设计主题抽取界面
打开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)。
提示:在幻灯片放映状态下，可以选择三个文本框控件中的文本并删除，达到清除的目的。
代码图
宏代码
私有子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)
末端接头