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