|
发表于 2011-11-9 21:40:31
|
显示全部楼层
江苏省苏州市
死办法,我自己看着都蛋疼得写法- .版本 2
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 x坐标, 整数型
- .局部变量 y坐标, 整数型
- .局部变量 临时_坐标, 精易_坐标
- .局部变量 局部_坐标, 精易_坐标, , "0"
- .局部变量 局部_移动, 精易_坐标, , "0"
- .局部变量 i, 整数型
- .局部变量 随机数, 整数型
- ' 将组件坐标列入数组
- 临时_坐标.横 = 标签1.左边
- 临时_坐标.纵 = 标签1.顶边
- 加入成员 (局部_坐标, 临时_坐标)
- 临时_坐标.横 = 标签2.左边
- 临时_坐标.纵 = 标签2.顶边
- 加入成员 (局部_坐标, 临时_坐标)
- 临时_坐标.横 = 标签3.左边
- 临时_坐标.纵 = 标签3.顶边
- 加入成员 (局部_坐标, 临时_坐标)
- 临时_坐标.横 = 标签4.左边
- 临时_坐标.纵 = 标签4.顶边
- 加入成员 (局部_坐标, 临时_坐标)
- 临时_坐标.横 = 标签5.左边
- 临时_坐标.纵 = 标签5.顶边
- 加入成员 (局部_坐标, 临时_坐标)
- 临时_坐标.横 = 标签6.左边
- 临时_坐标.纵 = 标签6.顶边
- 加入成员 (局部_坐标, 临时_坐标)
- ' 开始移动
- 复制数组 (局部_移动, 局部_坐标)
- 置随机数种子 ()
- .计次循环首 (取数组成员数 (局部_移动), i)
- 随机数 = 取随机数 (1, 取数组成员数 (局部_移动))
- .判断开始 (i = 1)
- 标签1.左边 = 局部_移动 [随机数].横
- 标签1.顶边 = 局部_移动 [随机数].纵
- .判断 (i = 2)
- 标签2.左边 = 局部_移动 [随机数].横
- 标签2.顶边 = 局部_移动 [随机数].纵
- .判断 (i = 3)
- 标签3.左边 = 局部_移动 [随机数].横
- 标签3.顶边 = 局部_移动 [随机数].纵
- .判断 (i = 4)
- 标签4.左边 = 局部_移动 [随机数].横
- 标签4.顶边 = 局部_移动 [随机数].纵
- .判断 (i = 5)
- 标签5.左边 = 局部_移动 [随机数].横
- 标签5.顶边 = 局部_移动 [随机数].纵
- .判断 (i = 6)
- 标签6.左边 = 局部_移动 [随机数].横
- 标签6.顶边 = 局部_移动 [随机数].纵
- .默认
- .判断结束
- 删除成员 (局部_移动, 随机数, 1)
- .计次循环尾 ()
复制代码 |
|