生成任意位随机数的函数
发表于:2007-06-30来源:作者:点击数:
标签:
生成任意位随机数的函数
‘’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
原文转自:http://www.ltesting.net