主题：如何生成20位的随机不重复id？

如题。类似于-5677390854813236226或者261889430870773277

Dim s As String
Dim c As Integer = str(rand.Next(1,9))  '产生第一位,防止是 零
For i As Integer = 2 To 20  '产生第2-20位
   c = rand.Next(0,9)  '每一位是一位数
   s = s & c   '累加
Next
output.Show(s)   '显示结果 ->这里是字符串型
output.Show(clng(s)) '转换成 Long 型 ->这里就是数值型了

如果产生不重复的20位字符型ID（字母也不所谓，中是20位长度）就比较简单了

dim s as string = rand.Nextstring(20)

output.show(s)

多谢