.版本 2 .支持库 EThread .支持库 spec .程序集 窗口程序集1 .程序集变量 文本数组, 文本型, , "0" .程序集变量 许可, 整数型 .子程序 _按钮1_被单击 .局部变量 i, 整数型 .局部变量 变量, 文本型 ' 本源码来自三叶资源网(www.sanye.cx) 许可 ＝ 创建进入许可证 () .计次循环首 (100, i) 变量 ＝ 到文本 (i) ' 变量是文本型哦 启动线程 (&Thread1, 取变量数据地址 (变量)) 延迟 (2) ' 为了不出乱码 .计次循环尾 () 删除进入许可证 (许可) .子程序 Thread .参数 序号, 整数型 进入许可区 (许可) ' 本源码来自三叶资源网(www.sanye.cx) 调试输出 (文本数组 [序号]) 退出许可区 (许可) ' 数组间接传递 .子程序 Thread1 .参数 文本, 文本型 进入许可区 (许可) 调试输出 (文本) 退出许可区 (许可) ' 变量直接传递 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮2_被单击 .局部变量 i, 整数型 许可 ＝ 创建进入许可证 () ' 本源码来自三叶资源网(www.sanye.cx) .计次循环首 (100, i) 加入成员 (文本数组, 到文本 (i)) 延时 (1) ' 保持有效时间范围 启动线程 (&Thread, i) .计次循环尾 ()