如何让抽取的题目不重复？

dingws 发表于 2015-5-28 10:15:00

无法上传附件，代码如下：如何让抽取的值不会重复？
Private Sub 开始_Click()
停止.Enabled = True '停止按钮当前有效
Dim a As Integer
Randomize
Do
a = Fix(Rnd * 10 + 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 Val(抽取框.Text + 1)
End Sub

lonely52 发表于 2015-5-28 11:27:12