怎么生成指定个数的随机数

[netfollower]

比如想生成13个数字的cd-key,该怎么编! 数组学得不是很好..请各位指点下.

[砸死牛顿的苹果]

cd-key 随机生成的 你要怎么验证啊? 通过网络服务器验证?

[砸死牛顿的苹果]

Option Explicit
Private Sub Command1_Click()
  Randomize Timer
  Dim s As String, i As Long
  Dim sdate(25) As Byte
  Cls
  For i = 0 To 25 Step 2
    sdate(i) = Fix(Rnd * 10) + &H30
  Next
  s = sdate
  Debug.Print s
End Sub

[netfollower]

谢谢大家！

[tk600158]

b=9999'生成1-9999的随机数
a=int(rnd()*b)'生成出来的数字

[cike_1111]

cd-key 是根据某一 "唯一特征号" 通过某些算法计算而来的 一组 可以通过 反计算还原得到 "唯一特征号"的号码
唯一特征号: 比如硬盘的序列号 主板的 CPU的 ==....

若只是 13 位数的 任意字符,那太简单了! 使用rnd 函数便可以

//...

Randomize
For i = 1 to 13
s=s & Int(Rnd*10) 
next i 
print s