[JavaScript] 纯文本查看 复制代码 .版本 2
.子程序 范围公式, , , 更新
.局部变量 取得的数, 文本型
.局部变量 n, 整数型
.局部变量 大于, 逻辑型
.局部变量 补数, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 启动时间, 整数型
.局部变量 起始数x, 文本型
.局部变量 位数, 整数型
.局部变量 最小数, 整数型
.局部变量 数值, 文本型, , "0"
.局部变量 范围x, 文本型
.局部变量 x, 整数型
.局部变量 返回文本, 文本型
' 启动时间 = 取启动时间 ()
位数 = 到整数 (几位数.内容)
取得的数 = 公式数.内容
起始数x = 起始数.内容
范围x = 范围.内容
返回文本 = “”
文本_逐字分割 (取得的数, 数值)
.如果 (取数组成员数 (数值) > 位数)
.计次循环首 (位数, x)
返回文本 = 返回文本 + 范围x
.计次循环尾 ()
.否则
.计次循环首 (位数 - 取数组成员数 (数值), )
插入成员 (数值, 1, 起始数x)
.计次循环尾 ()
数组_反转 (数值)
.计次循环首 (位数, x)
.如果 (x = 1)
.如果 (到整数 (数值 [x]) + 1 > 到整数 (范围x))
数值 [x + 1] = 到文本 (到整数 (数值 [x + 1]) + 1)
数值 [x] = 起始数x
.否则
数值 [x] = 到文本 (到整数 (数值 [x]) + 1)
.如果结束
.否则
.如果 (到整数 (数值 [x]) > 到整数 (范围x))
.如果 (x + 1 > 位数)
数值 [x] = 起始数x
.否则
数值 [x + 1] = 到文本 (到整数 (数值 [x + 1]) + 1)
数值 [x] = 起始数x
.如果结束
.否则
跳出循环 ()
.如果结束
.如果结束
.计次循环尾 ()
数组_反转 (数值)
.计次循环首 (取数组成员数 (数值), x)
返回文本 = 返回文本 + 数值 [x]
.计次循环尾 ()
.如果结束
公式数.内容 = 返回文本
文本_逐字分割 (公式数.内容, arr)
.如果真 (取数组成员数 (arr) ≥ 1)
编辑框1.内容 = arr [1]
.如果真结束
.如果真 (取数组成员数 (arr) ≥ 2)
编辑框2.内容 = arr [2]
.如果真结束
.如果真 (取数组成员数 (arr) ≥ 3)
编辑框3.内容 = arr [3]
.如果真结束
.如果真 (取数组成员数 (arr) ≥ 4)
编辑框4.内容 = arr [4]
.如果真结束
.如果真 (取数组成员数 (arr) ≥ 5)
编辑框5.内容 = arr [5]
|