抽取题目模板（ppt）

1、设计演示文稿。本实例是随机抽取3道题目的ppt，一共4页。

2、第一页，在幻灯片里书写上文字“ppt抽取题目模板”，再利用开发工具，添加2个按钮组件，1个文本框组件。修改两个按钮组件的属性分别为“出题”“打开题目”。

4、下面输入代码，在“出题”岳蘖氽颐按钮中输入如下代码Private Sub CommandButton1_Click()Dim n As Integern = Int(3 * Rnd + 1) 'n为随机抽取的数值，设置为从1-3里抽取TextBox1.Text = nEnd Sub

5、在“打开题目”按钮中输入如下代码Private Sub CommandButton2_Click()Application.SlideShowWindows(1).View.GotoSlide TextBox1.Text + 1End Sub

6、到此简单的出题ppt就做好了，幻灯片放映后看看效果吧。