题目

（100财富值）易语言怎么制作26个英文字母中自动任意6个字母组合的全部排列软件?
26个英文字母有顺序的排列组合.
比如我给文档中写入abcdefg,让软件扫描出我写的是什么.
软件开始扫描,先从6位开始.
aaaaaa、aaaaab、aaaaac、aaaaad、aaaaae、aaaaaf、……依次排列~一直扫描到abcdefg.
好多人说用VC++做,我看着VC++就头大了!没办法又回到传说中的易语言,准备老老实实的用国产软件做.
这样的源码怎么写?如果太过复杂,可以加我Q说.（④⒎⑥⒌②0.③⒋⑦）.
帮忙我完美解决再送100财富值.

提问时间：2021-01-04

答案

 .版本 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 － 取文本长度 (二十六进制)) ＋ 二十六进制
.如果真结束
返回 (二十六进制)