欢迎来到天天文库
浏览记录
ID:69053082
大小:220.50 KB
页数:6页
时间:2021-10-27
《PPT随机抽题制作步骤》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、..-PPT轻松实现随机抽题设计抽题界面翻开PPT2010,将演示文稿保存成启用宏的PPT演示文稿格式〔即.pptm格式,包含宏代码的演示文稿,必须保存成这种格式〕,在第一X幻灯片中设计抽题界面,先插入三个文本框,写上必要的文字,再通过“开发工具〞选项卡,插入三个命令按钮控件,在这些控件上右击,选择“属性〞命令,翻开它们的“属性〞对话框,在“名称〞后将命令按钮名称分别修改为:开场、停顿和翻开抽取的题目,再在Caption后填写按钮上显示的名称〔可随意大写,我这儿设置的与按钮名称一样〕,并对字体、字号、背景颜色、样式等进
2、展设置。再插入三个文本框控件,同样在“属性〞对话框中,修改它们的名称为:抽取框、结果框和已抽题目。把“抽取框〞放到“开场〞和“停顿〞命令按钮控件之间,把“结果框〞放到“您抽取的是号题〞文本中,将“已抽题目〞拖至适合大小,放置到下面〔图1〕。-.word.zl-..-接着新建一X幻灯片,设计好被抽题目放置界面,并在其上设计一个返回到抽题界面幻灯片的。将该幻灯片复制多份,将相应题目录入相应各幻灯片上,第二X幻灯片放第一道题目,第三X幻灯片放第二道题目,依次类推。编写宏代码接下来,按ALT+F11组合键,翻开VBA宏编辑窗口
3、,双击左侧的“Slide1〞,将以下代码复制到右窗格中并保存。PrivateSub开场_Click()-.word.zl-..-停顿.Enabled=True'停顿按钮当前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)'使用随机函数抽取框.Text=a结果框.Text=""DoEventsLoopEndSubPrivateSub停顿_Click()结果框.Text=抽取框.Text已抽题目=已抽题目+抽取框+"#"'题目标记用#分隔停顿.Enabled=FalseEndEndSub-
4、.word.zl-..-PrivateSub翻开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)EndSub随机抽取题目并翻开到抽取题目时,放映幻灯片,点击第一X的“开场〞按钮,此时其后的文本框中就随机快速滚动显示1到10这十个数字,点击“停顿〞按钮后,数字停顿滚动,并显示出抽取的题号,同时在上方给出“您抽取的是X号题〞提示,在下方“已抽题目〞中显示出所有抽过的题目标号。点击下方的“翻开抽取的题目〞按钮,切换到抽
5、取题目幻灯片,选手做完题目后,点击返回,回到抽取题目页面,继续为下一个选手抽题〔图2〕。-.word.zl-..-小提示:在幻灯片放映状态下,可以选中三个文本框控件中的文本,删除它们,到达清零的目的。代码图示宏代码PrivateSub开场_Click()停顿.Enabled=True'停顿按钮当前有效DimaAsIntegerRandomizeDoa=Fix(Rnd*10+1)'使用随机函数抽取框.Text=-.word.zl-..-a结果框.Text=""DoEventsLoopEndSubPrivateSub停顿_
6、Click()结果框.Text=抽取框.Text已抽题目=已抽题目+抽取框+"#"'题目标记用#分隔停顿.Enabled=FalseEndEndSubPrivateSub翻开抽取的题目_Click()ActivePresentation.SlideShowWindow_.View.GotoSlideVal(抽取框.Text+1)EndSub-.word.zl-
此文档下载收益归作者所有