.版本 2 .程序集 程序集1 .程序集变量 main_fiber, 整数型 .程序集变量 fiber_context, 整数型, , "10" .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 i, 整数型 main_fiber ＝ ConvertThreadToFiber (0) .计次循环首 (10, i) fiber_context [i] ＝ CreateFiber (0, &fiberProc, i) .如果真 (fiber_context [i] ≠ 0) 标准输出 (, “Fiber ” ＋ 到文本 (i) ＋ “ created” ＋ #换行符) .如果真结束 .计次循环尾 () .计次循环首 (10, i) .如果真 (fiber_context [i] ≠ 0) SwitchToFiber (fiber_context [i]) .如果真结束 .计次循环尾 () 标准输出 (, “Over” ＋ #换行符) 标准输入 () 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 fiberProc .参数 lpParameter, 整数型 标准输出 (, “Hello from fiber ” ＋ 到文本 (lpParameter) ＋ #换行符) SwitchToFiber (main_fiber)