暗淡？黨衛軍？作為什麽？字符串？定義變量ss是字符串類型，默認初始值是空字符串。
私人的？Sub？Command1_Click（）？按鈕命令1單擊事件。
黨衛軍？=?黨衛軍？& amp？UCase（“abcdefghijklmnopqrstuvwxyz“）？UCase函數采用大寫格式。
黨衛軍？=?黨衛軍？& amp？abcdefghijklmnopqrstuvwxyz。是壹個字符串連接函數。
黨衛軍？=?黨衛軍？& amp？"0123456789"
黨衛軍？=?黨衛軍？& amp？"~!@#$%^&；*（）_+{ } |:& lt；& gt？[]\;',./"
此時，SS =“abcdefghijklmnopkrstuvxyzabcdefghijklmnopkrstuvxyz 0123456789 ~！@#$%^&；*（）_+{ } |:& lt；& gt？[]\;',./"
暗淡？passwordlen？作為什麽？“Double”定義變量passwordlen是雙精度類型，用於設置密碼的最大長度。
暗淡？icount？作為什麽？雙份？定義變量icount是雙精度的，
暗淡？s1？作為什麽？字符串？定義變量s1是字符串類型。
暗淡？我，？j？作為什麽？雙份？將變量I定義為變量，將j定義為雙精度。
暗淡？數數？作為什麽？“Double”定義變量count是雙精度模型。
暗淡？密碼（）？作為什麽？字符串？定義動態數組密碼（）？是字符串類型，
暗淡？tempstr？作為什麽？“String”定義變量tempstr是字符串類型，
passwordlen？=?val（text 1。text）‘text 1中的字符類型被轉換為數字類型並存儲在變量passwordlen中。
如果？passwordlen？& lt？1?當passwordlen小於1時。
MsgBox？請輸入最大密碼長度。vbInformation，？“字典生成工具”？彈出對話框
文本1。SetFocus？文本框Text1獲得焦點。
退出？Sub？退出子流程。
結束？如果
列表1。“清除”初始化，空列表框列表1。
icount？=?len（ss）？將字符Chuang ss的長度值90放入變量icount中。
為了什麽？我？=?1?去哪？icount‘for循環，初始值為1，最終值為90，步長為1。
雷迪姆？保存？密碼（I）？重新定義動態數組密碼（）為I（上限為0），Preserve被保留且不被替換。
密碼（I）？=?mid $（ss，？我，？1)?數組密碼的每個元素都是字符串ss中的第I個位置。
列表1。AddItem？‘password（I）‘顯示列表框List1中數組的所有元素。
下壹個？我
為了什麽？我？=?2?去哪？passwordlen？從2到最大密碼長度passwordlen
密碼？=?祖赫（密碼，？icount？ss）？調用函數zuhe
下壹個？我
結束？潛水艇
公共的？功能？祖和（temp（）？作為什麽？字符串，？icount？作為什麽？雙份？黨衛軍？作為什麽？字符串）？作為什麽？String（）？定義函數zuhe
有三個獨立變量:數組temp（）是字符串類型，icount是雙精度類型。Ss是字符串類型。
暗淡？數數？作為什麽？雙份？變量計數被定義為雙精度。
暗淡？s1？作為什麽？“String”定義變量s1是字符串類型，
暗淡？我？作為什麽？雙份？變量I被定義為雙精度。
暗淡？j？作為什麽？雙份？變量j被定義為雙精度。
數數？=?UBound（temp）‘將數組temp（）？變量計數的下壹次保存。
暗淡？密碼（）？作為什麽？“String”定義數組密碼（）是字符串類型，
暗淡？索引？作為什麽？“Double”定義變量iindex是雙精度的。
索引？=?‘1‘給出iindex的初始值為1。
暗淡？tempstr？作為什麽？字符串？定義變量tempstr是字符串類型。
為了什麽？我？=?1?去哪？數數
為了什麽？j？=?1?去哪？icount
s1？=?mid $（ss，？j？1)?mid函數從字符串ss的j位中取出1位，然後將其賦給變量s 1。
DoEvents的延遲功能，防止程序假死，
雷迪姆？保存？密碼（iindex）？重新定義動態數組密碼（）
密碼（iindex）？=?溫度（I）？& amp？s1？數組temp（I）和字符串s1被連接並分配給數組password（）。
列表1。AddItem？‘Password（iindex）‘在列表框List1中顯示數組password（）的元素。
下壹個？j
下壹個？我
祖和？=?密碼？將數組密碼賦給變量zuhe作為該函數的函數值。
結束？功能