提高速度

大汉子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
平均值	整数型
数量	整数型
浮动范围	整数型
结果数组	整数型		0
i	整数型
输出文本	文本型

平均值 ＝ 35000
数量 ＝ 5000
浮动范围 ＝ 5000
判断循环首 (取数组成员数 (结果数组) ≠ 数量)  ' 确保最终得到正确数量的数字
生成随机数数组 (平均值, 数量, 浮动范围, 结果数组)
判断循环尾 ()
输出文本 ＝ “”
计次循环首 (取数组成员数 (结果数组), i)
输出文本 ＝ 输出文本 ＋ 到文本 (结果数组 [i]) ＋ “,”
计次循环尾 ()
输出文本 ＝ 取文本左边 (输出文本, 取文本长度 (输出文本) － 1)
编辑框1.内容 ＝ 输出文本
输出调试文本 (“平均值：” ＋ 到文本 (数组求和 (结果数组) ÷ 数量))  ' 显示实际平均值验证

子程序名	返回值类型	公开	备 注
生成随机数数组	逻辑型
参数名	类 型	参考	可空	数组	备 注
平均值	整数型
数量	整数型
浮动范围	整数型
返回数组	整数型

变量名	类 型	静态	数组	备 注
最小值	整数型
最大值	整数型
剩余数	整数型
i	整数型
随机数	整数型

最小值 ＝ 平均值 － 浮动范围  ' 300
最大值 ＝ 平均值 ＋ 浮动范围  ' 400
清除数组 (返回数组)
' 先生成前n-1个随机数
计次循环首 (数量 － 1, i)
判断循环首 (真)
随机数 ＝ 取随机数 (最小值, 最大值)
如果 (数组查找 (返回数组, 随机数) ＝ -1)
加入成员 (返回数组, 随机数)
跳出循环 ()



判断循环尾 ()
计次循环尾 ()
' 计算最后一个数
剩余数 ＝ 平均值 × 数量 － 数组求和 (返回数组)
如果 (剩余数 ≥ 最小值 且 剩余数 ≤ 最大值 且 数组查找 (返回数组, 剩余数) ＝ -1)
加入成员 (返回数组, 剩余数)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
数组求和	整数型
参数名	类 型	参考	可空	数组	备 注
数组	整数型

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

和 ＝ 0
计次循环首 (取数组成员数 (数组), i)
和 ＝ 和 ＋ 数组 [i]
计次循环尾 ()
返回 (和)

子程序名	返回值类型	公开	备 注
数组查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	整数型
查找值	整数型

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

计次循环首 (取数组成员数 (数组), i)
如果 (数组 [i] ＝ 查找值)
返回 (i)



