UC知道asp随机数不同问题
来源：百度知道 编辑：UC知道 时间：2024/09/28 08:04:44
<%
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function
%>
这个函数接受2个变量,用来生成变量中的随机数
<%response.write RndNumber(9,1)%>
调用
我要问的是,比如我想调用10次,怎样让调用不重复?
只有20分了.帮忙下,有分一定补足.
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function
%>
这个函数接受2个变量,用来生成变量中的随机数
<%response.write RndNumber(9,1)%>
调用
我要问的是,比如我想调用10次,怎样让调用不重复?
只有20分了.帮忙下,有分一定补足.
首先，很高兴的告诉人我，不会重复调用的。
即使你认为函数调用太快了，RND还没改变，但你的函数中有
Randomize
这句，就可以每次都初始化Rnd
放心的使用吧
代码：
<%
for i=1 to 10
response.write RndNumber(9,1)&"<br>"
next
%>
不重复：
<%
Function RndNumber(MaxNum,MinNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function
dim shu(10)
flag=false
i=1
while(i<=10)
x=RndNumber(99,10)
j=1
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
for i=1 to 10
response.write shu(i)&"<br>"
next
%>
对回答的内容有问题，或认为不妥，百度消息我。
（在消息的内容里加上问题的网址哦）