【院刊】-【201501期】什么？随机数不重复还可以这样写？ _ 学院院刊

查看: 62121\|回复: 186	[技术交流] 【院刊】-【201501期】什么？随机数不重复还可以这样写？ [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花532 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2014-12-26 17:18 | |只看楼主

什么？随机数不重复还可以这样写？

﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊

﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊

﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋﹊﹋

本文由按键学院提供技术支持

小编今天要分享三种随机数不重复的方法 ~快来围观~

常规方法

将随机到的数字放到数组里，然后每次随机产生的数字都和数组里已有的数字进行比较，如果有重复的则重新生成。

代码：（生成10个范围在10以内的随机数）

Dim TmpDat(10)
For i = 0 To 9
Randomize
TmpRnd = Int(rnd * 10)
For j = 0 To i - 1
If TmpDat(j)=TmpRnd Then
i = i - 1 : TmpBol = TRUE
End If
Next
If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
Next

复制代码

分析：
●○

1、Dim TmpDat(10) //例如，需要产生10个不重复的数字，则定义数组，数组元素个数为10
2、For i = 0 To 9//由于数组的最小下标是从0开始的，所以循环从0开始到9,循环10次
3、Randomize //随机函数初始化
4、TmpRnd = Int(rnd * 10) //我们生成0-10范围内的数字，便于查看效果
5、For j = 0 To i - 1 //再做一次循环，将当前生成的随机数与前面生成的随机数一一进行比较。

例如：i=5，说明之前已经执行过5次，数组TmpDat里已经有了5个元素，它们的下标从0-4 。
当我们想要查看当前随机到的数字有没有重复，就需要和前面的产生的随机数进行比较。
所以从0循环到i-1 ( i 自身就不需要和自身比了，所以这里需要减1，排除自身)。

6、If TmpDat(j)=TmpRnd Then//如果生成的随机数在数组里已经存在
i = i - 1 : TmpBol = TRUE//则i的值减去1，并且做一个标记，tmpbol设置为true
End If

7、If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
//如果TmpBol 是真的，说明随机数字重复了，不做赋值判断，将tmpbol的赋值假。如果TmpBol 不是真的，说明随机数字没有重复，将新产生的随机数赋值给数组，并且输出。

输出：

: 您所在的用户组无法下载或查看附件

点评：★★
方法是好的，但是效率上有所欠佳。每次生成一次随机数都需要和已有数据一一比较，比较耗费时间。

数组法

前面的常规法，只定义了一个数组用来存放随机数。
而数组法，要定义两个数组。一个数组用来存放随机数，你需要生成多少个随机数则定义多大范围的数组。
另一个数组是用来判断随机数之前是否产生过，你要生成多大范围的随机数，则定义多大的数组范围。

代码：（生成10个范围在1000内的随机数）

Dim TmpDat(10)
Dim TmpArr(1000)//生成的随机数大小范围在0~1000
For i = 0 To 9
Randomize
TmpRnd = Int(rnd * 1000)
If TmpArr(TmpRnd) Then
i = i - 1 : TmpBol = TRUE
Else
TmpArr(TmpRnd) = True
End If
If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
Next

复制代码

要点分析：
●○

1、 TmpRnd = Int(rnd * 1000) //生成随机数赋值给TmpRnd

2、 If TmpArr(TmpRnd) Then

//例如，随机到的数字是10， TmpArr(10),因为我们并没有给TmpArr数组里的任何元素赋值过。 TmpArr(10)为空，那么，当它作为判断条件的时候，会被转换为布尔值进行判断， cbool（TmpArr(10)）=0， 0表示假，所以条件不成立，执行else后面的语句：
TmpArr(TmpRnd) = True //将 TmpArr(10) 赋值真，当第二次再随机到数字10的时候，
If 条件成立，条件成立则忽略当前随机到的数字 i-1 重新随机。

点评：★★★
在速度上比常规法快很多。

字符串查找法

字符串查找法：

定义一个数组用来存放产生的不重复随机数。

定义一个字符串变量，用来存放已经生成的随机数，每次随机数产生后都和字符串做比较，如果随机数在字符串里存在，则 i-1 重新随机。

代码：（生成10个范围在10以内的随机数）

Dim TmpDat(10)
For i = 0 To 9
Randomize
TmpRnd = Int(rnd * 10)
If InStr(TmpStr, TmpRnd & "|") Then
i = i - 1 : TmpBol = TRUE
Else
TmpStr = TmpStr&TmpRnd & "|"
End If
If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
Next

复制代码

InStr 函数的语法：
InStr([start, ]string1, string2[, compare])

参数：

参数	描述
start	可选。用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。
string1	必选。接受搜索的字符串表达式。
string2	必选。要搜索的字符串表达式。
compare	可选。指示在计算子字符串时使用的比较类型的数值。

分析：
●○

If InStr(TmpStr, TmpRnd & "|") Then
//例如，随机到的数字为10。
第一次执行判断，TmpStr是空的。
InStr(TmpStr, TmpRnd & "|")
在Tmpstr里找不到 “10|”，返回值为0，0表示假，则执行else后面的语句：
TmpStr = TmpStr & TmpRnd & "|"
将随机到的数放到TmpStr里。
当第二次再随机到数字10的时候，
If 条件成立，条件成立则忽略当前随机到的数字 i-1 重新随机。

点评：★★★★
在速度上比常规法快很多。且比数组法好理解。

本文由按键学院提供技术支持

━═━═━━═━═━━═━═━━═━═━◥◤━═━═━━═━═━━═━═━═━━═━═━

有钱，就是任性！按键学院的导师就是土豪！

按键学院实战班

已有4评分我要评分查看所有评分

本主题由超级版主瑞祥幽冥狼于 2023/10/5 18:22:42 执行审核帖子操作

按键学院免费交流群：376122403

按键学院招生计划
按键学院系统教程

回顶部

发送短消息 UID 924795 帖子 309 精华 0 鲜花 1 朵铜币 772 个银币 3 个性别在线时间 7740 注册时间 2011-12-11 最后登录 2024-08-24 364084870 查看公共资料搜索主题搜索帖子 364084870 364084870 组别初中二年级 UID924795 帖子309 精华0 鲜花1 朵铜币772 个银币3 个在线时间7740 注册时间2011-12-11	2^# 字体大小: t T 发表于 2016-04-28 17:47 \| \|只看该用户撒旦分散度防盗锁


	回顶部

发送短消息 UID 3854836 帖子 132 精华 0 鲜花 11 朵铜币 712 个银币 -1 个性别在线时间 4380 注册时间 2016-04-07 最后登录 2017-09-10 345173630 查看公共资料搜索主题搜索帖子 wakool wakool 组别小学六年级 UID3854836 帖子132 精华0 鲜花11 朵铜币712 个银币-1 个在线时间4380 注册时间2016-04-07 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2016-05-04 22:28 \| \|只看该用户 666666666666666666666666666666666666666


	回顶部

发送短消息 UID 4172386 帖子 19 精华 0 鲜花 -1 朵铜币 47 个银币 -1 个性别在线时间 540 注册时间 2016-10-20 最后登录 2016-11-13 查看公共资料搜索主题搜索帖子 Stanley_Rei 组别小学一年级 UID4172386 帖子19 精华0 鲜花-1 朵铜币47 个银币-1 个在线时间540 注册时间2016-10-20	4^# 字体大小: t T 发表于 2016-10-23 21:37 \| \|只看该用户


	回顶部

发送短消息 UID 3596639 帖子 62 精华 0 鲜花 0 朵铜币 225 个银币 1 个性别在线时间 1360 注册时间 2015-11-19 最后登录 2022-03-13 查看公共资料搜索主题搜索帖子 getscript getscript 组别小学三年级 UID3596639 帖子62 精华0 鲜花0 朵铜币225 个银币1 个在线时间1360 注册时间2015-11-19	5^# 字体大小: t T 发表于 2016-10-24 07:29 \| \|只看该用户学习了


	回顶部

发送短消息 UID 51789 帖子 89 精华 0 鲜花 -1 朵铜币 118 个银币 -1 个性别在线时间 1720 注册时间 2005-08-06 最后登录 2017-12-23 查看公共资料搜索主题搜索帖子 wshxyl wshxyl 组别小学五年级 UID51789 帖子89 精华0 鲜花-1 朵铜币118 个银币-1 个在线时间1720 注册时间2005-08-06	6^# 字体大小: t T 发表于 2016-10-29 15:56 \| \|只看该用户看看有什么可学


	回顶部

发送短消息 UID 1962989 帖子 4199 精华 0 鲜花 1767 朵铜币 11117 个银币 1579 个性别在线时间 213980 注册时间 2013-06-30 最后登录 2024-11-23 2929338900 查看公共资料搜索主题搜索帖子 Danboy 洛洛米组别官方脚本作者 UID1962989 帖子4199 精华0 鲜花1767 朵铜币11117 个银币1579 个在线时间213980 注册时间2013-06-30 按键X开拓者勋章按键精灵X版开拓者勋章按键剑侠客按键剑侠客勋章图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户天使勋章天使一样的用户按键明星按键明星勋章黄金之翼黄金之翼勋章骨灰级按键用户 3年以上的按键论坛用户按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com 论坛GG 按键论坛男性用户勋章学有所成学有所成勋章，新手步入按键学堂的第一枚勋章	7^# 字体大小: t T 发表于 2016-11-01 21:05 \| \|只看该用户随机数不重复还可以这样写？
	脚本定制,欢迎咨询QQ: 2692863915

	回顶部

发送短消息 UID 3372865 帖子 403 精华 0 鲜花 -1 朵铜币 556 个银币 32 个性别在线时间 15300 注册时间 2015-07-16 最后登录 2017-12-17 查看公共资料搜索主题搜索帖子 1620615338 我来逛逛组别初中三年级 UID3372865 帖子403 精华0 鲜花-1 朵铜币556 个银币32 个在线时间15300 注册时间2015-07-16	8^# 字体大小: t T 发表于 2016-11-03 00:40 \| \|只看该用户随机数不重复还可以这样写？


	回顶部

发送短消息 UID 859236 帖子 212 精华 0 鲜花 1 朵铜币 395 个银币 1 个性别在线时间 7100 注册时间 2011-11-06 最后登录 2023-03-01 422133403 查看公共资料搜索主题搜索帖子 wulidong wulidong 组别初中一年级 UID859236 帖子212 精华0 鲜花1 朵铜币395 个银币1 个在线时间7100 注册时间2011-11-06 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	9^# 字体大小: t T 发表于 2016-11-03 11:20 \| \|只看该用户达到


	回顶部

发送短消息 UID 2751683 帖子 610 精华 0 鲜花 -14 朵铜币 1665 个银币 149 个性别在线时间 11360 注册时间 2014-09-19 最后登录 2024-11-12 184068599 查看公共资料搜索主题搜索帖子 184068599 脚本定制：QQ：184068599 组别高中二年级 UID2751683 帖子610 精华0 鲜花-14 朵铜币1665 个银币149 个在线时间11360 注册时间2014-09-19 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	10^# 字体大小: t T 发表于 2016-11-07 09:34 \| \|只看该用户 O(∩_∩)O谢谢
	承接各类脚本 QQ：184068599

	回顶部

发送短消息 UID 340527 帖子 55 精华 0 鲜花 -2 朵铜币 189 个银币 -2 个性别在线时间 1000 注册时间 2009-12-24 最后登录 2016-12-20 290677910 查看公共资料搜索主题搜索帖子 qing15523 qing15523 组别小学三年级 UID340527 帖子55 精华0 鲜花-2 朵铜币189 个银币-2 个在线时间1000 注册时间2009-12-24 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	11^# 字体大小: t T 发表于 2016-11-08 02:00 \| \|只看该用户 31564646546


	回顶部

发送短消息 UID 3979529 帖子 374 精华 0 鲜花 -1 朵铜币 716 个银币 0 个性别在线时间 11640 注册时间 2016-06-21 最后登录 2022-03-14 查看公共资料搜索主题搜索帖子 badnnlje 组别初中三年级 UID3979529 帖子374 精华0 鲜花-1 朵铜币716 个银币0 个在线时间11640 注册时间2016-06-21	12^# 字体大小: t T 发表于 2016-11-09 21:27 \| \|只看该用户


	回顶部

发送短消息 UID 4161191 帖子 114 精华 0 鲜花 1 朵铜币 409 个银币 1 个性别在线时间 3280 注册时间 2016-10-13 最后登录 2022-01-18 查看公共资料搜索主题搜索帖子 13575561648 组别小学六年级 UID4161191 帖子114 精华0 鲜花1 朵铜币409 个银币1 个在线时间3280 注册时间2016-10-13	13^# 字体大小: t T 发表于 2016-11-13 21:54 \| \|只看该用户


	回顶部

发送短消息 UID 102939 帖子 83 精华 0 鲜花 0 朵铜币 153 个银币 0 个性别在线时间 680 注册时间 2006-11-12 最后登录 2017-09-26 查看公共资料搜索主题搜索帖子 pk517 pk517 组别小学四年级 UID102939 帖子83 精华0 鲜花0 朵铜币153 个银币0 个在线时间680 注册时间2006-11-12	14^# 字体大小: t T 发表于 2016-11-22 17:45 \| \|只看该用户 dddddddddddddd


	回顶部

发送短消息 UID 2331752 帖子 405 精华 0 鲜花 23 朵铜币 1381 个银币 170 个性别在线时间 14280 注册时间 2014-01-09 最后登录 2023-05-12 896825328 查看公共资料搜索主题搜索帖子 zx896825328 zx896825328 组别初中三年级 UID2331752 帖子405 精华0 鲜花23 朵铜币1381 个银币170 个在线时间14280 注册时间2014-01-09 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	15^# 字体大小: t T 发表于 2016-11-22 18:26 \| \|只看该用户有什么新方法?


	回顶部

发送短消息 UID 3866285 帖子 38 精华 0 鲜花 0 朵铜币 111 个银币 0 个性别在线时间 1760 注册时间 2016-04-14 最后登录 2016-12-02 958177562 查看公共资料搜索主题搜索帖子 skilyzx skilyzx 组别小精灵商业作者 UID3866285 帖子38 精华0 鲜花0 朵铜币111 个银币0 个在线时间1760 注册时间2016-04-14 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	16^# 字体大小: t T 发表于 2016-11-23 08:27 \| \|只看该用户腻害啊、


	回顶部

发送短消息 UID 2924092 帖子 299 精华 0 鲜花 0 朵铜币 1401 个银币 1 个性别在线时间 5640 注册时间 2014-12-07 最后登录 2024-10-22 845227431 查看公共资料搜索主题搜索帖子 qq845227431 qq845227431 组别初中二年级 UID2924092 帖子299 精华0 鲜花0 朵铜币1401 个银币1 个在线时间5640 注册时间2014-12-07	17^# 字体大小: t T 发表于 2016-11-23 11:18 \| \|只看该用户看看，学习一下


	回顶部

发送短消息 UID 3827146 帖子 220 精华 0 鲜花 15 朵铜币 377 个银币 20 个性别在线时间 7140 注册时间 2016-03-24 最后登录 2024-09-16 查看公共资料搜索主题搜索帖子 98750 98750 组别初中一年级 UID3827146 帖子220 精华0 鲜花15 朵铜币377 个银币20 个在线时间7140 注册时间2016-03-24	18^# 字体大小: t T 发表于 2016-11-23 19:51 \| \|只看该用户 212313121215


	回顶部

发送短消息 UID 4222749 帖子 10 精华 0 鲜花 0 朵铜币 38 个银币 0 个性别在线时间 360 注册时间 2016-11-23 最后登录 2017-01-03 295292517 查看公共资料搜索主题搜索帖子小精灵菠菜小精灵菠菜组别幼儿园 UID4222749 帖子10 精华0 鲜花0 朵铜币38 个银币0 个在线时间360 注册时间2016-11-23	19^# 字体大小: t T 发表于 2016-11-23 21:20 \| \|只看该用户学习一下


	回顶部

发送短消息 UID 3453644 帖子 122 精华 0 鲜花 2 朵铜币 618 个银币 0 个性别在线时间 2700 注册时间 2015-09-07 最后登录 2017-05-11 285268691 查看公共资料搜索主题搜索帖子 pannijiuxian pannijiuxian 组别小学六年级 UID3453644 帖子122 精华0 鲜花2 朵铜币618 个银币0 个在线时间2700 注册时间2015-09-07 过大年勋章俩小福娃给大家拜年啦！	20^# 字体大小: t T 发表于 2016-11-23 23:25 \| \|只看该用户 666666
	其实我不过就是一个谁都不会懂的小丑。只会独自承受结局的悲哀!

	回顶部

上一主题| 下一主题

[技术交流] 【院刊】-【201501期】什么？随机数不重复还可以这样写？ [复制链接]