ppt随机抽号程序
- 格式:ppt
- 大小:261.50 KB
- 文档页数:1
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号题”提示,在下方“已抽题目”中显示出所有抽过的题目标号。
设计抽题界面打开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号题”提示,在下方“已抽题目”中显示出所有抽过的题目标号。
ppt随机抽题模板PPT随机抽题模板。
在做PPT演示时,我们经常需要进行随机抽题,以测试观众对知识点的掌握程度。
而设计一个好用的PPT随机抽题模板,不仅可以提高演示效果,还可以让观众更加积极参与。
接下来,我将为大家介绍一种简单实用的PPT随机抽题模板,希望能够对大家有所帮助。
首先,我们需要在PPT中创建一个题目页面,将所有题目按照顺序排列好。
然后,在每个题目下方插入一个文本框,用于显示随机抽取的题目。
接着,在PPT的“插入”选项卡中选择“形状”,插入一个矩形框,作为抽题按钮。
在矩形框中输入“随机抽题”,并设置好字体和颜色。
接下来,我们需要为抽题按钮添加宏功能。
首先,在PPT的“开发工具”选项卡中点击“宏”,然后新建一个宏并编写代码。
代码的功能是随机抽取题目,并将题目显示在之前插入的文本框中。
这样,当观众点击抽题按钮时,就会随机显示一个题目,增加了互动性和趣味性。
除了单纯的文字题目,我们还可以在PPT中插入图片题目或者视频题目。
同样的,我们可以为这些题目添加抽题功能,让观众在答题时更加多姿多彩。
另外,我们还可以在PPT中加入计分功能。
在每个题目下方插入一个文本框,用于记录观众的得分。
当观众回答正确时,可以点击一个“加分”按钮,自动给该观众加分;回答错误时,点击“减分”按钮,自动给该观众减分。
这样不仅可以增加观众的参与度,还可以使演示更加生动有趣。
最后,为了使PPT随机抽题模板更加美观,我们可以在每个题目页面中加入一些相关的图片或者动画效果,增加视觉冲击力。
这样,不仅可以吸引观众的注意力,还可以让PPT更加生动活泼。
总的来说,设计一个好用的PPT随机抽题模板并不难,关键是要考虑观众的体验和参与度。
通过合理的设计和一些简单的技巧,我们可以让PPT更加生动有趣,让观众在演示中获得更好的体验。
希望以上介绍对大家有所启发,也希望大家可以在自己的PPT演示中尝试使用这些方法,提升演示效果,让观众更加投入和享受。