下面这种实现代码还有其他写法吗，感觉很罗嗦，求教例子

haixin122

  

o ＝ 1  ' 设置每次从1开始
q ＝ 1
w ＝ 1
e ＝ 1
计次循环首 (取数组成员数 (方形), i)  ' 取当前总数量
如果真 (i ＞ 0 且 i ≤ 3)
j ＝ 1
矩形.左边 ＝ 430 �� (o － 1)
矩形.顶边 ＝ 270 �� (j － 1)
矩形.右边 ＝ 430 × o
矩形.底边 ＝ 270 × j
显示数据 (取窗口句柄 (), 方形 [i], 矩形, id)
o ＝ o ＋ 1
如果真 (i ≥ 4 且 i ≤ 6)
j ＝ 2
矩形.左边 ＝ 430 �� (q － 1)
矩形.顶边 ＝ 270 �� (j － 1)
矩形.右边 ＝ 430 × q
矩形.底边 ＝ 270 × j
显示数据 (取窗口句柄 (), 方形 [i], 矩形, id)
q ＝ q ＋ 1
如果真 (i ≥ 7 且 i ≤ 9)
j ＝ 3
矩形.左边 ＝ 430 �� (w － 1)
矩形.顶边 ＝ 270 �� (j － 1)
矩形.右边 ＝ 430 × w
矩形.底边 ＝ 270 × j
显示数据 (取窗口句柄 (), 方形 [i], 矩形, id)
w ＝ w ＋ 1
如果真 (i ≥ 10 且 i ≤ 12)
j ＝ 4
矩形.左边 ＝ 430 �� (e － 1)
矩形.顶边 ＝ 270 �� (j － 1)
矩形.右边 ＝ 430 × e
矩形.底边 ＝ 270 × j
显示数据 (取窗口句柄 (), 方形 [i], 矩形, id)
e ＝ e ＋ 1

计次循环尾 ()

.版本 2<br /> <br /> o ＝ 1  ' 设置每次从1开始<br /> q ＝ 1<br /> w ＝ 1<br /> e ＝ 1<br /> <br /> .计次循环首 (取数组成员数 (方形), i)  ' 取当前总数量<br />     .如果真 (i ＞ 0 且 i ≤ 3)<br /> <br />         j ＝ 1<br />         矩形.左边 ＝ 430 × (o － 1)<br />         矩形.顶边 ＝ 270 × (j － 1)<br />         矩形.右边 ＝ 430 × o<br />         矩形.底边 ＝ 270 × j<br />         显示数据 (取窗口句柄 (), 方形 <i>, 矩形, id)<br />         o ＝ o ＋ 1<br />     .如果真结束<br />     .如果真 (i ≥ 4 且 i ≤ 6)<br />         j ＝ 2<br />         矩形.左边 ＝ 430 × (q － 1)<br />         矩形.顶边 ＝ 270 × (j － 1)<br />         矩形.右边 ＝ 430 × q<br />         矩形.底边 ＝ 270 × j<br />         显示数据 (取窗口句柄 (), 方形 <i>, 矩形, id)<br />         q ＝ q ＋ 1<br /> <br /> <br />     .如果真结束<br />     .如果真 (i ≥ 7 且 i ≤ 9)<br />         j ＝ 3<br />         矩形.左边 ＝ 430 × (w － 1)<br />         矩形.顶边 ＝ 270 × (j － 1)<br />         矩形.右边 ＝ 430 × w<br />         矩形.底边 ＝ 270 × j<br />         显示数据 (取窗口句柄 (), 方形 <i>, 矩形, id)<br />         w ＝ w ＋ 1<br /> <br />     .如果真结束<br />     .如果真 (i ≥ 10 且 i ≤ 12)<br />         j ＝ 4<br />         矩形.左边 ＝ 430 × (e － 1)<br />         矩形.顶边 ＝ 270 × (j － 1)<br />         矩形.右边 ＝ 430 × e<br />         矩形.底边 ＝ 270 × j<br />         显示数据 (取窗口句柄 (), 方形 <i>, 矩形, id)<br />         e ＝ e ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()

