1、设计演示文稿。
本实例是随机抽取3道题目的ppt，一共4页。
2、第一页，在幻灯片里书写上文字“ppt抽取题目模板”，再利用开发工具，添加2个按钮组件，1个文本框组件。修改两个按钮组件的属性分别为“出题”“打开题目”。
3、剩下三个幻灯片，分别做成如下图所示。“1”“2”“3”的位置可以输入您要显示的题目内容。每一页下方的按钮，都要设置好超链接，链接到第一页。
4、下面输入代码，在“出题”按钮中输入如下代码
Private Sub CommandButton1_Click()
Dim n As Integer
n = Int(3 * Rnd + 1) 'n为随机抽取的数值，设置为从1-3里抽取
TextBox1.Text = n
End Sub
5、在“打开题目”按钮中输入如下代码
Private Sub CommandButton2_Click()
Application.SlideShowWindows(1).View.GotoSlide TextBox1.Text + 1
End Sub
6、到此简单的出题ppt就做好了，幻灯片放映后看看效果吧。
