Question

单位搞知识竞赛，用ppt2010做了一个抽题软件，但是老是会有题目被重复抽出来，请教：

如何做到随机抽题不重复！我现在的代码是这样的：
Private Sub 开始_Click()
停止.Enabled = True '停止按钮当前有效
Dim a As Integer
Randomize
Do
a = Fix(Rnd * 23 + 1) '使用随机函数
抽取框.Text = a
结果框.Text = ""
DoEvents
Loop
End Sub
Private Sub 停止_Click()
结果框.Text = 抽取框.Text
已抽题目 = 已抽题目 + 抽取框 + "号题" + ","
停止.Enabled = False
End
End Sub
Private Sub 打开抽取的题目_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide (抽取框.Text + 1)
End Sub
Private Sub 已抽题目_Change()
End Sub

求解救！银子不多，感谢感谢！
邮箱：275100230@qq.com
高手啊，帮我改改吧！

Answer 1

试试这个吧，应该可以用
Private Sub CommandButton1_Click()
flag = False

Dim q As Integer

Do While flag = False

q = Fix(Rnd * 300 + 1) '使用随机函数
抽取框.Text = q

DoEvents
Loop

End Sub

Private Sub 抽取框_Change()

End Sub

Private Sub 开始_Click()
flag = True
抽取框.Text = ""

Static n As Integer
n = n + 1
If n > 300 Then
MsgBox ("题目已抽完")
Exit Sub
End If
Do
x = Int((300 - 1 + 1) * Rnd + 1)
j = True
For i = 1 To n - 1
If x = a(i) Then j = False: Exit For

Next i
Loop Until j
a(n) = x

抽取框.Text = a(n)

End Sub
Private Sub 打开抽取的题目_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide Val(抽取框.Text + 1)

End Sub

Answer 2

可以试试顶伯知识竞赛系统，直接可以设置随机出题，不用函数

Answer 3

用数组，抽取过的就从数组中删除

追问

大侠帮我改改吧！
不会啊

Answer 4

前些年刚工作的时候，他们还会在提起自己女儿的时候眉眼间都是欣喜，可现在不了，他们会因为我没有成立自己的家庭而感到有些抬不起头。