以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个只有请教高手了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28260)
--  作者：zhuzhi
--  发布时间：2013/1/23 17:24:00
--  [求助]这个只有请教高手了

因工作需要，需要大批量地编号，编号示例为：4F114C641E2002E0

是16位的数字、字母组合

 

请问用狐表可以随机编成这样的号码吗？

 

十分感谢！
--  作者：lin_hailun
--  发布时间：2013/1/23 17:32:00
--  
 大概这样就可以了。

static data As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"

Dim bh As String = ""
For i As Integer = 1 To 16
    bh &= data(Rand.Next(0, Data.Length))
Next

msgbox(bh)