[求助] 随机组合出现重复怎么办？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 随机组合出现重复怎么办？

共有4750人关注过本帖平板打印复制链接主题：[求助] 随机组合出现重复怎么办？

农村人

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：174 积分：2349 威望：0 精华：0 注册：2015/8/12 15:36:00

[求助] 随机组合出现重复怎么办？ 发帖心情

Post By：2016/2/29 13:05:00 [只看该作者]

使用如下代码；

Dim str() As String = {"1","2","3","4","5","6"}

For i As Integer = 1 To 200 '组合次数

Dim rnum1 As Integer = Rand.Next(str.Length)

Dim rnum2 As Integer = Rand.Next(str.Length)

Dim temp As String = str(rnum1)

str(rnum1) = str(rnum2)

str(rnum2) = temp

Dim data As String = String.Join("", str)

Output.Show(data)

组合结果会出现多个重复，请问这如何解决？

总数 11 1 2 下一页

主题：[求助] 随机组合出现重复怎么办？