计次循环尾 ()
返回 (-1)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 平均值, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 浮动范围, 整数型<br /> .局部变量 结果数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 输出文本, 文本型<br /> <br /> 平均值 ＝ 35000<br /> 数量 ＝ 5000<br /> 浮动范围 ＝ 5000<br /> <br /> .判断循环首 (取数组成员数 (结果数组) ≠ 数量)  ' 确保最终得到正确数量的数字<br />     生成随机数数组 (平均值, 数量, 浮动范围, 结果数组)<br /> .判断循环尾 ()<br /> <br /> 输出文本 ＝ “”<br /> .计次循环首 (取数组成员数 (结果数组), i)<br />     输出文本 ＝ 输出文本 ＋ 到文本 (结果数组 <i>) ＋ “,”<br /> .计次循环尾 ()<br /> 输出文本 ＝ 取文本左边 (输出文本, 取文本长度 (输出文本) － 1)<br /> <br /> 编辑框1.内容 ＝ 输出文本<br /> 输出调试文本 (“平均值：” ＋ 到文本 (数组求和 (结果数组) ÷ 数量))  ' 显示实际平均值验证<br /> <br /> .子程序 生成随机数数组, 逻辑型, 公开<br /> .参数 平均值, 整数型<br /> .参数 数量, 整数型<br /> .参数 浮动范围, 整数型<br /> .参数 返回数组, 整数型, 参考 数组<br /> .局部变量 最小值, 整数型<br /> .局部变量 最大值, 整数型<br /> .局部变量 剩余数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> 最小值 ＝ 平均值 － 浮动范围  ' 300<br /> 最大值 ＝ 平均值 ＋ 浮动范围  ' 400<br /> 清除数组 (返回数组)<br /> <br /> ' 先生成前n-1个随机数<br /> .计次循环首 (数量 － 1, i)<br />     .判断循环首 (真)<br />         随机数 ＝ 取随机数 (最小值, 最大值)<br />         .如果 (数组查找 (返回数组, 随机数) ＝ -1)<br />             加入成员 (返回数组, 随机数)<br />             跳出循环 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> <br /> ' 计算最后一个数<br /> 剩余数 ＝ 平均值 × 数量 － 数组求和 (返回数组)<br /> <br /> .如果 (剩余数 ≥ 最小值 且 剩余数 ≤ 最大值 且 数组查找 (返回数组, 剩余数) ＝ -1)<br />     加入成员 (返回数组, 剩余数)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 数组求和, 整数型<br /> .参数 数组, 整数型, 数组<br /> .局部变量 和, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 和 ＝ 0<br /> .计次循环首 (取数组成员数 (数组), i)<br />     和 ＝ 和 ＋ 数组 <i><br /> .计次循环尾 ()<br /> <br /> 返回 (和)<br /> <br /> .子程序 数组查找, 整数型<br /> .参数 数组, 整数型, 数组<br /> .参数 查找值, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果 (数组 <i> ＝ 查找值)<br />         返回 (i)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (-1)

生成500个数据可以，5000个就卡死了，各位大佬有什么好办法吗。

731213189

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

线程_启动 (&子程序1, , )

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

变量名	类 型	静态	数组	备 注
平均值	整数型
数量	整数型
浮动范围	整数型
结果数组	整数型		0
i	整数型
输出文本	文本型
a	整数型

平均值 ＝ 35000
数量 ＝ 10000
浮动范围 ＝ 5000
判断循环首 (取数组成员数 (结果数组) ≠ 数量)  ' 确保最终得到正确数量的数字
生成随机数数组 (平均值, 数量, 浮动范围, 结果数组)
输出调试文本 (取数组成员数 (结果数组))
判断循环尾 ()
输出文本 ＝ “”
计次循环首 (取数组成员数 (结果数组), i)
输出文本 ＝ 输出文本 ＋ 到文本 (结果数组 [i]) ＋ “,”
计次循环尾 ()
输出文本 ＝ 取文本左边 (输出文本, 取文本长度 (输出文本) － 1)
编辑框1.内容 ＝ 输出文本
输出调试文本 (“平均值：” ＋ 到文本 (数组求和 (结果数组) ÷ 数量))  ' 显示实际平均值验证

子程序名	返回值类型	公开	备 注
生成随机数数组	逻辑型
参数名	类 型	参考	可空	数组	备 注
平均值	整数型
数量	整数型
浮动范围	整数型
返回数组	整数型

变量名	类 型	静态	数组	备 注
最小值	整数型
最大值	整数型
剩余数	整数型
i	整数型
随机数	整数型

最小值 ＝ 平均值 － 浮动范围  ' 300
最大值 ＝ 平均值 ＋ 浮动范围  ' 400
清除数组 (返回数组)
' 先生成前n-1个随机数
计次循环首 (数量, i)
判断循环首 (真)
随机数 ＝ 取随机数 (最小值, 最大值)
如果 (数组查找 (返回数组, 随机数) ＝ -1)
加入成员 (返回数组, 随机数)
跳出循环 ()



