以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我想产生不重复的20位数字字符串  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60343)
--  作者：有点甜
--  发布时间：2014/11/23 10:10:00
--  

 你可以用连续的嘛，比如。

 

 00001-99999，一个一个的取啊
--  作者：有点甜
--  发布时间：2014/11/23 10:16:00
--  
 那你就用_Identify啊，肯定是要按顺序取才不会重复啊
--  作者：land089
--  发布时间：2014/11/23 10:45:00
--  
参考rand，你要20位的不重复值，用rand随机生成的话重复概率很低，
不放心的话生成一个写一个到数据表，数据列需要设置禁止重复！
Dim Val3 As Integer = Rand.Next(200,300)
--  作者：有点甜
--  发布时间：2014/11/23 11:01:00
--  
以下是引用mytian在2014-11-23 10:43:00的发言：
有没有高级语言中的产生随机数的种子概念？

 

随机数种子也不能保证不重复啊。
--  作者：xiaoqiwei
--  发布时间：2014/11/23 17:21:00
--  

提供个思路，以下代码可以生成16个不重复的字符：

 

Dim j As String = ""
For i As Integer = 1 To 16
    Do
        Dim k As String = Rand.NextString(1)
        If j.Contains(k) = False Then
            j = j & k
            Exit Do
        End If
    Loop
Next
Output.show(j)