随机抽取参赛组和不重复抽取题目的PPT
- 格式:ppt
- 大小:185.50 KB
- 文档页数:70


幻灯片随机抽题不重复制作随机抽题幻灯片,抽题不能重复,在PPT中实现起来比较困难,编程或写代码可不是一般人所能驾驭的。
利用Articulate Storyline软件制作,实现起来就相对容易得多。
我们制作一个小猴摘香蕉的抽题游戏:在题库中随机不重复抽题,当孩子每做对一道题,小猴就在树上向上爬一段距离;当做对5道题时,小猴就能够摘到树上的香蕉(图1)。
制作游戏开始界面首先要设计一个好的游戏界面。
打开Articulate Storyline 2新建项目,双击“1.1无标题幻灯片”,将幻灯片标题更改为“1.1开始界面1”,双击这个幻灯片进入编辑窗口,利用“设计”选项卡中的“文章大小设置”将幻灯片的宽度、高度分别设置为338、500;利用“插入”选项卡中的图片、文本框,插入本张幻灯片所需要的图片和文本,并在各自对应的时间线上双击更改时间线名称,如小猴图片所对应的时间线名改为“小猴”;选中各个图片或文本框,利用“动画”选项卡设置各自出现时的动画效果;在各自的时间线上利用鼠标在选中时间线的左、右两边分别进行拖动,以调整图片或文本出现和消失的时间顺序;在幻灯片空白处右击,选择“属性”,在弹出的窗口“幻灯片导航控件”处,去掉“上一页”“下一页”前面的勾选;在右侧的触发器处新建触发器,设操作为“跳转到幻灯片”,幻灯片为“下一张幻灯片”,时间为“时间轴结束”,对象为“1.1开始界面1”(图2)。
在左侧场景的目录幻灯片处,右击这个幻灯片选择“重复”,这样就复制出一个相同的幻灯片,将复制出的幻灯片命名为“1.2开始界面2”;在复制出的幻灯片中,将不需要的图片或文本框删除,再添加新的图片或文本框,同样设置好它们出现时的动画效果并在时间线上调整好它们各自出现的顺序;删除右侧的触发器;勾选这张幻灯片“幻灯片导航控件”处的“下一页”(图3)。
设置题库幻灯片答对题目的数量需要有相应的变量进行计数,所以在右侧触发器处,点击“管理项目变量”,新建两个变量,名称分别为duishu、xudatishu,类型为编号,默认值分别为0、5。
ppt实现随机抽题ppt实现随机抽题设计抽题界面打开ppt2010,将演示文稿保存成启用宏的ppt演示文稿格式(即.pptm格式,包含宏代码的演示文稿,必须保存成这种格式),在第一张幻灯片中设计抽题界面,先插入三个文本框,写上必要的文字,再通过“开发工具”选项卡,插入三个命令按钮控件,在这些控件上右击,选择“属性”命令,打开它们的“属性”对话框,在“名称”后将命令按钮名称分别修改为:开始、停止和打开抽取的题目,再在caption后填写按钮上显示的名称(可随意大写,我这儿设置的与按钮名称相同),并对字体、字号、背景颜色、样式等进行设置。
再插入三个文本框控件,同样在“属性”对话框中,修改它们的名称为:抽取框、结果框和已抽题目。
把“抽取框”放到“开始”和“停止”命令按钮控件之间,把“结果框”放到“您抽取的是号题”文本中,将“已抽题目”拖至适合大小,放置到下面(图1)。
接着新建一张幻灯片,设计好被抽题目放置界面,并在其上设计一个返回到抽题界面幻灯片的链接。
将该幻灯片复制多份,将相应题目录入相应各幻灯片上,第二张幻灯片放第一道题目,第三张幻灯片放第二道题目,依次类推。
编写宏代码接下来,按alt+f11组合键,打开vba宏编辑窗口,双击左侧的“slide1”,将以下代码复制到右窗格中并保存。
private sub 开始_click()停止.enabled = true '停止按钮当前有效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随机抽取题目并打开到抽取题目时,放映幻灯片,点击第一张的“开始”按钮,此时其后的文本框中就随机快速滚动显示1到10这十个数字,点击“停止”按钮后,数字停止滚动,并显示出抽取的题号,同时在上方给出“您抽取的是x号题”提示,在下方“已抽题目”中显示出所有抽过的题目标号。