你把编辑框里面的内容清空了就没问题 或者还没复制完的时候别执行内容改变子程序里面的源码还有一个就是

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
copy	逻辑型
顶边	整数型

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

顶边 ＝ 52

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

子程序名	返回值类型	公开	备 注
_复制组件

变量名	类 型	静态	数组	备 注
局_编辑框	编辑框

copy ＝ 真
复制窗口组件 (编辑框, 局_编辑框)
局_编辑框.可视 ＝ 真
局_编辑框.顶边 ＝ 顶边
顶边 ＝ 顶边 ＋ 30
copy ＝ 假

子程序名	返回值类型	公开	备 注
_编辑框_内容被改变

变量名	类 型	静态	数组	备 注
局_编辑框	编辑框

如果真 (copy)
返回 ()
局_编辑框 ＝ 取事件组件 ()
如果真 (到整数 (局_编辑框.内容) ＜ 1)
局_编辑框.内容 ＝ “1”

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

_复制组件 ()

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

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

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 copy, 逻辑型<br /> .程序集变量 顶边, 整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 顶边 ＝ 52<br /> <br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> <br /> <br /> .子程序 _复制组件<br /> .局部变量 局_编辑框, 编辑框<br /> <br /> copy ＝ 真<br /> 复制窗口组件 (编辑框, 局_编辑框)<br /> 局_编辑框.可视 ＝ 真<br /> 局_编辑框.顶边 ＝ 顶边<br /> 顶边 ＝ 顶边 ＋ 30<br /> copy ＝ 假<br /> <br /> <br /> .子程序 _编辑框_内容被改变<br /> .局部变量 局_编辑框, 编辑框<br /> <br /> .如果真 (copy)<br />     返回 ()<br /> .如果真结束<br /> 局_编辑框 ＝ 取事件组件 ()<br /> .如果真 (到整数 (局_编辑框.内容) ＜ 1)<br />     局_编辑框.内容 ＝ “1”<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> _复制组件 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> <br /> <br /> .子程序 _按钮3_被单击

确实很神奇，取事件组件（），这个函数是真的有用，学习了