以文本方式查看主题 -  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp) --  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2) ----  想实现在给定的数字集合里随机选数，且不重复，怎样设置公式？  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=29083)

--  作者：redsun1888 --  发布时间：2017/1/2 1:42:00 --  想实现在给定的数字集合里随机选数，且不重复，怎样设置公式？ 想实现在给定的数字集合里随机选数，且不重复，怎样设置公式？ 比如在1、2、3、4、5、6、7、8、9、10这些数字里随机选，且每次不重复。 谢谢了！ [此贴子已经被作者于2017/1/2 1:44:40编辑过]

--  作者：wjq1072 --  发布时间：2017/1/2 9:17:00 --   Int(Rand(10))+1

--  作者：wjq1072 --  发布时间：2017/1/2 10:16:00 --   这样？  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:随机数.egd

--  作者：yibiao586 --  发布时间：2017/1/3 20:00:00 --   LOOP("2>1","SetVariable(""%A%"",""01 02 03 04 05 06 07 08 09 10 11 "")"+"And"+ "SetVariable(""%B%"",Mid([%A%],int(Rand(11))*3,3))"+"And"+ " SetVariable(""%A%"",Replace([%A%],Instr([%B%],[%A%]),3,""""))"+"And"+ "SetVariable(""%C%"",Mid([%A%],int(Rand(10))*3,3))"+"And"+ " SetVariable(""%A%"",Replace([%A%],Instr([%C%],[%A%]),3,""""))"+"And"+" SetVariable(""%D%"",Mid([%A%],int(Rand(9))*3,3))"+"And"+  "SetVariable(""%A%"",Replace([%A%],Instr([%D%],[%A%]),3,""""))"+"And"+"  SetVariable(""%E%"",Mid([%A%],int(Rand(8))*3,3))"+"And"+ " SetVariable(""%A%"",Replace([%A%],Instr([%E%],[%A%]),3,""""))"+"And"+ "SetVariable(""%F%"",Mid([%A%],int(Rand(7))*3,3))"+"And"+ " SetVariable(""%J%"",[%B%]+[%C%]+[%D%]+[%E%]+[%F%])"+"And"+ "SetVariable(""%J%"",Replace([%J%],Instr(Max([%B%],[%C%],[%D%],[%E%],[%F%]),[%J%]),3,""""))"+"And"+ "SetVariable(""%J%"",Replace([%J%],Instr(Min([%B%],[%C%],[%D%],[%E%],[%F%]),[%J%]),3,""""))"+"And"+" SetVariable(""%K%"",Mid([%J%],0,3))"+"And"+ " SetVariable(""%L%"",Mid([%J%],3,3))"+"And"+ " SetVariable(""%M%"",Mid([%J%],6,3))" +"And"+ " SetVariable(""%J%"",Replace([%J%],Instr(Max([%K%],[%L%],[%M%]),[%J%]),3,""""))"+"And"+ "SetVariable(""%N%"",Replace([%J%],Instr(Min([%K%],[%L%],[%M%]),[%J%]),3,""""))"+"And"+ "AddRow(GridName,""原始号码,已整理号码"",[%B%]+[%C%]+[%D%]+[%E%]+[%F%],Min([%B%],[%C%],[%D%],[%E%],[%F%])+Min([%K%],[%L%],[%M%])+[%N%]+Max([%K%],[%L%],[%M%])+Mid(Max([%B%],[%C%],[%D%],[%E%],[%F%]),0,3))",[%I%]) " )