生成随机数字，n为数字的个数

MyRandn(n)

function MyRandn(n) '生成随机数字，n为数字的个数
dim thechr
thechr = ""
for i=1 to n
   dim zNum,zNum2
   Randomize
   zNum = cint(9*Rnd)
   zNum = zNum + 48
   thechr = thechr & chr(zNum)
next
MyRandn = thechr
end function