|
|
下面是代码，但是没有实验不重复，还望大神们给加个代码，使之不重复抽取，或是有模板也给小弟发一下吧，因为办活动需要随机抽题，很急用。万分感谢万分感谢。代码如下：
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【图片】
求教大神修改PPT随机抽题不重复代码
求教大神修改PPT随机抽题不重复代码
|
|
