求高手给看下

fanqingxin · 发表于 2011-9-9 16:13:23

请帮我指正一下我需要得到跟编辑框2里面的数字的所有组合为什么不是重复就是少了
[e][e].版本 2[/e][/e].版本 2
.程序集窗口程序集1
.程序集变量数组, 文本型, , "10"
.程序集变量数组1, 文本型, , "0"
.子程序 __启动窗口_创建完毕
数组 [1] ＝ “0”
数组 [2] ＝ “1”
数组 [3] ＝ “2”
数组 [4] ＝ “3”
数组 [5] ＝ “4”
数组 [6] ＝ “5”
数组 [7] ＝ “6”
数组 [8] ＝ “7”
数组 [9] ＝ “8”
数组 [10] ＝ “9”
.子程序 _按钮1_被单击
.局部变量 i1, 整数型
.局部变量 i2, 整数型
.计次循环首 (10, i1)
.计次循环首 (10, i2)
      .如果 (到数值 (编辑框2.内容＋数组 [i1] ＋数组 [i2]) ＝到数值 (数组 [i1] ＋编辑框2.内容＋数组 [i2]) 或到数值 (编辑框2.内容＋数组 [i1] ＋数组 [i2]) ＝到数值 (数组 [i1] ＋数组 [i2] ＋编辑框2.内容))
         编辑框1.加入文本 (编辑框2.内容＋数组 [i1] ＋数组 [i2] ＋ #换行符)
      .否则
         .如果 (到数值 (编辑框2.内容＋数组 [i1] ＋数组 [i2]) ＝到数值 (数组 [i1] ＋数组 [i2] ＋编辑框2.内容) 或到数值 (数组 [i1] ＋编辑框2.内容＋数组 [i2]) ＝到数值 (数组 [i1] ＋数组 [i2] ＋编辑框2.内容))
            编辑框1.加入文本 (数组 [i1] ＋数组 [i2] ＋编辑框2.内容＋ #换行符)
         .否则
            .如果 (到数值 (数组 [i1] ＋编辑框2.内容＋数组 [i2]) ＝到数值 (数组 [i1] ＋数组 [i2] ＋编辑框2.内容) 或到数值 (编辑框2.内容＋数组 [i1] ＋数组 [i2]) ＝到数值 (数组 [i1] ＋编辑框2.内容＋数组 [i2]))
                  编辑框1.加入文本 (数组 [i1] ＋编辑框2.内容＋数组 [i2] ＋ #换行符)
            .否则
                  编辑框1.加入文本 (数组 [i1] ＋编辑框2.内容＋数组 [i2] ＋ #换行符, 编辑框2.内容＋数组 [i1] ＋数组 [i2] ＋ #换行符, 数组 [i1] ＋数组 [i2] ＋编辑框2.内容＋ #换行符)
                  加入成员 (数组1, 编辑框2.内容＋数组 [i1] ＋数组 [i2])
                  加入成员 (数组1, 数组 [i1] ＋编辑框2.内容＋数组 [i2])
                  加入成员 (数组1, 数组 [i1] ＋数组 [i2] ＋编辑框2.内容)
                  标签1.标题＝到文本 (取数组成员数 (数组1))
            .如果结束
         .如果结束
      .如果结束

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

exit11 · 发表于 2011-9-9 16:13:24

本帖最后由 exit11 于 2011-9-9 17:29 编辑

[e]
.版本 2
.支持库 spec
.程序集窗口程序集1
.程序集变量数组, 文本型, , "10"
.程序集变量数组1, 整数型, , "0"
.子程序 __启动窗口_创建完毕
数组 [1] ＝ “0”
数组 [2] ＝ “1”
数组 [3] ＝ “2”
数组 [4] ＝ “3”
数组 [5] ＝ “4”
数组 [6] ＝ “5”
数组 [7] ＝ “6”
数组 [8] ＝ “7”
数组 [9] ＝ “8”
数组 [10] ＝ “9”
.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 z, 整数型
.局部变量 aa, 整数型
重定义数组 (数组1, 假, 600)
aa ＝ 1
.计次循环首 (10, x)
.计次循环首 (10, y)
      .计次循环首 (6, z)
         数组1 [aa] ＝到整数 (多项选择 (z, 数组 [x] ＋数组 [y] ＋编辑框2.内容, 数组 [x] ＋编辑框2.内容＋数组 [y], 数组 [y] ＋数组 [x] ＋编辑框2.内容, 数组 [y] ＋编辑框2.内容＋数组 [x], 编辑框2.内容＋数组 [x] ＋数组 [y], 编辑框2.内容＋数组 [y] ＋数组 [x]))
         aa ＝ aa ＋ 1
      .计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()
数组排序 (数组1, )  ' 重复的就自己判断下
.变量循环首 (600, 2, -1, x)
.如果真 (数组1 [x] ＝数组1 [x － 1])
      删除成员 (数组1, x, 1)
.如果真结束
.变量循环尾 ()
调试输出 (数组1)

[/e]