3d组6复式拆单器源码

3d组6复式拆单器

.版本 2

.子程序 _按钮1_被单击

a ＝ 取文本长度 (编辑框1.内容)
.计次循环首 (a, x)
    t1 ＝ 取文本中间 (编辑框1.内容, x, 1)
    .如果真 (x ＞ a － 2)
        跳出循环 ()
    .如果真结束

    .计次循环首 (a － 1, y)
        t2 ＝ 取文本中间 (编辑框1.内容, x ＋ y, 1)
        .如果真 (y ＞ a － 2)
            跳出循环 ()
        .如果真结束
        .计次循环首 (a － 2, z)
            t3 ＝ 取文本中间 (编辑框1.内容, x ＋ y ＋ z, 1)
            .如果真 (取文本长度 (t1 ＋ t2 ＋ t3) ＝ 3)
                编辑框2.加入文本 (t1 ＋ t2 ＋ t3 ＋ “ ”)
            .如果真结束

        .计次循环尾 ()
    .计次循环尾 ()
.计次循环尾 ()

@易语言教程网