如何产生随机数且不重复?

Alieng520 2006-03-31 10:43:19
我用RandomRange(1,6)去生成5个1-5内的随机数,但每次执行函数时生成的数字都是一样的。如我第一次执行时生成的五个随机数为1,1,5,2,2。在我第二次再跑程序时生成的随机数还是1,1,5,2,2。问下有没有其他办法实现在我下次执行程序时出现的随机数是真正的随机数?或者我用的函数有问题?
...全文
167 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ffwin 2006-03-31
  • 打赏
  • 举报
回复
每次调用RandomRange之前先调用
Randomize
cuteant 2006-03-31
  • 打赏
  • 举报
回复
没有使用随机种子,Randomize
hellolongbin 2006-03-31
  • 打赏
  • 举报
回复
要想生成绝对不重复的随机数,我觉得应该在生成完之后加一个判断

另外寒一下楼主的昵称

16,749

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