.版本 2.程序集 窗口程序集1.子程序 _隨機(jī)選號按鈕_被單擊.局部變量 z, 邏輯型.局部變量 隨機(jī)號隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 33).如果 (隨機(jī)號 ＜ 10) 紅球編輯框1.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號).否則 紅球編輯框1.內(nèi)容 ＝ 到文本 (隨機(jī)號) z ＝ 假.如果結(jié)束.循環(huán)判斷首 () 隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 33) .如果 (隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框1.內(nèi)容))  z ＝ 真 .否則  .如果 (隨機(jī)號 ＜ 10)   紅球編輯框2.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號)  .否則   紅球編輯框2.內(nèi)容 ＝ 到文本 (隨機(jī)號)   z ＝ 假  .如果結(jié)束 .如果結(jié)束.循環(huán)判斷尾 (z).循環(huán)判斷首 () 隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 33) .如果 (隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框1.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框2.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框4.內(nèi)容))  z ＝ 真 .否則  .如果 (隨機(jī)號 ＜ 10)   紅球編輯框3.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號)  .否則   紅球編輯框3.內(nèi)容 ＝ 到文本 (隨機(jī)號)   z ＝ 假  .如果結(jié)束 .如果結(jié)束.循環(huán)判斷尾 (z).循環(huán)判斷首 () 隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 33) .如果 (隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框1.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框2.內(nèi)容))  z ＝ 真 .否則  .如果 (隨機(jī)號 ＜ 10)   紅球編輯框4.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號)  .否則   紅球編輯框4.內(nèi)容 ＝ 到文本 (隨機(jī)號)   z ＝ 假  .如果結(jié)束 .如果結(jié)束.循環(huán)判斷尾 (z).循環(huán)判斷首 () 隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 33) .如果 (隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框1.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框2.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框4.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框3.內(nèi)容))  z ＝ 真 .否則  .如果 (隨機(jī)號 ＜ 10)   紅球編輯框5.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號)  .否則   紅球編輯框5.內(nèi)容 ＝ 到文本 (隨機(jī)號)   z ＝ 假  .如果結(jié)束 .如果結(jié)束.循環(huán)判斷尾 (z).循環(huán)判斷首 () 隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 33) .如果 (隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框1.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框2.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框4.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框3.內(nèi)容) 或 隨機(jī)號 ＝ 到數(shù)值 (紅球編輯框5.內(nèi)容))  z ＝ 真 .否則  .如果 (隨機(jī)號 ＜ 10)   紅球編輯框6.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號)  .否則   紅球編輯框6.內(nèi)容 ＝ 到文本 (隨機(jī)號)   z ＝ 假  .如果結(jié)束 .如果結(jié)束.循環(huán)判斷尾 (z)隨機(jī)號 ＝ 取隨機(jī)數(shù) (1, 16).如果 (隨機(jī)號 ＜ 10) 藍(lán)球編輯框.內(nèi)容 ＝ “0” ＋ 到文本 (隨機(jī)號).否則 藍(lán)球編輯框.內(nèi)容 ＝ 到文本 (隨機(jī)號) z ＝ 假.如果結(jié)束