判断循环尾 ()
计次循环尾 ()
' 计算最后一个数
剩余数 ＝ 平均值 × 数量 － 数组求和 (返回数组)
如果 (剩余数 ≥ 最小值 且 剩余数 ≤ 最大值 且 数组查找 (返回数组, 剩余数) ＝ -1)
加入成员 (返回数组, 剩余数)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
数组求和	整数型
参数名	类 型	参考	可空	数组	备 注
数组	整数型

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

和 ＝ 0
计次循环首 (取数组成员数 (数组), i)
和 ＝ 和 ＋ 数组 [i]
计次循环尾 ()
返回 (和)

子程序名	返回值类型	公开	备 注
数组查找	整数型
参数名	类 型	参考	可空	数组	备 注
数组	整数型
查找值	整数型

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

计次循环首 (取数组成员数 (数组), i)
如果 (数组 [i] ＝ 查找值)
返回 (i)



计次循环尾 ()
返回 (-1)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 线程_启动 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 平均值, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 浮动范围, 整数型<br /> .局部变量 结果数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 输出文本, 文本型<br /> .局部变量 a, 整数型<br /> <br /> 平均值 ＝ 35000<br /> 数量 ＝ 10000<br /> 浮动范围 ＝ 5000<br /> <br /> .判断循环首 (取数组成员数 (结果数组) ≠ 数量)  ' 确保最终得到正确数量的数字<br />     生成随机数数组 (平均值, 数量, 浮动范围, 结果数组)<br />     输出调试文本 (取数组成员数 (结果数组))<br /> .判断循环尾 ()<br /> <br /> 输出文本 ＝ “”<br /> .计次循环首 (取数组成员数 (结果数组), i)<br />     输出文本 ＝ 输出文本 ＋ 到文本 (结果数组 <i>) ＋ “,”<br /> .计次循环尾 ()<br /> 输出文本 ＝ 取文本左边 (输出文本, 取文本长度 (输出文本) － 1)<br /> <br /> 编辑框1.内容 ＝ 输出文本<br /> 输出调试文本 (“平均值：” ＋ 到文本 (数组求和 (结果数组) ÷ 数量))  ' 显示实际平均值验证<br /> <br /> <br /> .子程序 生成随机数数组, 逻辑型, 公开<br /> .参数 平均值, 整数型<br /> .参数 数量, 整数型<br /> .参数 浮动范围, 整数型<br /> .参数 返回数组, 整数型, 参考 数组<br /> .局部变量 最小值, 整数型<br /> .局部变量 最大值, 整数型<br /> .局部变量 剩余数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> 最小值 ＝ 平均值 － 浮动范围  ' 300<br /> 最大值 ＝ 平均值 ＋ 浮动范围  ' 400<br /> 清除数组 (返回数组)<br /> <br /> ' 先生成前n-1个随机数<br /> .计次循环首 (数量, i)<br />     .判断循环首 (真)<br />         随机数 ＝ 取随机数 (最小值, 最大值)<br />         .如果 (数组查找 (返回数组, 随机数) ＝ -1)<br />             加入成员 (返回数组, 随机数)<br />             跳出循环 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> <br /> ' 计算最后一个数<br /> 剩余数 ＝ 平均值 × 数量 － 数组求和 (返回数组)<br /> <br /> .如果 (剩余数 ≥ 最小值 且 剩余数 ≤ 最大值 且 数组查找 (返回数组, 剩余数) ＝ -1)<br />     加入成员 (返回数组, 剩余数)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 数组求和, 整数型<br /> .参数 数组, 整数型, 数组<br /> .局部变量 和, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 和 ＝ 0<br /> .计次循环首 (取数组成员数 (数组), i)<br />     和 ＝ 和 ＋ 数组 <i><br /> .计次循环尾 ()<br /> <br /> 返回 (和)<br /> <br /> .子程序 数组查找, 整数型<br /> .参数 数组, 整数型, 数组<br /> .参数 查找值, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果 (数组 <i> ＝ 查找值)<br />         返回 (i)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (-1)

补充内容 (2025-7-29 17:43):
不懂可以看下面签名

731213189

不是卡死,而是一个线程太慢,多开几个线程就可以了