易语言数组成员000-999然后编辑框1.内容=1
.版本 2
.程序集 窗口程序集1
.程序集变量 计次, 整数型
.程序集变量 计数, 整数型
.程序集变量 数值, 整数型
.程序集变量 数字组, 整数型, , "10"
.程序集变量 文本, 文本型
.子程序 __启动窗口_创建完毕
编辑框2.是否允许多行 = 真
编辑框2.滚动条 = 2
.子程序 _按钮1_被单击
编辑框2.内容 = “”
.计次循环首 (取文本长度 (编辑框1.内容), 计次)
数值 = 到数值 (取文本中间 (编辑框1.内容, 计次, 1))
.如果真 (数值 = 0)
数值 = 10
.如果真结束
数字组 [数值] = 数值
.计次循环尾 ()
.变量循环首 (0, 999, 1, 计次)
文本 = “000” + 到文本 (计次)
文本 = 取文本右边 (文本, 3)
.计次循环首 (3, 计数)
数值 = 到数值 (取文本中间 (文本, 计数, 1))
.如果真 (数值 = 0)
数值 = 10
.如果真结束
.如果真 (数字组 [数值] ≠ 0)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (计数 ≤ 3)
编辑框2.加入文本 (文本, “,”)
.如果真结束
.变量循环尾 ()