这是我的随机抽题程序，请问怎么样才能实现不重复抽题呢，需要怎么改？ - C++教室 - C++论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → C++论坛 → 『 C++教室』 → 这是我的随机抽题程序，请问怎么样才能实现不重复抽题呢，需要怎么改？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1194 人关注过本帖

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

只看楼主加入收藏

柠檬师弟

等　级：新手上路
帖　子：6
专家分：0
注　册：2016-9-20
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：1

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

程序代码：

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

图片附件: 游客没有浏览图片的权限，请登录或注册

2016-12-04 21:17

rjsp

等　级：版主
威　望：528
帖　子：9024
专家分：54030
注　册：2011-1-18

第 2 楼

得分:20

这里是C++板块，不是VB板块。
在C++中先生成一个1到10的序列，然后使用std::random_shuffle乱序之即可

2016-12-04 21:36

快速回复：这是我的随机抽题程序，请问怎么样才能实现不重复抽题呢，需要怎么改？ ...