注册 登录
编程论坛 C++教室

这是我的随机抽题程序,请问怎么样才能实现不重复抽题呢,需要怎么改?

柠檬师弟 发布于 2016-12-04 21:17, 1304 次点击
程序代码:
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



只有本站会员才能查看附件,请 登录
1 回复
#2
rjsp2016-12-04 21:36
这里是C++板块,不是VB板块。
在C++中先生成一个1到10的序列,然后使用std::random_shuffle乱序之即可
1