|
发表于 2010-1-9 05:02:43
|
显示全部楼层
IP:江苏扬州
’获得一定长度的随机数代码
’参数max最大长度
’参数min最小长度
Function getRanDom(max,min)
Dim times, i, j times = 2
Dim ttNumber
ttNumber = max + min - 1
Dim tAry()
ReDim tAry(ttNumber)
For i = 0 To ttNumber
tAry(i) = min + i
Next
For j = 0 To times - 1
i = ttNumber - 1
While i > 0
Dim temp,
randomNum temp = 0
randomNum = CInt(TtGetRandom(0, max * 3, i) Mod i) temp = tAry(i)
tAry(i) = tAry(randomNum)
tAry(randomNum) = temp i = i - 1
Wend
Next
getRanDom = tAry
End Function
Function TtGetRandom(max,min,chaosSeed)
Randomize chaosSeed * Timer()
TtGetRandom = Rnd * chaosSeed
End Function
'获得5位无重复随机数
Dim RndNum
RndNum=getRanDom(5,1)
Response.Write RndNum |
|