你的位置:
随机输出数字且不重复直到全部输出
此脚本可随机从指定数量的数字中随机选取数字并输出,输出过程中不重复直到输出所有数字为止。原理: 脚本一开始连接指定数量的数字 --&再分成数组 --&输出 --&再重新连接成字符串 --&去除用过的数字,反复至所有数字输出完毕。脚本代码:
dim a,b,c,d,x//声明变量UserVar x=30 "设置生成的随机数数量"//用户自定义变量a=0:b=""//定义变量初始值For x&&& b=b&a&","&&& //数字连接&&& a=a+1&&& //变量递增Next For x&&& Randomize&&& //清空随机数&&& c=Split(b,",",-1,1)&&& //返回数组&&& d=int((UBound(c))*Rnd)&&& //抽取随机数&&& SayString c(d)&&& //输出&&& Delay 10&&& KeyPress 13,1&&& b=Join(c,",")&&& //重组数字连接字符串&&& b=Replace(b,c(d)&",","",1,1)&&& //剔除用过的数字Next