谁能帮我编写一个vbscript脚本 实现从1000个数字中随机抽取100个不重复数字,改代码本人准备用于asp中

2024年11月15日 20:55
有2个网友回答
网友(1):

s=" "
i=0
do while i<1000
k=int(rnd*1000)
if instr(s," " & k & " ")=0 then
s=s & k & " "
i=i+1
end if
loop
ss=split(trim(s)," ")

ss()数组就是从0-999中随机抽取的100个不重复的数字

网友(2):

rnd
arr()