《2022年PPT随机抽题制作步骤.pdf》由会员分享，可在线阅读，更多相关《2022年PPT随机抽题制作步骤.pdf（6页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、PPT随机抽题制作步骤PPT 轻松实现随机抽题设计抽题界面打开 PPT2010, 将演示文稿保存成启用宏的PPT 演示文稿格式(即、 pptm格式 ,包含宏代码的演示文稿,必须保存成这种格式 ),在第一张幻灯片中设计抽题界面,先插入三个文本框,写上必要的文字,再通过“开发工具”选项卡,插入三个命令按钮控件,在这些控件上右击,选择“属性”命令,打开它们的“属性”对话框,在“名称”后将命令按钮名称分别修改为:开始、停止与打开抽取的题目,再在 Caption后填写按钮上显示的名称(可随意大写 ,我这儿设置的与按钮名称相同),并对字体、字号、背景颜色、样式等进行设置。再插入三个文本框控件,同样在“属性
2、”对话框中,修改它们的名称为:抽取框、结果框与已抽题目。把“抽取框”放到“开始”与“停止”命令按钮控件之间,把“结果框”放到“您抽取的就是号题”文本中,将“已抽题目”拖至适合大小,放置到下面 (图 1)。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 6 页 - - - - - - - - - - PPT随机抽题制作步骤接着新建一张幻灯片,设计好被抽题目放置界面,并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯片复制多份 ,将相应题目录入相应各幻灯片上,第二张幻灯片放第一道题目,第三张幻灯
3、片放第二道题目,依次类推。编写宏代码接下来 ,按 ALT+F11组合键 ,打开 VBA 宏编辑窗口 ,双击左侧的“Slide1 ”,将以下代码复制到右窗格中并保存。Private Sub 开始 _Click() 停止、 Enabled = True 停止按钮当前有效Dim a As Integer Randomize 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 6 页 - - - - - - - - - - PPT随机抽题制作步骤Do a = Fix(Rnd * 10 + 1) 使用随机函
4、数抽取框、 Text = a 结果框、 Text = DoEvents Loop End Sub Private Sub 停止 _Click() 结果框、 Text = 抽取框、 Text 已抽题目= 已抽题目+ 抽取框+ # 题目标记用 #分隔停止、 Enabled = False End End Sub Private Sub 打开抽取的题目_Click() ActivePresentation、 SlideShowWindow_ 、View 、GotoSlide Val(抽取框、 Text + 1) End Sub 随机抽取题目并打开精品资料 - - - 欢迎下载 - - - - - -
5、 - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 6 页 - - - - - - - - - - PPT随机抽题制作步骤到抽取题目时,放映幻灯片 ,点击第一张的 “开始” 按钮 ,此时其后的文本框中就随机快速滚动显示1 到 10 这十个数字 ,点击“停止”按钮后,数字停止滚动,并显示出抽取的题号,同时在上方给出“您抽取的就是X 号题”提示 ,在下方“已抽题目”中显示出所有抽过的题目标号。点击下方的“打开抽取的题目”按钮,切换到抽取题目幻灯片,选手做完题目后,点击返回链接,回到抽取题目页面,继续为下一个选手抽题(图 2)。小提示 :在幻灯片放映状态下
6、,可以选中三个文本框控件中的文本,删除它们 ,达到清零的目的。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 6 页 - - - - - - - - - - PPT随机抽题制作步骤代码图示宏代码Private Sub 开始 _Click() 停止、 Enabled = True 停止按钮当前有效Dim a As Integer Randomize Do a = Fix(Rnd * 10 + 1) 使用随机函数抽取框、 Text = a 结果框、 Text = DoEvents Loop End
7、 Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 6 页 - - - - - - - - - - PPT随机抽题制作步骤Private Sub 停止 _Click() 结果框、 Text = 抽取框、 Text 已抽题目= 已抽题目+ 抽取框+ # 题目标记用 #分隔停止、 Enabled = False End End Sub Private Sub 打开抽取的题目_Click() ActivePresentation、 SlideShowWindow_ 、View 、GotoSlide Val(抽取框、 Text + 1) End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 6 页 - - - - - - - - - -