指定范围内生成不重复的随机数_[按键精灵手机版教程]什么？随机数不重复还可以这样写？...

金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

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

常规方法

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

代码：(生成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 重新随机。