.版本 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 - 取文本长度 (二十六进制)) + 二十六进制
.如果真结束
返回 (二十六进制)
温馨提示:内容为网友见解,仅供参考