按键精灵脚本开发教程:随机数写法
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
按键精灵脚本开发教程:随机数写法
来源:按键学院【按键精灵】
小编今天要分享三种随机数不重复的方法 ~快来围观~
常规方法
将随机到的数字放到数组里,然后每次随机产生的数字都和数组里已有的数字进行比较,如果有重复的则重新生成。
代码:(生成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])
参数:
分析:
If InStr(TmpStr, TmpRnd & "|") Then
//例如,随机到的数字为10。
第一次执行判断,TmpStr是空的。
InStr(TmpStr, TmpRnd & "|")
在Tmpstr里找不到“10|”,返回值为0,0表示假,则执行else后面的语句: