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

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

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

雙色球隨機選號代碼

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

運行結(jié)果：