易語(yǔ)言制作雙色球隨機(jī)選號(hào)工具的代碼

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

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

雙色球隨機(jī)選號(hào)代碼

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

運(yùn)行結(jié)果：