生成任意位随机数的函数

'生成任意位随机数的函数
'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://com.8s8s.com/it/it8706.htm