28,390
社区成员
发帖
与我相关
我的任务
分享
ranmozie
for i=1 to 5000
id=ran*10000+1
for a=0 to i
if arr(a)=id then
...
end if
next
arr(i)=id
next
<%
randomize
dim a(20),b(10)
for i=1 to 20
a(i)=i
next
for i=1 to 10
r=cint( 1 +(rnd * (19 - i)))
b(i)=a(r)
for j=r to (19 - i -1)
a(j)=a(j + 1)
next
Response.Write(b(i) &"<br>")
next
%>