随机数ASP生成非重复随机数的ASP生成
asp生成随机数:复制代码代码如下所示:
随机的纯随机不重复
Response.write Int((999999999 * Rnd)+ 111111111)生成随机数的111111111和999999999之间
asp不重复随机数:
方法1:已经测量
使用时,您需要注意内部的拆分字符串的字符。
复制代码代码如下所示:
<
生成一个不重复数组
功能getrnd(lowernum,uppernum)
昏暗的单元,rndnum,fun_x
单位= uppernum - lowernum
Redim MyArray(单位)
对于fun_i = 0单位
MyArray(fun_i)= lowernum + fun_i
下一个
对于fun_i = 0圆(单位)
rndnum = getrndnumber(fun_i,单位)
fun_x = MyArray(rndnum)
MyArray(rndnum)= MyArray(fun_i)
MyArray(fun_i)= fun_x
下一个
getrnd =加入(MyArray)
端功能
功能getrndnumber(下界,上界)
随机化
getrndnumber = Int((上界下界+ 1)*、+下界)
端功能
(11000)写GetRnd的反应。
%>
方法二:
复制代码代码如下所示:
<
功能rndarray(我开始,朋友,和)
昏暗的arrayid(),I,J,blnre、温度、内、eloop
ReDim arrayid(sum-1)
我= 0
内= 0
eloop = 0
blnre = false
随机化
do当我<和
温度= int(RND *(借我+ 1)+我)
如果我= 0然后
Arrayid(0)=温度
i = i + 1
内=内+ 1
其他的
J = 0到i-1
如果arrayid(j)=温度然后
blnre =真
内=内+ 1
出口for'sentence是防止超循环的重要
其他的
内=内+ 1
最后如果
下一个
如果blnre = FALSE然后
Arrayid(我)=温度
i = i + 1
其他的
blnre = false
最后如果
最后如果
环
rndarray =加入(arrayid)
端功能
response.write rndarray(1,5,1)开始数,最后数有多少
%>