排列组合C(7,5)用易语言怎么表示出来？

蜡笔不小新

a[1]=1 a[2]=2 a[3]=3 a[4]=4 a[5]=5 a[6]=6 a[7]=7
在7个数中随机筛选出5个数，组成一组
将所有的组合可能性都表示出来。
求助。。

cqcc

怎么没有人回答呢

新月才子2

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型
.局部变量 c, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 d, 整数型

b ＝ “1,2,3,4,5,6,7”  ' 欲被分割的文本
d ＝ 5
a ＝ 分割文本 (b, “,”, )
排列 (a, d)  ' 组合(7,5)

.子程序 排列
.参数 a, 文本型, 数组
.参数 n, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 生成文本, 文本型
.局部变量 结果, 文本型

.计次循环首 (到整数 (求次方 (2, 取数组成员数 (a))) － 1, i)
    k ＝ 0
    生成文本 ＝ “”
    j ＝ 1
    .判断循环首 (i ≠ 0)
        .如果真 (i ％ 2 ＝ 1)
            k ＝ k ＋ 1
            生成文本 ＝ 生成文本 ＋ 到文本 (a [j])
        .如果真结束
        i ＝ i ÷ 2
        j ＝ j ＋ 1
    .判断循环尾 ()
    .如果真 (k ＝ n)
        结果 ＝ 结果 ＋ 生成文本 ＋ “|”
    .如果真结束

.计次循环尾 ()
结果 ＝ 文本替换 (结果, 取文本长度 (结果), 1, “”)
调试输出 (“结果”, 结果)