这是我的随机抽题程序,请问怎么样才能实现不重复抽题呢,需要怎么改?
程序代码:
Private Sub 开始_Click() 停止.Enabled = True Dim a As Integer Randomize Do a = Fix(Rnd * 10 + 1) '随机产生一个1~10的数赋给a 抽取框.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