最后总是报错,找不到问题,请大神看看

a11518

1. 空间 多线程控制
   
2. var 线程句柄,运行行数,对象句柄,开启线程数量,
   
3. 
   
4. 运行行数 = 1
   
5. 线程数量 = 0
   
6. 
   
7. 功能 加法运算()
   
8.     线程.进入临界区(对象句柄)
   
9.     调试输出("线程数量 :"&线程数量)
   
10.     var a ,b,内容
    
11.     内容=表格.获得内容("表格0",运行行数,1)
    
12.     加数= 字符串.截取(内容,0,4)
    
13.     被加数=字符串.截取(内容,5,9)
    
14.     结果= 加数+被加数
    
15.     表格.设置内容("表格0",运行行数,2,结果)
    
16.     运行行数= 运行行数+1
    
17.     调试输出(结果)
    
18.     调试输出("运行行数 :"&运行行数)
    
19.     调试输出("线程数量 :"&线程数量)
    
20.     线程数量=线程数量-1
    
21.     线程.离开临界区(对象句柄)
    
22.    
    
23. 功能结束
    
24. 功能 计算开始()
    
25.     开启线程数量 = 编辑框.获得文本("编辑框0")
    
26.     循环(真)
    
27.         如果(线程数量<开启线程数量&&运行行数!=500)
    
28.             线程.开启("多线程控制.加法运算","")
    
29.             线程数量=线程数量+1
    
30.         如果结束
    
31.     循环结束
    
32.    
    
33.    
    
34. 功能结束
    
35. 功能 开始_点击()
    
36.    
    
37.     对象句柄=线程.创建临界区()
    
38.     线程.开启("多线程控制.计算开始","")
    
39.    
    
40. 功能结束
    
41. 功能 退出_点击()
    
42.    
    
43.     线程.删除临界区(对象句柄)
    
44.    
    
45.     辅助.退出()
    
46.    
    
47. 功能结束
    
48. 
    
49. 功能 初始化()

复制代码

1106752189

你思路错了   可以加法运算里加个判断  或算出计算全部要的线程数量

a11518

这个东西在任务管理器里面看 线程数的确是对的 但是运行到最后老是报14行报错,

menglovelili

我还没有细学临界区知识,但是你写的开启线程,我有点不懂,给你个开启线程的忠告,开启线程,退出时,要关闭线程,不然会留存在内存里继续执行.所以问题来了,你如何关闭已经开启的线程.
另外"如果(线程数量<开启线程数量&&运行行数!=500)"如果你填写的"开启线程数量",如果我写的是499,501呢?如果是999呢?
我只能想到这么多.

2645572175