线程启动传数组，文本型数组

.子程序 我是要启动的线程
.参数 一个参数, 整数型
.局部变量 参数数组, 文本型, , "0"
.局部变量 数量, 整数型

数量 ＝ 把我放在需要启动的线程头部 (一个参数, 参数数组)
置随机数种子 ()
延时 (取随机数 (1000, 数量 × 1000))
调试输出 (一个参数, 数量, 参数数组, “线程结束”)