生成任意位随机数的函数

生成任意位随机数的函数
'strLong是随机数字的位数，数字型
Function rndNum (strLong)
Dim temNum
Randomize
Do While Len(RndNum) < strLong
temNum=CStr(Chr((57-48)*rnd+48))
RndNum=RndNum&temNum
loop
End Function