怎么生成指定个数的随机数
比如想生成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
--------------------编程问答-------------------- cd-key 是根据某一 "唯一特征号" 通过某些算法计算而来的 一组 可以通过 反计算还原得到 "唯一特征号"的号码
b=9999'生成1-9999的随机数
a=int(rnd()*b)'生成出来的数字
唯一特征号: 比如硬盘的序列号 主板的 CPU的 ==....
若只是 13 位数的 任意字符,那太简单了! 使用rnd 函数便可以
//...
--------------------编程问答-------------------- 谢谢大家！
Randomize
For i = 1 to 13
s=s & Int(Rnd*10)
next i
print s
补充：VB , 基础类
