生成任意位随机数的函数

'生成任意位随机数的函数

'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