按键精灵脚本开发教程：随机数写法

1、常规方法将随机到的数字放到数组里，然后每次随机产生的数字都和数组里已有的数字进行比较，如果有重复的则重新生成。代码：（生成10个范围在10以内的随机数）DimTmpDat(10)Fori=0To9RandomizeTmpRnd=Int(rnd*10)Forj=0Toi-1IfTmpDat(j)=TmpRndTheni=i-1:TmpBol=TRUEEndIfNextIfTmpBolThenTmpBol=FalseElseTmpDat(i)=TmpRnd:TracePrintTmpRndNext

2、分析：1、DimTmpDat(10)//例如，酋篚靶高需要产生10个不重复的数字，则定义数组，数组元素个数为102、Fori=0To9//蕉浔恨缝由于数组的最小下标是从0开始的，所以循环从0开始到9,循环10次3、Randomize//随机函数初始化4、TmpRnd=Int(rnd*10)//我们生成0-10范围内的数字，便于查看效果5、Forj=0Toi-1//再做一次循环，将当前生成的随机数与前面生成的随机数一一进行比较。例如：i=5，说明之前已经执行过5次，数组TmpDat里已经有了5个元素，它们的下标从0-4。当我们想要查看当前随机到的数字有没有重复，就需要和前面的产生的随机数进行比较。所以从0循环到i-1(i自身就不需要和自身比了，所以这里需要减1，排除自身)。6、IfTmpDat(j)=TmpRndThen//如果生成的随机数在数组里已经存在i=i-1:TmpBol=TRUE//则i的值减去1，并且做一个标记，tmpbol设置为trueEndIf7、IfTmpBolThenTmpBol=FalseElseTmpDat(i)=TmpRnd:TracePrintTmpRnd//如果TmpBol是真的，说明随机数字重复了，不做赋值判断，将tmpbol的赋值假。如果TmpBol不是真的，说明随机数字没有重复，将新产生的随机数赋值给数组，并且输出。

3、输出：

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

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

6、代码：（生成10个范围在1000内的随机数）DimTmpDat(10)DimTmpArr(1000)//生成的随机数大小范围在0~1000Fori=0To9RandomizeTmpRnd=Int(rnd*1000)IfTmpArr(TmpRnd)Theni=i-1:TmpBol=TRUEElseTmpArr(TmpRnd)=TrueEndIfIfTmpBolThenTmpBol=FalseElseTmpDat(i)=TmpRnd:TracePrintTmpRndNext

7、要点分析：1、TmpRnd=Int(rnd*1000)//生成随机数赋值给TmpRnd2、IfTmpArr(TmpRnd)Then//颖蓟段扛例如，随机到的数字是10，TmpArr(10),因为我们并没有给TmpArr数组里的任何元素赋值过。TmpArr(10)为空，那么，当它作为判断条件的时候，会被转换为布尔值进行判断，cbool（TmpArr(10)）=0，0表示假，所以条件不成立，执行else后面的语句：TmpArr(TmpRnd)=True//将TmpArr(10)赋值真，当第二次再随机到数字10的时候，If条件成立，条件成立则忽略当前随机到的数字i-1重新随机。点评：★★★在速度上比常规法快很多。

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

9、代码：（生成10个范围在10以内的随机数）DimTmpDat(10)Fori=0To9RandomizeTmpRnd=Int(rnd*10)IfInStr(TmpStr,TmpRnd&"|")Theni=i-1:TmpBol=TRUEElseTmpStr=TmpStr&TmpRnd&"|"EndIfIfTmpBolThenTmpBol=FalseElseTmpDat(i)=TmpRnd:TracePrintTmpRndNext

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

11、分析：IfInStr(TmpStr,TmpRn蟠校盯昂d&"|")Then//例如，随机到的数字为10。第一次执行判断，TmpStr是空的。InStr(TmpStr,TmpRnd&"|")在Tmpstr里找不到“10|”，返回值为0，0表示假，则执行else后面的语句：TmpStr=TmpStr&TmpRnd&"|"将随机到的数放到TmpStr里。当第二次再随机到数字10的时候，If条件成立，条件成立则忽略当前随机到的数字i-1重新随机。点评：★★★★在速度上比常规法快很多。且比数组法好理解。