请高手帮忙改下随机数代码，先谢谢了!

xkx590 · 发表于 2016-6-11 16:33

各位高手：附件中点运行--停止后生成的随机数有时会变，请高手看看代码如何改？谢谢！（本人VB是小白，代码是论坛高手帮忙写的，我改了一点）特别是运行时间久点更是停止后会变化。

xkx590 · 发表于 2016-6-11 18:11

我只在代码中增加了这些：1.定义i 2. 增加 i = Sheet2.Range("b65536").End(3).Row 3.将数字改为 i

xkx590 · 发表于 2016-6-11 18:22

我又试了下，将随机数生成在sheet1就不会出现这种情况。真奇怪。

xkx590 · 发表于 2016-6-11 18:28

本帖最后由 xkx590 于 2016-6-12 10:23 编辑

我又试多了几次，在sheet1还是会出现停止后改变的情况。如果将 i 直接写成数字就不会（原来就这样），我是想让电脑自己做，不用每次用都要改代码（每次抽签人数都不同）。

thestronger · 发表于 2016-6-11 20:26

不懂你说的会变是什么意思，

xkx590 · 发表于 2016-6-11 21:00

thestronger 发表于 2016-6-11 20:26
不懂你说的会变是什么意思，

就是停止后随机数还会再变一次，但不是每次都这样（大部分情况不会，但少数情况下会），运行次数多就看得出。如：停止后姓名（B3单元格）是名1，但过几秒后变成名12. 谢谢了

thestronger · 发表于 2016-6-11 21:08

那是你的死循环，电脑没反应过来吧。或许在循环中加入sleep语句会改善一下吧

xkx590 · 发表于 2016-6-11 21:12

本帖最后由 xkx590 于 2016-6-11 21:16 编辑

thestronger 发表于 2016-6-11 21:08
那是你的死循环，电脑没反应过来吧。或许在循环中加入sleep语句会改善一下吧

这个我不懂，其实就是我加的那句放那地方也不知对不对，只是可以运行。如果可以，请帮忙看看代码有没有问题，谢谢了。

CC例例 · 发表于 2016-6-11 21:35

代码是没问题的,主要是当点击"停止"时,程序随机生成不重复的数还没达到指定的数目,所以点"停止"后有时还在运行.

CC例例 · 发表于 2016-6-11 21:39

还有为了你所需的"停止"效果,程序中套了二次循环(如果不要"停止"效果,一次循环就够)

		自动登录	找回密码
密码			免费注册

[求助] 请高手帮忙改下随机数代码，先谢谢了!