.版本 2

.程序集 窗口程序集1

.子程序 __啟動窗口_創(chuàng)建完畢



.子程序 _按鈕1_被單擊
.局部變量 最大值, 整數(shù)型
.局部變量 當(dāng)前值, 整數(shù)型
.局部變量 起始值, 整數(shù)型

起始值 ＝ 0
當(dāng)前值 ＝ 起始值
最大值 ＝ 二十六到十 (編輯框2.內(nèi)容)
.判斷循環(huán)首 (當(dāng)前值 ≤ 最大值)
    編輯框1.加入文本 (十到二十六 (當(dāng)前值) ＋ #換行符)
    當(dāng)前值 ＝ 當(dāng)前值 ＋ 1
.判斷循環(huán)尾 ()



.子程序 二十六到十, 整數(shù)型
.參數(shù) 文本, 文本型
.局部變量 x, 整數(shù)型
.局部變量 y, 整數(shù)型
.局部變量 z, 整數(shù)型

.計次循環(huán)首 (取文本長度 (文本), x)
    y ＝ 尋找文本 (“abcdefghijklmnopqrstuvwxyz”, 取文本中間 (文本, x, 1), , 真)
    z ＝ z ＋ (y － 1) × 求次方 (26, 取文本長度 (文本) － x)
.計次循環(huán)尾 ()
返回 (z)



.子程序 十到二十六, 文本型
.參數(shù) 十進(jìn)制, 長整數(shù)型
.局部變量 臨時, 整數(shù)型
.局部變量 數(shù)組, 文本型, , "26"
.局部變量 二十六進(jìn)制, 文本型

數(shù)組 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l(fā)”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
二十六進(jìn)制 ＝ “”
.判斷循環(huán)首 (十進(jìn)制 ＞ 0)
    臨時 ＝ 十進(jìn)制 ％ 26 ＋ 1
    二十六進(jìn)制 ＝ 數(shù)組 [臨時] ＋ 二十六進(jìn)制
    十進(jìn)制 ＝ 十進(jìn)制 ÷ 26
.判斷循環(huán)尾 ()
.如果真 (取文本長度 (二十六進(jìn)制) ＜ 6)
    二十六進(jìn)制 ＝ 取文本左邊 (“aaaaaa”, 6 － 取文本長度 (二十六進(jìn)制)) ＋ 二十六進(jìn)制
.如果真結(jié)束
返回 (二十六進(jìn)制)