功能 取不重复随机数(Min, Max, Num)

cjxdn

1. 功能 取不重复随机数(Min, Max, Num)
   
2.     变量 结果 = 数组()
   
3.     如果(Max > Min && Num <= (Max - Min))
   
4.         变量 标识 = 数组()
   
5.         遍历(变量 i = 0; i < Num; i++)
   
6.             循环(真)
   
7.                 变量 n = 随机数(Min, Max)
   
8.                 如果(标识[n] != 1)
   
9.                     结果[i] = n
   
10.                     标识[n] = 1
    
11.                     跳出
    
12.                 结束
    
13.             结束
    
14.         结束
    
15.         返回 结果
    
16.     否则
    
17.         返回 -1
    
18.     结束
    
19. 结束

复制代码

请问这源码怎么改取不重复随机数演示的效果,个人小白理解不了,调试没反应

liuhaiyan008

这样试下看就明白了吧

1. 功能 按钮0_点击()
   
2.     变量 最大 = 15//------待取随机数最大值
   
3.     变量 最小 = 3//-------待取随机数最小值
   
4.     变量 个数 = 9//-------待取随机数个数
   
5.     变量 数据 = 取不重复随机数(最小,最大,个数)
   
6.     如果(数据==-1)
   
7.         消息框("最大数与最小数设置不当,或所取个数超出范围")
   
8.     否则
   
9.         变量 数字串 = 数据[0]
   
10.         遍历(变量 i = 1; i < 个数; i++)
    
11.             数字串 = 数字串&","&数据[i]
    
12.         结束
    
13.         消息框("结果:"&数字串)
    
14.     结束
    
15. 结束
    
16. 
    
17. 功能 取不重复随机数(Min, Max, Num)
    
18.     变量 结果 = 数组()
    
19.     如果(Max > Min && Num <= (Max - Min))
    
20.         变量 标识 = 数组()
    
21.         遍历(变量 i = 0; i < Num; i++)
    
22.             循环(真)
    
23.                 变量 n = 随机数(Min, Max)
    
24.                 如果(标识[n] != 1)
    
25.                     结果[i] = n
    
26.                     标识[n] = 1
    
27.                     跳出
    
28.                 结束
    
29.             结束
    
30.         结束
    
31.         返回 结果
    
32.     否则
    
33.         返回 -1
    
34.     结束
    
35. 结束
    

复制代码

qwe1063422121

有源码...好像是言术大哥分享过!!

言术

这个是 忆辰辅助 共享的
原帖：
http://bbs.tyuyan.net/forum.php? ... F%E6%9C%BA%E6%95%B0

1. 功能 取不重复随机数(最小值, 最大值, 生成个数)
   
2.     变量 结果 = 数组()
   
3.     如果(最大值 > 最小值 && 生成个数 <= (最大值 - 最小值))
   
4.         变量 标识 = 数组()
   
5.         遍历(变量 i = 0; i < 生成个数; i++)
   
6.             循环(真)
   
7.                 变量 n = 随机数(最小值, 最大值)
   
8.                 如果(标识[n] != 1) //最后n生成还是6的话,标识[6]已经为1了,跳过,重新生成
   
9.                     结果[i] = n  //先看这里,假如n是6
   
10.                     标识[n] = 1  //然后把另一个数组 标识[6] 赋值为1
    
11.                     跳出
    
12.                 结束
    
13.             结束
    
14.         结束
    
15.         返回 结果
    
16.     否则
    
17.         返回 -1
    
18.     结束
    
19. 结束
    
20. 
    
21. 功能 测试()
    
22.     变量 返回数组=取不重复随机数(0,9,5)
    
23.     遍历(变量 i = 0; i < 5; i++)
    
24.         调试输出(返回数组[i])
    
25.     结束
    
26. 结束

复制代码

cjxdn

感谢各位大神指教, 指教的人多, 只能采纳先回复的了, 抱歉.