1 / 6
文档名称:

PPT随机抽题制作步骤.docx

格式:docx   大小:219KB   页数:6页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

文档介绍:PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤


PPT 轻松实现随机抽题




设计抽题界面





翻开 PPT2010 ,将演示文稿保留成启用宏的 PPT 演示文稿格式(即作步骤





Dim a As Integer
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤



Randomize





Do





a = Fix(Rnd * 10 + 1) ' 使用随机函数





抽取框 .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)
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤





End Sub
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤



随机抽取题目并翻开

到抽取题目时,放映幻灯片,点击第一张的“开始”按钮,此时后来的文本框中就随机迅速转动显示
1到10
这十个数字,点击“停止”按钮后,数字停止转动,并显示出抽取的题号,同时在上方给出“您抽取的是
X 号
题”提示,在下方“已抽题目”中显示出全部抽过的题目标号。点击下方的“翻开抽取的题目”按钮,切换到

抽取题目幻灯片,选手做完题目后,点击返回链接,回到抽取题目页面,持续为下一个选手抽题(图
2 )。






























































小提示:在幻灯片放映状态下,能够选中三个文本框控件中的文本,删除它们,达到清零的目的。
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤
































































代码图示




宏代码



Private Sub 开始 _Click()

分享好友

预览全文

PPT随机抽题制作步骤.docx

上传人:飞行的振中 2022/5/19 文件大小:219 KB

下载得到文件列表

PPT随机抽题制作步骤.docx

相关文档