求大神帮忙

木头人

求大神帮我看看如何改，我的要求是数组文本是1到50，n=10。数组文本一超13，到14它就不运行，得不到结果，手机是四核2G的，代码如下:
事件 按钮1.被单击()
        变量 数组文本 为 文本型()
        变量 n 为 整数型 = 3
        
        变量 循环次数 为 整数型
        变量 i 为 整数型 = 1
        变量 is 为 整数型
        变量 k 为 整数型
        变量 临时文本 为 文本型
        变量 j 为 整数型
        
        变量 文本 为 文本型 = ""
        数组文本 = 分割文本("1,2,3,4,5",",")
        循环次数 = 求次方(2, 取数组成员数(数组文本)) - 1
        判断循环首 i < 循环次数
                is = i
                k = 0
                临时文本 = ""
                j = 0
                判断循环首 is <> 0
                        如果 (取整(求余数(is, 2)) = 1) 则
                                k = k + 1
                                临时文本 = 临时文本 & 数组文本 (j)
                        结束 如果
                        is = is / 2
                        j = j + 1
                判断循环尾
                如果 (k = n) 则
                        文本 = 文本 & 临时文本 & "\n"
                结束 如果
                i = i + 1
        判断循环尾
        编辑框1.内容 = 文本
结束 事件

函数 求次方(欲求次方数值 为 整数型, 次方数 为 文本型) 为 整数型
        变量 i 为 整数型 = 1
        求次方 = 1
        判断循环首 i < 次方数 + 1
                求次方 = 求次方 * 欲求次方数值
                i = i + 1
        判断循环尾
结束 函数

yanxueao

路过帮顶

lieyan2050

yanxueao 发表于 2020-3-30 08:38
路过帮顶

路过帮顶