请求帮忙有快速的代码修改吗

小杰哥哥

我要弄1000个不行复制1000行有啥代码可以实现吗

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
颜色	整数型	2

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

颜色 ＝ { #黑色, #青绿 }
外形框1.填充颜色 ＝ 颜色 [取随机数 (1, 2)]
外形框2.填充颜色 ＝ 颜色 [取随机数 (1, 2)]
外形框3.填充颜色 ＝ 颜色 [取随机数 (1, 2)]

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 颜色, 整数型, , "2"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 颜色 ＝ { #黑色, #青绿 }<br /> 外形框1.填充颜色 ＝ 颜色 [取随机数 (1, 2)]<br /> 外形框2.填充颜色 ＝ 颜色 [取随机数 (1, 2)]<br /> 外形框3.填充颜色 ＝ 颜色 [取随机数 (1, 2)]

xintian

论坛搜了下资料，然后写的效果

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
窗口高	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
克隆的外形框	外形框
外形框顶边	整数型
i	整数型
颜色变量	整数型		2

_启动窗口.重画 ()
颜色变量 ＝ { #黑色, #青绿 }
计次循环首 (100, i)
复制窗口组件 (外形框1, 克隆的外形框)
克隆的外形框.可视 ＝ 真
克隆的外形框.标记 ＝ 到文本 (i ＋ 1)
外形框顶边 ＝ 外形框顶边 ＋ 外形框1.顶边
克隆的外形框.移动 (, 外形框顶边 ＋ 外形框1.高度, , )
置随机数种子 ()
克隆的外形框.填充颜色 ＝ 颜色变量 [取随机数 (1, 2)]
_启动窗口.移动 (, , , 窗口高 ＋ 克隆的外形框.顶边)
处理事件 ()
计次循环尾 ()

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

窗口高 ＝ _启动窗口.高度

子程序名	返回值类型	公开	备 注
_外形框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
克隆的外形框	外形框

克隆的外形框 ＝ 取事件组件 ()
调试输出 (克隆的外形框.标记)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 窗口高, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 克隆的外形框, 外形框<br /> .局部变量 外形框顶边, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 颜色变量, 整数型, , "2"<br /> <br /> _启动窗口.重画 ()<br /> 颜色变量 ＝ { #黑色, #青绿 }<br /> .计次循环首 (100, i)<br />     复制窗口组件 (外形框1, 克隆的外形框)<br />     克隆的外形框.可视 ＝ 真<br />     克隆的外形框.标记 ＝ 到文本 (i ＋ 1)<br />     外形框顶边 ＝ 外形框顶边 ＋ 外形框1.顶边<br />     克隆的外形框.移动 (, 外形框顶边 ＋ 外形框1.高度, , )<br />     置随机数种子 ()<br />     克隆的外形框.填充颜色 ＝ 颜色变量 [取随机数 (1, 2)]<br />     _启动窗口.移动 (, , , 窗口高 ＋ 克隆的外形框.顶边)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 窗口高 ＝ _启动窗口.高度<br /> <br /> .子程序 _外形框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 克隆的外形框, 外形框<br /> <br /> 克隆的外形框 ＝ 取事件组件 ()<br /> 调试输出 (克隆的外形框.标记)

Decimal

这四句代码 难道你想0秒完成

小杰哥哥

我要的是1000行啊

小杰哥哥

Decimal 发表于 2017-2-24 19:10
这四句代码 难道你想0秒完成

外形框1.填充颜色 ＝ 颜色 [取随机数 (1, 2)]
外形框2.填充颜色 ＝ 颜色 [取随机数 (1, 2)]
外形框3.填充颜色 ＝ 颜色 [取随机数 (1, 2)]

小杰哥哥

Decimal 发表于 2017-2-24 19:10
这四句代码 难道你想0秒完成

我要一直到1000啊

Harry·

你的意思是啥？你有1000个外形框？

hanyuhang1995

难不成你有1000个外形框？添加外形框的时候把标记写上吧……然后可以用标记操作……计次循环就好……只要都有标记，别说1000，就是10000也能很快

小杰哥哥

542044389 发表于 2017-2-24 20:30
难不成你有1000个外形框？添加外形框的时候把标记写上吧……然后可以用标记操作……计次循环就好……只要都 ...

我就是不会写啊我会写我早就自己写了我的大兄弟

小杰哥哥

542044389 发表于 2017-2-24 20:30
难不成你有1000个外形框？添加外形框的时候把标记写上吧……然后可以用标记操作……计次循环就好……只要都 ...

好人做到底把代码也帮忙写下吧