抽取题目模板（ppt）

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就做好了，幻灯片放映后看看效果吧。