《按键精灵脚本开发教程：随机数写法》由会员分享，可在线阅读，更多相关《按键精灵脚本开发教程：随机数写法（6页珍藏版）》请在金锄头文库上搜索。
1、按键精灵脚本开发教程：随机数写法来源：按键学院 【按键精灵】小编今天要分享三种随机数不重复的方法 快来围观常规方法将随机到的数字放到数组里，然后每次随机产生的数字都和数组里已有的数字进行比较，如果有重复的则重新生成。代码：（生成 10 个范围在 10 以内的随机数）Dim TmpDat(10) For i = 0 To 9Randomize TmpRnd = Int(rnd * 10) For j = 0 To i - 1 If TmpDat(j)=TmpRnd Theni = i - 1 : TmpBol = TRUEEnd IfNextIf TmpBol Then TmpBol = Fal
2、se Else TmpDat(i) = TmpRnd : TracePrint TmpRndNext分析：1、Dim TmpDat(10) /例如，需要产生 10 个不重复的数字，则定义数组，数组元素个数为 102、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，说明之前已经执行
3、过 5 次，数组 TmpDat 里已经有了 5 个元素，它们的下标从 0-4 。当我们想要查看当前随机到的数字有没有重复，就需要和前面的产生的随机数进行比较。所以从 0 循环到 i-1 ( i 自身就不需要和自身比了，所以这里需要减 1，排除自身)。6、If TmpDat(j)=TmpRnd Then/如果生成的随机数在数组里已经存在i = i - 1 : TmpBol = TRUE/则 i 的值减去 1，并且做一个标记，tmpbol 设置为 trueEnd If7、If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePri
4、nt TmpRnd/如果 TmpBol 是真的，说明随机数字重复了，不做赋值判断，将 tmpbol 的赋值假。 如果 TmpBol 不是真的，说明随机数字没有重复，将新产生的随机数赋值给数组，并且输出。输出：点评：方法是好的，但是效率上有所欠佳。每次生成一次随机数都需要和已有数据一一比较，比较耗费时间数组法前面的常规法，只定义了一个数组用来存放随机数。而数组法，要定义两个数组。一个数组用来存放随机数，你需要生成多少个随机数则定义多大范围的数组。另一个数组是用来判断随机数之前是否产生过，你要生成多大范围的随机数，则定义多大的数组范围。代码：（生成 10 个范围在 1000 内的随机数）Dim T
5、mpDat(10) Dim TmpArr(1000)/生成的随机数大小范围在 01000For i = 0 To 9RandomizeTmpRnd = Int(rnd * 1000)If TmpArr(TmpRnd) Then i = i - 1 : TmpBol = TRUEElse TmpArr(TmpRnd) = TrueEnd IfIf TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRndNext要点分析：1、 TmpRnd = Int(rnd * 1000) /生成随机数赋值给 TmpRnd2、
6、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 重新随机。点评：在速度上比常规法快很多。字符串查找法字符串查找法：定义一个数组用来存放产生
7、的不重复随机数。定义一个字符串变量，用来存放已经生成的随机数，每次随机数产生后都和字符串做比较，如果随机数在字符串里存在，则 i-1 重新随机。代码：（生成 10 个范围在 10 以内的随机数）Dim TmpDat(10) For i = 0 To 9RandomizeTmpRnd = Int(rnd * 10)If InStr(TmpStr, TmpRnd & “|“) Then i = i - 1 : TmpBol = TRUEElseTmpStr = TmpStr&TmpRnd & “|“End IfIf TmpBol Then TmpBol = False Else TmpDat(i)
8、 = TmpRnd : TracePrint TmpRndNextInStr 函数的语法：InStr(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 重新随机。点评：在速度上比常规法快很多。且比数组法好理解。
