LS 获得随机数的方法

做了两个随机数获得的方法，第一个效率很明显低下，特别是碰到最大数，和要求返回数相近的时候，

方法一:

Function GetRndArray_1(intMax As Integer,intNum As Integer) As Variant%REM功能：获得随机数数组(和考卷库中Application库中此函数一致)创建：ycy 2011-04-14参数：intMax----最大数字 intNum----获取的个数%END REMOn Error GoTo ErrorHandleDim varArray() As VariantDim varResult() As VariantDim varTmp As VariantDim intLoopNum1 As IntegerDim strRndNum As StringDim i As IntegerIf intMax = 0 Or intNum = 0 Then Exit FunctionEnd If'如果最大数字，比要求的数字都大，这个需要特殊处理If intMax < intNum ThenintNum = intMaxEnd If'定义数组宽度ReDim varArray(intMax-1)ReDim varResult(intNum-1)'获取随机数HandleGetRND:For i=0 To (intMax-1)HandleGetNext:strRndNum = CStr(CInt(intMax*Rnd()))'不要结果为0的数字If strRndNum = "0" Then GoTo HandleGetNextElsevarArray(i) = strRndNumEnd IfNext'去掉重复元素varTmp = ArrayUnique(varArray)'查找是否满足要求的随机数个数,如果不满足，重新获取If (UBound(varTmp)+1)<intNum Then'10000次后仍然没有满足，则退出，此变量用来防止死循环intLoopNum1 = intLoopNum1 + 1If intLoopNum1 > 10000 ThenExit FunctionEnd IfGoTo HandleGetRNDEnd IfFor i = 0 To intNum - 1varResult(i) = CStr(varTmp(i))NextGetRndArray_1 = varResultExit FunctionerrorHandle:MsgBox "发生错误在Script库：Application------GetRndArray-----错误行："+CStr(Erl)+" ，错误为："+CStr(Error)End Function

---

 

 

方法二：

Function GetRndArray_2(intMax As Integer,intNum As Integer) As Variant%REM功能：获得随机数数组(和考卷库中Application库中此函数一致)创建：ycy 2011-04-14参数：intMax----最大数字 intNum----获取的个数%END REMOn Error GoTo ErrorHandleDim varArray() As VariantDim varResult() As VariantDim varTmp As VariantDim intRND As IntegerIf intMax = 0 Or intNum = 0 Then Exit FunctionEnd If'如果最大数字，比要求的数字都大，这个需要特殊处理If intMax < intNum ThenintNum = intMaxEnd IfReDim varArray(intMax-1)ReDim varResult(intNum-1)'定义初始化数组For i = 1 To intMaxvarArray(i-1) = iNextFor i = 0 To intNum-1intRND = CInt((intMax-1-i)*Rnd())'得到一个随机位置varResult(i) = varArray(intRND)'得到那个位置的数值varArray(intRND) = varArray(UBound(varArray) - i)'将最后一个未用的数字放到这里NextGetRndArray_2 = varResultExit FunctionerrorHandle:MsgBox "发生错误在Script库：Application------GetRndArray-----错误行："+CStr(Erl)+" ，错误为："+CStr(Error)End Function