Question

ASP中的取随机数问题

k=5
for i= 1 to k
do
Randomize
b(i)= Int(Rnd*max)+1
loop until check(b(i),i)
next
function check(t,n)
check=true
for d=1 to n-1
if t=b(d) then
check=false
End If
next
end function

此代码的效果就是取出5个不重复的随机数，单独的话就不会出错。但包在do loop中就出错。

我想要最后的目的是 取出5个不重复的随机数，但要符合我的条件，否则就一直loop到随机的数符合我的条件。
我的要求是 不断取随机数，直到“取出的数”达到一定的条件（比如总和大于某个数）。否则不断循环。

同时谢谢2楼的代码！

Answer 1

<%
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function

Function RndN(N,a,b) '产生一个长度为N的不重复的随机字符串，a为最小值，b为最大值
execute("dim shu("&N&")")
flag=false
i=0
while(i <N)
x=RndNumber(b,a)
j=0
while(j <i)
if shu(j)=x then flag=true
j=j+1
wend
if not flag then
shu(i)=x
i=i+1
else
flag=false
end if
wend
RndN=join(shu,",")
end function

response.write RndN(10,100,200)
%>

Answer 2

<%

Randomize
dim x
x=int(rnd()*10000)

response.write(x)

%>

Answer 3

<%

Randomize
dim x
x=int(rnd()*10000)

response.write(x)

%>