2224848 发表于 2025-7-24 13:21
是不是可以结下帖了

int = 最小 (执行数量 - 投递计次, 可用线程)
最小这个地方报错是啥情况大佬

2368286129 发表于 2025-7-24 12:51
感谢大佬

是不是可以结下帖了

2224848 发表于 2025-7-23 19:21
[e=1]创建状态 = 线程池.创建(线程数，线程数，，真，)
如果真(取反(创建状态))
    信息框("线程创建失败 ...

感谢大佬

  

创建状态 = 线程池.创建 (线程数，线程数，，真，)
如果真 (取反 (创建状态))
信息框 ("线程创建失败，请重试!", 0, ,)
按钮_开始线程.标题 = "开始"
返回 ()

创建状态 = 线程池.创建(线程数，线程数，，真，)<br /> 如果真(取反(创建状态))<br />     信息框("线程创建失败，请重试!", 0, ,)<br />     按钮_开始线程.标题 = "开始"<br />     返回()

线程池销毁后未重置状态变量，可能导致重复创建冲突

改成这样会比较好

  

创建状态 = 线程池.创建 (线程数，线程数，，真，)
如果真 (取反 (创建状态))
信息框 ("线程创建失败，请重试!", 0, ,)
按钮_开始线程.标题 = "开始"
返回 ()

创建状态 = 线程池.创建(线程数，线程数，，真，)<br /> 如果真(取反(创建状态))<br />     信息框("线程创建失败，请重试!", 0, ,)<br />     按钮_开始线程.标题 = "开始"<br />     返回()

任务投递逻辑缺陷，未处理线程池被意外销毁的情况，等待任务动态超时后直接跳出，未记录错误日志，高并发下投递计次可能越界。

  

判断循环首 (投递计次 < 执行数量)
可用线程 = 线程池.取_空闲线程数 ()
如果真 (可用线程 > 0)
int = 执行数量 - 投递计次
如果真 (int > 可用线程)
int = 可用线程
计次循环首 (int, )
' 投递任务...
投递计次 = 投递计次 + 1
计次循环尾 ()
处理事件 ()
如果真 (线程池.等待任务动态 (, ) = 假)
跳出循环 ()
判断循环尾 ()

判断循环首(投递计次 < 执行数量)<br />     可用线程 = 线程池.取_空闲线程数()<br />     如果真(可用线程 > 0)<br />         int = 执行数量 - 投递计次<br />         如果真(int > 可用线程)<br />             int = 可用线程<br />         计次循环首(int, )<br />             ' 投递任务...<br />             投递计次 = 投递计次 + 1<br />         计次循环尾()<br />     处理事件()<br />     如果真(线程池.等待任务动态(, ) = 假)<br />         跳出循环()<br /> 判断循环尾()

改成这样：

  

判断循环首 (投递计次 < 执行数量 且 线程池.取_状态 () = 1)  ' 增加状态检查
可用线程 = 线程池.取_空闲线程数 ()
如果真 (可用线程 > 0)
int = 最小 (执行数量 - 投递计次, 可用线程)
计次循环首 (int, )
如果 (线程池.取_状态 () ≠ 1)  ' 投递前再次检查
编辑框_运行日志.加入文本 ("线程池异常终止" + #换行符 )
跳出循环 ()
线程池.投递任务 (...)
投递计次 = 投递计次 + 1

计次循环尾 ()

如果真 (线程池.等待任务动态 (500, ) = 假)  ' 增加超时时间
编辑框_运行日志.加入文本 ("任务投递超时，剩余" + 到文本 (执行数量 - 投递计次) + "个任务未执行" + #换行符 )

判断循环尾 ()

.判断循环首 (投递计次 < 执行数量 且 线程池.取_状态() = 1)  ' 增加状态检查<br />     可用线程 = 线程池.取_空闲线程数()<br />     .如果真 (可用线程 > 0)<br />         int = 最小(执行数量 - 投递计次, 可用线程)<br />         .计次循环首 (int, )<br />             .如果 (线程池.取_状态() ≠ 1)  ' 投递前再次检查<br />                 编辑框_运行日志.加入文本("线程池异常终止" + #换行符)<br />                 跳出循环()<br />             .否则<br />                 线程池.投递任务(...)<br />                 投递计次 = 投递计次 + 1<br />             .如果结束<br />         .计次循环尾()<br />     .如果真结束<br />     <br />     .如果真 (线程池.等待任务动态(500, ) = 假)  ' 增加超时时间<br />         编辑框_运行日志.加入文本("任务投递超时，剩余" + 到文本(执行数量 - 投递计次) + "个任务未执行" + #换行符)<br />     .如果真结束<br /> .判断循环尾()

错不是这个位置报的

数组越界了大哥- -  “1 1 1 ”  这有几个1？，你说4个就越界了  。取数组成员数 ()  判断一下

数组越界，你查一下所有引用数组的代码
贴出来的代码没看到引用数组的，自己查其他相关代码