＋设为首页 ＋添加到收藏夹
我写了一段代码，但随机数就是取不到。为什么？
function GenerateUserId()
产生随机数作为用户唯一标识
dim tempUserId
dim i
for i=0 to 2
tempUserId = tempUserId & Right(Cstr((9-0+1)*Rnd+0),2)
next
GenerateUserId = tempUsrId
End function
Microsoft(R) Visual Basic(R) Scripting Edition
Randomize 语句 语言参考
起始页|版本 1
请参阅
--------------------------------------------------------------------------------
描述
初始化随机数生成器。
语法
Randomize [number]
number 参数可以是任何有效的数值表达式。
说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。
如果不使用 Randomize，则第一次调用 Rnd 函数时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。
--------------------------------------------------------------------------------
注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。
--------------------------------------------------------------------------------
下面例子举例说明如何使用 Randomize 语句:
Dim MyValue, Response
Randomize 初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((6 * Rnd) + 1) 产生 1 到 6 之间的随机数。
MsgBox MyValue
Response = MsgBox ("Roll again? ", vbYesNo)
Loop
--------------------------------------------------------------------------------
(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use.
function GenerateUserId()
产生随机数作为用户唯一标识
Randomize 初始化随机数生成器。
dim tempUserId
dim i
for i=0 to 2
tempUserId = tempUserId & Right(Cstr((9-0+1)*Rnd+0),2)
next
GenerateUserId = tempUsrId
End function
password=""
0---9 48 -- 57
a-z 97---122
A--Z 65--90
for cot=1 to 12
randomize
word=(rnd()*10) mod 3
if word=0 then
word1=(rnd()*100) mod 10
word2=48+word1
elseif word=1 then
word1=(rnd()*100) mod 26
word2=97+word1
else
word1=((rnd)*100) mod 26
word2=65+word1
end if
word3=chr(word2)
password=password&word3
next
response.write password
