请高手帮忙优化一下程序运行速度

27005151

      我做了一个小程序，就是把四位数的10000个数字，让每一个数字前面分别加上0--9的数字，添加完以后，数字就会变成100000个数字了，程序是做出来了，可是转换的速度太慢了，电脑卡的时候要花近三十秒才可以转换完成，我看别人的程序转换都非常快的，想请各位高手帮忙解决一下，下面附上源码。


问题程序源码下载： 问题程序.zip (11.55 KB, 下载次数: 15)

2015-12-3 16:30 上传

点击文件名下载附件

阿星Star

  给个好评把

人善帝王心

  

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

变量名	类 型	静态	数组	备 注
分割所有号码	文本型		0
待转换号码	文本型
转换后的号码	文本型
计次	整数型
i	整数型

按钮_开始转换.标题 ＝ “转换中...”
待转换号码 ＝ 编辑框_待转号码.内容
转换后的号码 ＝ “”
分割所有号码 ＝ 分割文本 (待转换号码, “ ”, )
计次循环首 (取数组成员数 (分割所有号码), 计次)
如果真 (i ＝ 10)
i ＝ 0
转换后的号码 ＝ 转换后的号码 ＋ 到文本 (i) ＋ 分割所有号码 [计次] ＋ “ ”
i ＝ i ＋ 1
处理事件 ()
计次循环尾 ()
编辑框_转换后.内容 ＝ 转换后的号码
按钮_开始转换.标题 ＝ “开始转换”

.版本 2<br /> <br /> .子程序 _按钮_开始转换_被单击<br /> .局部变量 分割所有号码, 文本型, , "0"<br /> .局部变量 待转换号码, 文本型<br /> .局部变量 转换后的号码, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 按钮_开始转换.标题 ＝ “转换中...”<br /> 待转换号码 ＝ 编辑框_待转号码.内容<br /> 转换后的号码 ＝ “”<br /> 分割所有号码 ＝ 分割文本 (待转换号码, “ ”, )<br /> .计次循环首 (取数组成员数 (分割所有号码), 计次)<br />     .如果真 (i ＝ 10)<br />         i ＝ 0<br />     .如果真结束<br />     转换后的号码 ＝ 转换后的号码 ＋ 到文本 (i) ＋ 分割所有号码 [计次] ＋ “ ”<br />     i ＝ i ＋ 1<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 编辑框_转换后.内容 ＝ 转换后的号码<br /> 按钮_开始转换.标题 ＝ “开始转换”

27005151

zhang30454 发表于 2015-12-3 16:48
[e=0].版本 2

.子程序 _按钮_开始转换_被单击

你这个转换后，转换的数据不对。没有转换完。

27005151

zhang30454 发表于 2015-12-3 16:48
[e=0].版本 2

.子程序 _按钮_开始转换_被单击

转换完应该是10万个数字，你这一下子省了9万个，肯定快。

阿星Star

测试 秒转  

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
分割所有号码	文本型		0
计次	整数型
结果	快速文本对象
i	整数型

分割所有号码 ＝ 分割文本 (编辑框_待转号码.内容, “ ”, )
计次循环首 (取数组成员数 (分割所有号码), 计次)
计次循环首 (10, i)
结果.添加 (到文本 (i － 1) ＋ 分割所有号码 [计次] ＋ “ ”)
计次循环尾 ()
计次循环尾 ()
超级编辑框1.内容 ＝ 结果.取文本 (, )

i支持库列表	支持库注释
commobj	通用对象支持库
iext2	扩展界面支持库二

.版本 2<br /> .支持库 commobj<br /> .支持库 iext2<br /> <br /> .子程序 子程序1<br /> .局部变量 分割所有号码, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 结果, 快速文本对象<br /> .局部变量 i, 整数型<br /> <br /> 分割所有号码 ＝ 分割文本 (编辑框_待转号码.内容, “ ”, )<br /> .计次循环首 (取数组成员数 (分割所有号码), 计次)<br />     .计次循环首 (10, i)<br />         结果.添加 (到文本 (i － 1) ＋ 分割所有号码 [计次] ＋ “ ”)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 超级编辑框1.内容 ＝ 结果.取文本 (, )

第二个编辑框 用的是超级编辑框