.版本?2
.程序集?窗口程序集1
.程序集變量?數組1,?文本型,?,?"0"
.程序集變量?數組2,?文本型,?,?"0"
.程序集變量?文本,?文本型
.程序集變量?計次,?整數型
.程序集變量?計次1,?整數型
.程序集變量?計次2,?整數型
.子程序?__啟動窗口_創建完畢
編輯框3.是否允許多行?=?真
.計次循環首?(3,?計次)
組合框1.加入項目?(到文本?(計次),?)
.計次循環尾?()
.子程序?_組合框1_列表項被選擇
清除數組?(數組1)
清除數組?(數組2)
.計次循環首?(取文本長度?(編輯框1.內容),?計次)
加入成員?(數組1,?取文本中間?(編輯框1.內容,?計次,?1))
.計次循環尾?()
.計次循環首?(取文本長度?(編輯框2.內容),?計次)
加入成員?(數組2,?取文本中間?(編輯框2.內容,?計次,?1))
.計次循環尾?()
編輯框3.內容?=?“”
.如果真?(組合框1.現行選中項?=?0)
組合1?()
返回?()
.如果真結束
.如果真?(組合框1.現行選中項?=?1)
組合2?()
返回?()
.如果真結束
.如果真?(取數組成員數?(數組1)?<?3)
返回?()
.如果真結束
.計次循環首?(取數組成員數?(數組1),?計次)
.變量循環首?(計次?+?1,?取數組成員數?(數組1),?1,?計次1)
.變量循環首?(計次1?+?1,?取數組成員數?(數組1),?1,?計次2)
文本?=?數組1?[計次]?+?數組1?[計次1]?+?數組1?[計次2]
編輯框3.加入文本?(文本,?“?”)
.變量循環尾?()
.變量循環尾?()
.計次循環尾?()
.子程序?組合1
.計次循環首?(取數組成員數?(數組1),?計次1)
.計次循環首?(取數組成員數?(數組2),?計次)
.變量循環首?(計次?+?1,?取數組成員數?(數組2),?1,?計次2)
文本?=?數組1?[計次1]?+?數組2?[計次]?+?數組2?[計次2]
編輯框3.加入文本?(文本,?“?”)
.變量循環尾?()
.計次循環尾?()
.計次循環尾?()
.子程序?組合2
.計次循環首?(取數組成員數?(數組1),?計次)
.變量循環首?(計次?+?1,?取數組成員數?(數組1),?1,?計次1)
.計次循環首?(取數組成員數?(數組2),?計次2)
文本?=?數組1?[計次]?+?數組1?[計次1]?+?數組2?[計次2]
編輯框3.加入文本?(文本,?“?”)
.計次循環尾?()
.變量循環尾?()
.計次循環尾?()