一、基础方法：纯文字随机抽题

准备题目

在PPT中每页幻灯片输入一个学生姓名或题目内容，使用文本框控件承载题目。

设置自动切换

- 切换到“切换”页面，勾选“自动换片”并设置为“循环播放”。

- 通过“幻灯片放映”设置切换时间为0.01秒。

添加按钮触发抽题

- 插入“命令按钮”控件，分别命名为“开始”“停止”“显示答案”。

- 通过VBA代码实现随机选题逻辑：

```vba

Private Sub 开始_Click()

Randomize

Dim a As Integer: a = Fix(Rnd * 10 + 1)

ActivePresentation.Slides(a + 1).Shapes(1).TextFrame.TextRange.Text = ActivePresentation.Slides(a + 1).Shapes(1).TextFrame.TextRange.Text

StopButton.Enabled = True

End Sub

```

- “停止”按钮用于暂停/恢复抽题，“显示答案”按钮可跳转至结果展示页。

二、进阶方法：带答案选项的交互式抽题

设计题目布局

- 使用“文本框”输入题干，使用“组合框”或“单选按钮”提供选项。

- 为每个选项设置“链接”指向下一题幻灯片。

实现随机匹配逻辑

- 在VBA中，通过`Randomize`和`Rnd`函数生成随机索引，匹配对应选项。

- 示例代码：

```vba

Private Sub 抽取按钮_Click()

Dim randomIndex As Integer: randomIndex = Int(Rnd() * 总题数)

ActivePresentation.Slides(randomIndex + 1).Shapes(2).TextFrame.TextRange.Text = 总题数 + 1

' 更新组合框选项

For i = 1 To 总选项数

ActivePresentation.Slides(randomIndex + 1).Shapes(3).TextFrame.TextRange.Text = 选项数组(i)

ActivePresentation.Slides(randomIndex + 1).Shapes(3).LinkTarget = "下一题幻灯片编号"

Next i

End Sub

```

- 添加“重置”按钮，通过`Timer`事件手动重置题目。

三、注意事项

数据管理

- 若题目数量较多，建议将题目存储在Word文件中，通过VBA的`Application.FileDialog`读取内容。

- 避免重复抽取：需维护已抽取项列表，匹配时跳过已选项目。

兼容性优化

- 保存为`.pptm`格式以启用宏功能。

- 对于复杂动画效果，可考虑使用PowerPoint母版或外部工具增强用户体验。

通过以上方法，可灵活实现课堂点名、知识竞赛等场景的随机抽题功能，提升教学互动性。