易語言制作雙色球隨機選號工具的代碼

更新時間：2018年11月22日 09:53:28 作者：易語言源碼教程

今天小編就為大家分享一篇關于易語言制作雙色球隨機選號工具的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

雙色球隨機選號代碼

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

運行結果：