850536360

knowledge

  

连续赋值 (1, o, q, w, e)  ' 设置每次从1开始
计次循环首 (取数组成员数 (方形), i)  ' 取当前总数量
如果真 (i ＞ 0 且 i ≤ 3)
j ＝ 1
子程序_矩形 (o, j, i)
如果真 (i ≥ 4 且 i ≤ 6)
j ＝ 2
子程序_矩形 (q, j, i)
如果真 (i ≥ 7 且 i ≤ 9)
j ＝ 3
子程序_矩形 (w, j, i)
如果真 (i ≥ 10 且 i ≤ 12)
j ＝ 4
子程序_矩形 (e, j, i)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_矩形
参数名	类 型	参考	可空	数组	备 注
参_变量类型	整数型
参_J	整数型
局_计次	整数型

矩形.左边 ＝ 430 �� (参_变量类型 － 1)
矩形.顶边 ＝ 270 �� (参_J － 1)
矩形.右边 ＝ 430 × 参_变量类型
矩形.底边 ＝ 270 × 参_J
显示数据 (取窗口句柄 (), 方形 [局_计次], 矩形, id)
参_变量类型 ＝ 参_变量类型 ＋ 1

.版本 2<br /> <br /> 连续赋值 (1, o, q, w, e)  ' 设置每次从1开始<br /> .计次循环首 (取数组成员数 (方形), i)  ' 取当前总数量<br />     .如果真 (i ＞ 0 且 i ≤ 3)<br />         j ＝ 1<br />         子程序_矩形 (o, j, i)<br />     .如果真结束<br />     .如果真 (i ≥ 4 且 i ≤ 6)<br />         j ＝ 2<br />         子程序_矩形 (q, j, i)<br />     .如果真结束<br />     .如果真 (i ≥ 7 且 i ≤ 9)<br />         j ＝ 3<br />         子程序_矩形 (w, j, i)<br />     .如果真结束<br />     .如果真 (i ≥ 10 且 i ≤ 12)<br />         j ＝ 4<br />         子程序_矩形 (e, j, i)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 子程序_矩形<br /> .参数 参_变量类型, 整数型<br /> .参数 参_J, 整数型<br /> .参数 局_计次, 整数型<br /> <br /> 矩形.左边 ＝ 430 × (参_变量类型 － 1)<br /> 矩形.顶边 ＝ 270 × (参_J － 1)<br /> 矩形.右边 ＝ 430 × 参_变量类型<br /> 矩形.底边 ＝ 270 × 参_J<br /> 显示数据 (取窗口句柄 (), 方形 [局_计次], 矩形, id)<br /> 参_变量类型 ＝ 参_变量类型 ＋ 1

大致如此,

只是有一点,这样下来有的变量需要设置成程序集变量.比如矩形,比如ID.

liuyun60

.版本 2

o ＝ 1  ' 设置每次从1开始
q ＝ 1
w ＝ 1
e ＝ 1

.计次循环首 (取数组成员数 (方形), i)  ' 取当前总数量
    .判断开始 (i ≤ 3)
        j ＝ 1
        a ＝ o
        o ＝ o ＋ 1
    .判断 (i ≤ 6)
        j ＝ 2
        a ＝ q
        q ＝ q ＋ 1
    .判断 (i ≤ 9)
        j ＝ 3
        a ＝ w
        w ＝ w ＋ 1
    .判断 (i ≤ 12)
        j ＝ 4
        a=e
        e ＝ e ＋ 1
    .默认

    .判断结束

    .如果真 (i ≤ 12)
        矩形.左边 ＝ 430 �� (a － 1)
        矩形.顶边 ＝ 270 �� (j － 1)
        矩形.右边 ＝ 430 × a
        矩形.底边 ＝ 270 × j
       显示数据 (取窗口句柄 (), 方形 [i], 矩形, id)
    .如果真结束

.计次循环尾 ()