随机抽题制作步骤.docxVIP

完美 完美 WORD 格式 专业 知识分享 专业 知识分享 PPT 轻松实现随机抽题 设计抽题界面 打开 PPT2010，将演示文稿保存成启用宏的PPT 演示文稿格式（即.pptm 格式，包含宏代码的演示文稿，必须保存成这种格式）,在第一张幻灯片中设计抽题界面，先插入三个文本框，写上必要的文字，再通过“开发工具选项卡，插入三个命按钮控件，在这些控件上右击，选择“属性命，打开它们的“属性对话框，在“名 称 后将命按钮名称分别修改为： 开始、停止和打开抽取的题目，再在 Caption 后填写按钮上显示的名称（可随意大写，我这儿设置的与按钮名称相同），并对字体、字号、背景颜色、样式等进设置。 再插入三个文本框控件，同样在“属性对话框中，修改它们的名称为：抽取框、结果框和已抽题目。把“抽取框放到“开始和“停止命按钮控件之间，把“结果框放到“您抽取的是 号题文本中，将“已抽题目拖至适合大小，放置到下面（图 1）。 接着新建一张幻灯片，设计好被抽题目放置界面，并在其上设计一个返回到抽题界面幻灯片的链接。将该幻灯 片复制多份，将相应题目录入相应各幻灯片上，第二张幻灯片放第一道题目，第三张幻灯片放第二道题目，依 次类推。 编写宏代码 接下来，按 ALT+F11 组合键，打开 VBA 宏编辑窗口，双击左侧的“Slide1，将以下代码复制到右窗格中并保存。 Private Sub 开始_Click() 停止.Enabled = True 停止按钮当前有效Dim a As Integer 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) End Sub End Sub 随机抽取题目并打开 到抽取题目时，放映幻灯片，点击第一张的“开始按钮，此时其后的文本框中就随机快速滚动显示 1 到 10 这 十个数字，点击“停止按钮后，数字停止滚动，并显示出抽取的题号，同时在上方给出“您抽取的是 X 号题提示，在下方“已抽题目中显示出所有抽过的题目标号。点击下方的“打开抽取的题目按钮，换到抽取 题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，继续为下一个选手抽题（图 2）。 小提示：在幻灯片放映状态下，可以选中三个文本框控件中的文本，删除它们，达到清的目的。 代码图示 宏代码 Private Sub 开始_Click() 停止.Enabled = True 停止按钮当前有效Dim a As Integer 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() Private Sub 打开抽取的题目_Click() ActivePresentation.SlideShowWindow_ .View.GotoSlide Val(抽取框.Text + 1) End Sub