引用:
作者: cwvdavid
函數改一下就好了...
Function NewPassword(intLen)
Dim tmpSTR
Dim i
Dim tmp
Randomize
For i = 1 To intLen
tmp = Int(Rnd * (122 - 49) + 49)
if (tmp>=58 and tmp<=64) or (tmp>=91 and tmp<=96) then
i=i-1
Else
tmpSTR = Chr(tmp)
NewPassword = NewPassword & tmpSTR
End if
Next
'將亂數結果的小寫英文字轉成大寫
NewPassword = UCASE(NewPassword)
End Function
|
是都變大寫....但是還是沒有20位數 不知道是不是我用錯....