求大神帮忙
求大神帮我看看如何改，我的要求是数组文本是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 发表于 2020-3-30 08:38
路过帮顶
路过帮顶
页:
[1]