|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 qq641235265 于 2016-8-28 02:27 编辑
如题。本人数学不太好,代码是写好,但是感觉有点累赘,有没有哪位朋友可以帮忙优化一下。
- <blockquote>功能 执行(我擦,这里怎么上不了代码)
复制代码 功能 执行()
变量 x=25,y=25,k=3,o,i,y1,x1
o=0
循环(真)
o++
i=-1
循环(真)
i++
表格设置焦点选项("表格0",y-k*o,x-k*o+k*i)
表格获取焦点选项("表格0",y1,x1)
如果(x1==x+k*o)
跳出
结束
等待(500)
结束
i=-1
循环(真)
i++
表格设置焦点选项("表格0",y-k*o+k*i,x+k*o)
表格获取焦点选项("表格0",y1,x1)
如果(y1==y+k*o)
跳出
结束
等待(500)
结束
i=-1
循环(真)
i++
表格设置焦点选项("表格0",y+k*o,x+k*o-k*i)
表格获取焦点选项("表格0",y1,x1)
如果(x1==x-k*o)
跳出
结束
等待(500)
结束
i=-1
循环(真)
i++
表格设置焦点选项("表格0",y+k*o-k*i,x-k*o)
表格获取焦点选项("表格0",y1,x1)
如果(y1==y-k*(o-1))
跳出
结束
等待(500)
结束
等待(500)
结束
结束
|
|