文档介绍：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()

. Val( 抽取框 .Text + 1)
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤
End Sub
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤
随机抽取题目并翻开
到抽取题目时，放映幻灯片，点击第一张的“开始”按钮，此时后来的文本框中就随机迅速转动显示
1到10
这十个数字，点击“停止”按钮后，数字停止转动，并显示出抽取的题号，同时在上方给出“您抽取的是
X 号
题”提示，在下方“已抽题目”中显示出全部抽过的题目标号。点击下方的“翻开抽取的题目”按钮，切换到
抽取题目幻灯片，选手做完题目后，点击返回链接，回到抽取题目页面，持续为下一个选手抽题（图
2 ）。
小提示：在幻灯片放映状态下，能够选中三个文本框控件中的文本，删除它们，达到清零的目的。
PPT随机抽题制作步骤
PPT随机抽题制作步骤
PPT随机抽题制作步骤
代码图示
宏代码
Private Sub 开始 _Click()