求一个四位数组合的计算方法 0000到9999

流云沙海

就是一个四位数密码我想把所有组合都尝试一次总有一个是正确的
四位数组合应该是有9999种组合我找到规律了 但是写不出来怎么去循环计算
个位数 0000-0009 一共这10种组合
十位数从0010开始    十位数每加一个数,个位数都要先从0到9进行组合
以此类推,有写过类似的吗 江湖救急 拜托 拜托

afd

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 密码, 文本型

.判断循环首 (真)
    密码 ＝ 文本_自动补零 (密码, 4)
    调试输出 (密码)
    密码 ＝ 到文本 (到整数 (密码) ＋ 1)
    .如果真 (取文本长度 (密码) ＞ 4)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()

流云沙海

这个自动补零有源码吗? 这个命令确实厉害  我想知道是怎么写出来的 然后我用按键写一个命令 这个用命令写好头疼

冬夏

  

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
c	整数型
d	整数型
临时文本	文本型		0

计次循环首 (10, a)
计次循环首 (10,b )
计次循环首 (10,c )
计次循环首 (10, d)
加入成员 (临时文本, 到文本 (a － 1) ＋ 到文本 (b － 1) ＋ 到文本 (c － 1) ＋ 到文本 (d － 1))
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
调试输出 (取数组成员数 (临时文本))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 临时文本, 文本型, , "0"<br /> <br /> .计次循环首 (10, a)<br />     .计次循环首 (10,b )<br />         .计次循环首 (10,c )<br />             .计次循环首 (10, d)<br />                 加入成员 (临时文本, 到文本 (a － 1) ＋ 到文本 (b － 1) ＋ 到文本 (c － 1) ＋ 到文本 (d － 1))<br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (取数组成员数 (临时文本))

流云沙海

易扬天下 发表于 2020-1-5 09:44
[e=1]
.版本 2
.支持库 spec

666666666666666666666666

sunsir

流云沙海 发表于 2020-1-5 09:43
这个自动补零有源码吗? 这个命令确实厉害  我想知道是怎么写出来的 然后我用按键写一个命令 这个用命令写好 ...

有源码，精易模块的命令 http://ec.125.la 自己下载源码找下~

wf晚风

  

子程序名	返回值类型	公开	备 注
子程序1	文本型

变量名	类 型	静态	数组	备 注
密码	文本型
补位后密码	文本型

密码 ＝ “4”
如果真 (到整数 (0 ＜ 密码 ＜ 10))
补位后密码 ＝ “000” ＋ 密码
返回 (补位后密码)
如果真 (到整数 (10 ＜ 密码 ＜ 100))
补位后密码 ＝ “00” ＋ 密码
返回 (补位后密码)
如果真 (到整数 (100 ＜ 密码 ＜ 1000))
补位后密码 ＝ “0” ＋ 密码
返回 (补位后密码)

.版本 2<br /> <br /> .子程序 子程序1, 文本型<br /> .局部变量 密码, 文本型<br /> .局部变量 补位后密码, 文本型<br /> <br /> 密码 ＝ “4”<br /> .如果真 (到整数 (0 ＜ 密码 ＜ 10))<br />     补位后密码 ＝ “000” ＋ 密码<br />     返回 (补位后密码)<br /> .如果真结束<br /> .如果真 (到整数 (10 ＜ 密码 ＜ 100))<br />     补位后密码 ＝ “00” ＋ 密码<br />     返回 (补位后密码)<br /> .如果真结束<br /> .如果真 (到整数 (100 ＜ 密码 ＜ 1000))<br />     补位后密码 ＝ “0” ＋ 密码<br />     返回 (补位后密码)

补充内容 (2020-1-5 10:16):
把那个0<删掉或者改成0<=

两只老虎

.版本 2
.支持库 spec


调试输出 (自动补零 (10, 5))  ' 返回值是这样的：00010

.子程序 自动补零, 文本型, , 根据文本长度来判断数值是否需要在前方补0
.参数 要补零的数值, 整数型
.参数 整个文本长度, 整数型
.局部变量 str, 文本型

str ＝ 到文本 (要补零的数值)
.计次循环首 (整个文本长度 － 取文本长度 (str), )
    str ＝ “0” ＋ str
.计次循环尾 ()
返回 (str)

Ossian

  

子程序名	返回值类型	公开	备 注
补零	文本型
参数名	类 型	参考	可空	数组	备 注
Str	文本型
len	整数型

返回 (取文本右边 (“00000000” ＋ Str, len ＋ 1))
调试输出 (补零 (“999”, 2))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 补零, 文本型<br /> .参数 Str, 文本型<br /> .参数 len, 整数型<br /> <br /> 返回 (取文本右边 (“00000000” ＋ Str, len ＋ 1))<br /> 调试输出 (补零 (“999”, 2))

补零没那么麻烦

ttioo7

楼主，你要的密码组合其实就是0-9999，从0开始一次+1
就是 1,2,3,4,5,6,7,8,9,10，然后前边根据位数长短补0就行了
你品，你细品