分享
分享赚钱 收藏 举报 版权申诉 / 6

类型PPT随机抽题制作步骤.doc

  • 上传人:weiwoduzun
  • 文档编号:3264901
  • 上传时间:2018-10-09
  • 格式:DOC
  • 页数:6
  • 大小:220.50KB
  • 配套讲稿:

    如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

    特殊限制:

    部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

    关 键  词:
    PPT随机抽题制作步骤.doc
    资源描述:

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

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

    3、当前有效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

    4、)End Sub随机抽取题目并打开到抽取题目时,放映幻灯片,点击第一张的“开始”按钮,此时其后的文本框中就随机快速滚动显示 1 到 10这十个数字,点击“停止”按钮后,数字停止滚动,并显示出抽取的题号,同时在上方给出“您抽取的是 X 号题”提示,在下方“已抽题目”中显示出所有抽过的题目标号。点击下方的“打开抽取的题目”按钮,切换到抽取题目幻灯片,选手做完题目后,点击返回链接,回到抽取题目页面,继续为下一个选手抽题(图 2)。小提示:在幻灯片放映状态下,可以选中三个文本框控件中的文本,删除它们,达到清零的目的。代码图示宏代码Private Sub 开始_Click()停止.Enabled = T

    5、rue 停止按钮当前有效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

    提示  道客多多所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    关于本文
    本文标题:PPT随机抽题制作步骤.doc
    链接地址:https://www.docduoduo.com/p-3264901.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    道客多多用户QQ群:832276834  微博官方号:道客多多官方   知乎号:道客多多

    Copyright© 2025 道客多多 docduoduo.com 网站版权所有世界地图

    经营许可证编号:粤ICP备2021046453号    营业执照商标

    1.png 2.png 3.png 4.png 5.png 6.png 7.png 8.png 9.png 10.png



    收起
    展开