如何产生6位唯一随机数

Question

GEN_RAND_NO:Randomize
lsCode = Mid(Cstr(Rnd() * 100000000000000), 1, 6)' 判断唯一，比如查数据库...' 不唯一
GOTO GEN_RAND_NO:

Answer 1

'num 为你要产生的树的个数
Randomize Timer
        x(0) = Int(Rnd * 100000000000000)
For i = 1 To num-1
flag:   Randomize Timer
        x(i) = Int(Rnd * 100000000000000)
        For j = i - 1 To 0
            If x(i) = x(j) Then
                GoTo flag
            End If
        Next j
Next i