Question

易语言0000-9999 不重复 顺序0000 0001 0002 一直到9999 怎么写

Answer 1

.版本 2

.局部变量 a, 整数型
.局部变量 文本, 文本型

.判断循环首 (a ＜ 10000)
处理事件 ()
.判断开始 (a ＜ 10)
文本 ＝ “000” ＋ 到文本 (a)
.判断 (a ＜ 100)
文本 ＝ “00” ＋ 到文本 (a)
.判断 (a ＜ 1000)
文本 ＝ “0” ＋ 到文本 (a)
.默认
文本 ＝ 到文本 (a)
.判断结束
输出调试文本 (文本)
a ＝ a ＋ 1
.判断循环尾 ()

追问

把结果搞到编辑框的怎么搞？？

追答

把输出调试文本
改成
编辑框1.加入文本（文本+#换行符）

Answer 2

.版本 2

.子程序 格式化数量, 文本型
.参数 数, 整数型
.参数 长度, 整数型
.局部变量 文本, 文本型
.局部变量 n, 整数型
.局部变量 数长度, 整数型

.计次循环首 (长度, n)
文本 ＝ 文本 ＋ “0”
.计次循环尾 ()
数长度 ＝ 取文本长度 (到文本 (数))
文本 ＝ 文本替换 (文本, 长度 － (数长度 － 1), 数长度, 到文本 (数))
返回 (文本)

Answer 3

一个文本框和一按钮
.版本 2

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 文本型

.计次循环首 (10000, a)
c ＝ 到文本 (a)
.如果真 (取文本长度 (到文本 (a)) ＜ 4)
b ＝ 4 － 取文本长度 (到文本 (a))
.计次循环首 (b, )
c ＝ “0” ＋ c
.计次循环尾 ()
.如果真结束
编辑框1.加入文本 (c ＋ #换行符)
.计次循环尾 ()