生成随机字符串函数
==================================
messagebox RndStr(10)
function RndStr(count as integer) as string
dim tmpStr as string,i as integer
tmpStr = ""
for i=1 to count
tmpStr = tmpStr + Mid("abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ",Random(1,62),1)
next
RndStr = tmpStr
end function
==================================
messagebox RndStr(10)
function RndStr(count as integer) as string
dim tmpStr as string,i as integer
tmpStr = ""
for i=1 to count
tmpStr = tmpStr + Mid("abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ",Random(1,62),1)
next
RndStr = tmpStr
end function
