如何获得一串随机不重复的数字

ht5124251

我想随机出一串 0~9  不重复的8位数字


比如
01245689     
02346789  
这样的

ht5124251

小n 发表于 2015-6-15 22:02
支持任意字符串的字符单次分配
输出>>"结果:07248193,剩余:56"         

改成这样才能用

1. 功能 楼主要的函数(长度,待分配字符串="0123456789")
   
2.     长度=8
   
3.     循环(真)
   
4.         变量 待返回的结果=""
   
5.         如果(长度<=字符串长度(待分配字符串))
   
6.             遍历(变量 i = 0; i < 长度; i++)
   
7.                 变量 随机位置=随机数(0,字符串长度(待分配字符串)-1)
   
8.                 变量 本次分配的字符=字符串截取(待分配字符串,随机位置,随机位置+1)
   
9.                 待返回的结果=待返回的结果&本次分配的字符
   
10.                 待分配字符串=正则表达式替换(待分配字符串,本次分配的字符,"",真,假)
    
11.             结束
    
12.         结束
    
13.         调试输出("结果:"&待返回的结果&",剩余:"&待分配字符串)
    
14.         返回 待返回的结果
    
15.     结束
    
16. 结束

复制代码

ht5124251

小n 发表于 2015-6-15 22:02
支持任意字符串的字符单次分配
输出>>"结果:07248193,剩余:56"         

不行

这论坛不错

给你个简单的

变量 随机字符串=随机数(0,9)&随机数(0,9)&随机数(0,9)&随机数(0,9)&随机数(0,9)&随机数(0,9)&随机数(0,9)&随机数(0,9)
调试输出("随机字符串:"&随机字符串)

yy4363

原帖：http://bbs.tyuyan.com/thread-51521-1-1.html

1. 
   
2. 
   
3. ////只需要调用这个功能即可//
   
4. //Min为随机数的最小值
   
5. //Max为随机数的最大值
   
6. //Num为随机数的位数、长度
   
7. 
   
8. //按楼主的想法是 0-9 随机，不重复，取8位。
   
9. 
   
10. 变量 随机串_数组 = 取不重复随机数(0,9,8)//原帖返回值数组
    
11. //然后加工一下
    
12. 
    
13.     变量 随机字符串
    
14.     变量 数组_大小 = 数组大小(随机串_数组)
    
15.     遍历(变量 i = 0; i < 数组_大小; i++)
    
16.         随机字符串 = 随机字符串 & 随机串_数组[i]
    
17.    
    
18.     结束
    
19. 
    
20. //最后的结果；随机字符串
    
21. //貌似被我这样一搞，更麻烦了~
    
22. 
    
23. 
    
24. 功能 取不重复随机数(Min, Max, Num)
    
25.     变量 结果 = 数组()
    
26.     如果(Max > Min && Num <= (Max - Min))
    
27.         变量 标识 = 数组()
    
28.         遍历(变量 i = 0; i < Num; i++)
    
29.             循环(真)
    
30.                 变量 n = 随机数(Min, Max)
    
31.                 如果(标识[n] != 1)
    
32.                     结果[i] = n
    
33.                     标识[n] = 1
    
34.                     跳出
    
35.                 结束
    
36.             结束
    
37.         结束
    
38.         返回 结果
    
39.     否则
    
40.         返回 -1
    
41.     结束
    
42. 结束
    

复制代码

ht5124251

言术 发表于 2015-6-15 17:54
参考
http://bbs.tyuyan.com/thread-51521-1-1.html

谢谢  看了  但是不懂怎么运用   能大致说明一下么  我小白一个 哈哈

言术

参考
http://bbs.tyuyan.com/thread-51521-1-1.html