一聚教程网:一个值得你收藏的教程网站

热门教程

一个生成随机密码的函数

时间:2022-06-30 09:20:45 编辑:袖梨 来源:一聚教程网

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

热门栏目