求大神帮忙

木头人

我的要求是：给临时文本加个少于5个数相连的判断，如：1 2 3 4 5 8 9 10
                 1 2 3 4 6 7 8 9
第一组不要加入编辑框1内容，第二组可以，代码：
.子程序 _按钮1_被单击
.局部变量 a, 整数型, , "30"
a ＝ { 1, 2, 3, 4, 5，6，7，8，9，10，11，12，13，14，15，16，17，18，19，20，21，22，23，24，25，26，27，28，29，30 }
排列 (a, 8)
.子程序 排列
.参数 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.加入文本 (临时文本 ＋ #换行符)
.如果真结束
.计次循环尾 ()

yudave

就来看看了

XF谭镇洋

1. 局部变量 x, 整数型
   
2. 局部变量 t, 整数型

复制代码

木头人

XF谭镇洋 发表于 2020-5-3 15:36

什么意思？

XF谭镇洋

木头人 发表于 2020-5-3 22:29
什么意思？

没写完，请稍候

木头人

.版本 2

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

.子程序 _按钮1_被单击
.局部变量 a, 整数型, , "30"

a ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30 }
排列 (a, 8)


.子程序 排列
.参数 a, 整数型, 数组
.参数 n, 整数型
.局部变量 m, 文本型, , "8"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 k, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型
.局部变量 f, 整数型
.局部变量 g, 整数型
.局部变量 h, 整数型
.局部变量 l, 整数型
.局部变量 临时文本, 文本型
.局部变量 临时文本1, 文本型

.计次循环首 (到整数 (求次方 (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)
        m ＝ 分割文本 (临时文本, “ ”, n)
        b ＝ 到整数 (m [n － 7])
        c ＝ 到整数 (m [n － 6])
        d ＝ 到整数 (m [n － 5])
        e ＝ 到整数 (m [n － 4])
        f ＝ 到整数 (m [n － 3])
        g ＝ 到整数 (m [n － 2])
        h ＝ 到整数 (m [n － 1])
        l ＝ 到整数 (m [n － 0])
        .如果 (l － h ＝ h － g ＝ g － f ＝ f － e ＝ 1） 或 （h － g ＝ g － f ＝ f － e ＝ e － d ＝ 1） 或（ g － f ＝ f － e ＝ e － d ＝ d － c ＝ 1 ）或（ f － e ＝ e － d ＝ d － c ＝ c － b ＝ 1)

        .否则
            编辑框1.加入文本 (删尾空 (临时文本) ＋ “\n”)
        .如果结束
        临时文本1 ＝ 临时文本 ＋ “\n”
    .如果真结束

.计次循环尾 ()


我这样改有什么问题？