.版本 2.支持庫 iext.程序集 窗口程序集1.程序集變量 總線程id, 整數(shù)型.程序集變量 線程判斷數(shù)量, 整數(shù)型.程序集變量 線程總數(shù), 整數(shù)型.程序集變量 線程id, 整數(shù)型.程序集變量 當前表項, 整數(shù)型.程序集變量 許可證, 整數(shù)型.子程序 __啟動窗口_創(chuàng)建完畢.局部變量 i1, 整數(shù)型.計次循環(huán)首 (10000, i1)  置隨機數(shù)種子 ()  超級列表框1.插入表項 (, , , , , )  超級列表框1.置標題 (i1 － 1, 0, 到文本 (取隨機數(shù) (1, 99)))  超級列表框1.置標題 (i1 － 1, 1, 多項選擇 (取隨機數(shù) (1, 4), “加”, “減”, “乘”, “除”))  超級列表框1.置標題 (i1 － 1, 2, 到文本 (取隨機數(shù) (1, 99))).計次循環(huán)尾 ().子程序 _按鈕_啟動_被單擊總線程id ＝ 線程_啟動 (&子程序_計算, , ).子程序 子程序_計算.局部變量 表項引索, 整數(shù)型.判斷循環(huán)首 (線程判斷數(shù)量 ＜ 超級列表框1.取表項數(shù) ())  .如果真 (線程總數(shù) ＜ 到整數(shù) (編輯框_總線程數(shù).內(nèi)容))    線程判斷數(shù)量 ＝ 線程判斷數(shù)量 ＋ 1    線程id ＝ 線程_啟動 (&子程序_結(jié)果)    超級列表框1.置標題 (表項引索, 3, “計算中”)    表項引索 ＝ 表項引索 ＋ 1    線程總數(shù) ＝ 線程總數(shù) ＋ 1  .如果真結(jié)束.判斷循環(huán)尾 ().子程序 子程序_結(jié)果.局部變量 數(shù)值1, 雙精度小數(shù)型.局部變量 數(shù)值2, 雙精度小數(shù)型.局部變量 計算符號, 文本型.局部變量 結(jié)果, 雙精度小數(shù)型.局部變量 i, 整數(shù)型當前表項 ＝ 當前表項 ＋ 1i ＝ 當前表項 － 1數(shù)值1 ＝ 到數(shù)值 (超級列表框1.取標題 (i, 0))數(shù)值2 ＝ 到數(shù)值 (超級列表框1.取標題 (i, 2))計算符號 ＝ 超級列表框1.取標題 (i, 1).如果真 (計算符號 ＝ “加”)  結(jié)果 ＝ 數(shù)值1 ＋ 數(shù)值2.如果真結(jié)束.如果真 (計算符號 ＝ “減”)  結(jié)果 ＝ 數(shù)值1 － 數(shù)值2.如果真結(jié)束.如果真 (計算符號 ＝ “乘”)  結(jié)果 ＝ 數(shù)值1 × 數(shù)值2.如果真結(jié)束.如果真 (計算符號 ＝ “除”)  結(jié)果 ＝ 數(shù)值1 ÷ 數(shù)值2.如果真結(jié)束程序_延時 (1, 1)超級列表框1.置標題 (i, 3, 到文本 (結(jié)果))程序_延時 (1, 1)線程總數(shù) ＝ 線程總數(shù) － 1.子程序 _按鈕_銷毀_被單擊線程_銷毀 (總線程id).子程序 _按鈕_暫停_被單擊線程_掛起 (總線程id).子程序 _按鈕_恢復(fù)_被單擊線程_恢復(fù) (總線程id).子程序 __啟動窗口_將被銷毀線程_銷毀 (總線程id)