選項顯式
副總管（）
將bytLen調成字節
Dim strPwd作為字符串
將I作為字節顯示
使不規則化
開始筋疲力盡
bytlen = int（rnd * 11）+6‘生成6-16位的隨機長度。
StrPwd =“““清除密碼
for I = 1 To bytLen‘生成字符。
strPwd = strPwd & ampchr（Int（Rnd * 95）+32‘隨機生成32-126的所有可見字符。
然後
如果測試正則表達式（strpwd），則調試。print strpwd使用正則表達式判斷密碼是否符合要求，如何處理這些密碼不做處理，僅供演示。
“DoEvents”防止程序停止響應。
環
末端接頭
函數TestRegExp（strString As String）為布爾值
Dim objRegExp As RegExp
Set objRegExp = New RegExp
使用objRegExp
。IgnoreCase = True
。全局=真
。pattern =“\ d { 0，8}““少於9位數的純數字。
以…結尾
如果不是objRegExp。然後測試（strString）
TestRegExp = False
退出功能
如果…就會結束
objregexp . pattern =“【A-Za-z0-1 \ w】{ 6，16 }““a-z，A-z，0-1，非字母數字字符（符號）。
objRegExp。pattern =“【A-zA-Z0-1】{ 6，16 }““A-Z、A-Z、0-1
objRegExp。pattern =“【A-zA-Z】{ 6，16 }““A-Z、A-Z
TestRegExp = objRegExp。測試（字符串）
結束功能