分享一个多线程实例

.计次循环首 (取数组成员数 (b), ii)
ca ＝ 线程_取状态 (b [ii])
.如果真 (ca ＝ 0)
列表框2.加入项目 (“线程已经结束ID：” ＋ 到文本 (b [ii]), ii)
.如果真结束
.如果真 (ca ＝ 1)
列表框2.加入项目 (“线程正在运行ID：” ＋ 到文本 (b [ii]), ii)
acc ＝ 原子_递增 (acc)
.如果真结束
.如果真 (ca ＝ -1)
列表框2.加入项目 (“线程句柄失效或销毁ID：” ＋ 到文本 (b [ii]), ii)
.如果真结束

.计次循环尾 ()
编辑框4.内容 ＝ “当前存活线程数：” ＋ 到文本 (acc) ＋ “个”