thymeleaf随机数_指定范围内指定个数不重复随机数ASP代码

'生成10个7到30间的不重复随机数

response.write RandomizeNum(10,7,30)

%>

'生成规定范围内的多个不重复数字

Function  RandomizeNum(count,lownum,highnum)

If  highnum

exit function

End If

redim n(count)

Dim  i,q

Dim  isok

For i=1 to count

Randomize

n(i)=round((highnum-lownum)* Rnd)+lownum

isok=false

Do  while not isok

For q=1 to i

If n(i)=n(q-1) then

n(i)=Int((highnum-lownum)* Rnd)+lownum

isok=false

exit for

End If

isok=true

Next

Loop

If i=count Then

RandomizeNum = RandomizeNum& n(i)

Else

RandomizeNum = RandomizeNum & n(i) &","

End If

Next

end Function

%>

开心洋葱 , 版权所有丨如未注明 , 均为原创丨未经授权请勿修改 , 转载请注明指定范围内指定个数不重复随机数ASP代码！