• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 12345678» / 10
发新话题 回复该主题

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

1#

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

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

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

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

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



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






常规方法

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

代码:(生成10个范围在10以内的随机数)
  1. Dim TmpDat(10)
  2. For i = 0 To 9
  3. Randomize
  4. TmpRnd = Int(rnd * 10)
  5. For j = 0 To i - 1
  6. If TmpDat(j)=TmpRnd Then
  7. i = i - 1 : TmpBol = TRUE
  8. End If
  9. Next
  10. If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
  11. 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内的随机数)
  1. Dim TmpDat(10)
  2. Dim TmpArr(1000)//生成的随机数大小范围在0~1000
  3. For i = 0 To 9
  4. Randomize
  5. TmpRnd = Int(rnd * 1000)
  6. If TmpArr(TmpRnd) Then
  7. i = i - 1 : TmpBol = TRUE
  8. Else
  9. TmpArr(TmpRnd) = True
  10. End If
  11. If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
  12. 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以内的随机数)
  1. Dim TmpDat(10)
  2. For i = 0 To 9
  3. Randomize
  4. TmpRnd = Int(rnd * 10)
  5. If InStr(TmpStr, TmpRnd & "|") Then
  6. i = i - 1 : TmpBol = TRUE
  7. Else
  8. TmpStr = TmpStr&TmpRnd & "|"
  9. End If
  10. If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
  11. 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

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

    撒旦分散度防盗锁

    3#

    666666666666666666666666666666666666666

    4#


    5#

    学习了

    6#

    看看 有什么可学

    7#

    随机数不重复还可以这样写?

    脚本定制,欢迎咨询QQ: 2692863915
    8#

    随机数不重复还可以这样写?

    9#

    达到

    10#

    O(∩_∩)O谢谢

    承接各类脚本
    QQ:184068599

    11#

    31564646546

    12#


    13#


    14#

    dddddddddddddd

    15#

    有什么新方法?

    16#

    腻害啊、

    17#

    看看,学习一下

    18#

    212313121215

    19#

    学习一下

    20#

    666666

    其实我不过就是一个谁都不会懂的小丑。只会独自承受结局的悲哀!
    发新话题 回复该主题