我要做个PPT可以实现随即抽题来进行问答的，回答完毕，再返回抽题界面，抽过的题目还包含在原题中。

能随机出题吗？

返回界面很好处理，你在每个题目页面全屏幕覆盖一个透明文本框，上面设置超链接指向首页，然后设置自定义动画，让这个文本框在最后自动出现，计时器好像选成“之后”就行

这样你在屏幕任意位置点击鼠标，都能触发，回到首页。不需要点击某一个按钮

首页弄出几个数字，每个代表一道题，这样比较好

真要是随机出题，好像authwere比较适合，据我所知ppt只能随机播放图册，看看有大神知道怎么弄吗。

Private Num As Integer

Private Sub 开始_Click()

    停止.Enabled = True

    开始.Enabled = False

    结果框.Text = ""

    Dim a As Integer

    Randomize

    Do

        If 停止.Enabled = False Then

            结果框.Text = 抽取框.Text

            Num = Num + 1

            If Num <= 4 Then

                If 已抽题目.Text = "" Then

                    b = ""

                Else

                    b = " # "

                End If

                已抽题目.Text = 已抽题目.Text & b & 抽取框.Text

            Else

                Num = 1

                已抽题目.Text = 抽取框.Text

            End If

            

            Exit Do

        Else

            a = Fix(Rnd * 10 + 1)

            抽取框.Text = a

        End If

        

        DoEvents

    Loop

    开始.Enabled = True

End Sub

Private Sub 停止_Click()

    停止.Enabled = False

End Sub

Private Sub 打开抽取的题目_Click()

    ActivePresentation.SlideShowWindow.View.GotoSlide (Val(抽取框.Text + 1))

End Sub

' 说明：

' 1、可能需要保存为启用宏的文档

' 2、去除了end命令，在调试状态需要手动点击代码编辑窗口的“重新设置”按钮结束程序

---