数组取交叉数据

罗孝全

数组里有200条数据
怎么取交叉取数据，编辑框1.内容等于4,就分成4份，通过编辑框内容决定份数
第一份是
数组[1],数组[5],数组[9]…已此内推
第二份是
数组[2],数组[6],数组[10]…已此内推
第三份是
数组[3],数组[7],数组[11]…已此内推
第四份是
数组[4],数组[8],数组[12]…已此内推

b0y

定义为二维数组  

补充内容 (2025-3-7 08:18):
调试输出 (取文本 (“共有成员%d,每份%d个成员 共分%d份”, 取数组成员数 (ary), num, 份数))

1752328925

循环次数是 数组除以 编辑框内容的数字     循环内  数组[1+j*编辑框内容的数字]      外层循环次数是  编辑框内容的数字   数组[i+j*编辑框内容的数字]

ccerty

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数组	整数型		0
份数	整数型
行数	整数型
i	整数型
j	整数型
新数组	整数型		0

数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 }
份数 ＝ 4  ' 自定义，到整数（编辑框1.内容）
行数 ＝ ���取整 (���取数组成员数 (数组) ÷ 份数)
重定义数组 (数组, 真, 行数, 份数)
计次循环首 (份数, i)
清除数组 (新数组)
计次循环首 (行数, j)
加入成员 (新数组, 数组 [j] [i])
计次循环尾 ()
调试输出 (“第” ＋ 到文本 (i) ＋ “组”, 新数组)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 份数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 新数组, 整数型, , "0"<br /> <br /> 数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 }<br /> 份数 ＝ 4  ' 自定义，到整数（编辑框1.内容）<br /> 行数 ＝ －取整 (－取数组成员数 (数组) ÷ 份数)<br /> <br /> 重定义数组 (数组, 真, 行数, 份数)<br /> <br /> .计次循环首 (份数, i)<br />     清除数组 (新数组)<br />     .计次循环首 (行数, j)<br />         加入成员 (新数组, 数组 [j] <i>)<br />     .计次循环尾 ()<br />     调试输出 (“第” ＋ 到文本 (i) ＋ “组”, 新数组)<br /> .计次循环尾 ()

补充内容 (2025-3-7 10:11):
.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 数组, 整数型, , "0"
.局部变量 份数, 整数型
.局部变量 行数, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 新数组, 整数型, , "0"

数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 }
份数 ＝ 4  ' 自定义，到整数（编辑框1.内容）
行数 ＝ －取整 (－取数组成员数 (数组) ÷ 份数)

重定义数组 (数组, 真, 行数, 份数)

.计次循环首 (份数, i)
    清除数组 (新数组)
    .计次循环首 (行数, j)
        加入成员 (新数组, 数组 [j] )
    .计次循环尾 ()
    调试输出 (“第” ＋ 到文本 (i) ＋ “组”, 新数组)
.计次循环尾 ()