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