作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

tmp = "0123456789abcdefghijklmnopqrstopwxyz"
tmpPWD = RoundStr(tmp,8)

Function RoundStr(str,Num)
 s = ""
 for i = 1 to Num

                  Randomize

  strLen = Len(str)
  t = Round((RND * (strLen-1))+1)
  s = s & mid(str,t,1)
 Next
 RoundStr = s
End Function

相关软件：