怎么在ppt中实现随机抽题.docx

《怎么在ppt中实现随机抽题.docx》由会员分享，可在线阅读，更多相关《怎么在ppt中实现随机抽题.docx（5页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、怎么在ppt中实现随机抽题怎么在ppt中实现随机抽题加城020，将演示文稿保存成启用宏的PPT演示文稿格式(即.pptm格式，包含宏代码的演示文稿，必须保存成这种格式),在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过开发工具选项卡，插入三个命令按钮控件，在这些控件上右击，选择属性命令，打开它们的属性对话框，在名称后将命令按钮名称分别修改为：开场、停止和打开抽取的题目，再在Caption后填写按钮上显示的名称(可随意大写，我这儿设置的与按钮名称一样)，并对字体、字号、背景颜色、样式等进行设置。再插入三个文本框控件，同样在属性对话框中，修改它们的名称为：抽取框、结果框和已抽

2、题目。把抽取框放到开场和停止命令按钮控件之间，把结果框放到您抽取的是号题文本中，将已抽题目拖至合适大小，放置到下面(图1)。接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依次类推。编写宏代码接下来，按ALT+F11组合键，打开VBA宏编辑窗口，双击左侧的Slide1，将下面代码复制到右窗格中并保存。PrivateSub开场_Click()停止.Enabled=True停止按钮当前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*1

3、0+1)使用随机函数抽取框.Text=a结果框.Text=DoEventsLoopEndSubPrivateSub停止_Click()结果框.Text=抽取框.Text已抽题目=已抽题目+抽取框+#题目的记用#分隔停止.Enabled=FalseEndEndSubPrivateSub打开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)EndSub随机抽取题目并打开到抽取题目时，放映幻灯片，点击第一张的开场按钮，此时其后的文本框中就随机快速滚动显示1到10这十个数字，点击停止按钮后，数字停

4、止滚动，并显示出抽取的题号，同时在上方给出您抽取的是X号题提示，在下方已抽题目中显示出所有抽过的题目的号。点击下方的打开抽取的题目按钮，切换到抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题(图2)。小提示：在幻灯片放映状态下，能够选中三个文本框控件中的文本，删除它们，到达清零的目的。代码图示宏代码PrivateSub开场_Click()停止.Enabled=True停止按钮当前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)使用随机函数抽取框.Text=a结果框.Text=DoEventsLoopEndSubPrivate

5、Sub停止_Click()结果框.Text=抽取框.Text已抽题目=已抽题目+抽取框+#题目的记用#分隔停止.Enabled=FalseEndEndSubPrivateSub打开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)EndSub怎么在ppt中实现随机抽题我们都知道，在excel中能够用公式做一个数字随机器，其实在ppt中可以以，应该怎么操作呢?下面是学习啦我为您带来的关于PPT实现随机抽题，希望对您有所帮助。PPT实现随机抽题设计抽题界面打开PPT2020，将演示文稿保存成启用宏的PPT推荐度：