.版本 2 　　.程序集 窗口程序集1 　　.子程序 __启动窗口_创建完毕 　　.子程序 _按钮1_被单击 　　.局部变量 最大值, 整数型 　　.局部变量 当前值, 整数型 　　.局部变量 起始值, 整数型 　　起始值 ＝ 0 　　当前值 ＝ 起始值 　　最大值 ＝ 二十六到十 (编辑框2.内容) 　　.判断循环首 (当前值 ≤ 最大值) 　　编辑框1.加入文本 (十到二十六 (当前值) ＋ #换行符) 　　当前值 ＝ 当前值 ＋ 1 　　.判断循环尾 () 　　.子程序 二十六到十, 整数型 　　.参数 文本, 文本型 　　.局部变量 x, 整数型 　　.局部变量 y, 整数型 　　.局部变量 z, 整数型 　　.计次循环首 (取文本长度 (文本), x) 　　y ＝ 寻找文本 (“abcdefghijklmnopqrstuvwxyz”, 取文本中间 (文本, x, 1), , 真) 　　z ＝ z ＋ (y － 1) × 求次方 (26, 取文本长度 (文本) － x) 　　.计次循环尾 () 　　返回 (z) 　　.子程序 十到二十六, 文本型 　　.参数 十进制, 长整数型 　　.局部变量 临时, 整数型 　　.局部变量 数组, 文本型, , "26" 　　.局部变量 二十六进制, 文本型 　　数组 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” } 　　二十六进制 ＝ “” 　　.判断循环首 (十进制 ＞ 0) 　　临时 ＝ 十进制 ％ 26 ＋ 1 　　二十六进制 ＝ 数组 [临时] ＋ 二十六进制 　　十进制 ＝ 十进制 ÷ 26 　　.判断循环尾 () 　　.如果真 (取文本长度 (二十六进制) ＜ 6) 　　二十六进制 ＝ 取文本左边 (“aaaaaa”, 6 － 取文本长度 (二十六进制)) ＋ 二十六进制 　　.如果真结束 　　返回 (二十六进制)