欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時間:2018年11月22日 09:53:28   作者:易語言源碼教程  
今天小編就為大家分享一篇關于易語言制作雙色球隨機選號工具的代碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

雙色球隨機選號代碼

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

運行結果:

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對腳本之家的支持。如果你想了解更多相關內容請查看下面相關鏈接

相關文章

  • 易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    今天小編就為大家分享一篇關于易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言打開與關閉輸入法的代碼示例

    易語言打開與關閉輸入法的代碼示例

    今天小編就為大家分享一篇關于易語言打開與關閉輸入法的代碼示例,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-12-12
  • 易語言數組排序命令使用講解

    易語言數組排序命令使用講解

    今天小編就為大家分享一篇關于易語言數組排序命令使用講解,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言檢測程序是不是在虛擬機中運行的代碼

    易語言檢測程序是不是在虛擬機中運行的代碼

    今天小編就為大家分享一篇關于易語言檢測程序是不是在虛擬機中運行的代碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 將易程序轉換為另一個語言版本的方法

    將易程序轉換為另一個語言版本的方法

    今天小編就為大家分享一篇關于將易程序轉換為另一個語言版本的方法,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-10-10
  • 易語言如何安裝?易語言安裝步驟

    易語言如何安裝?易語言安裝步驟

    我們在本文里教給大家關于如何安裝易語言的教程內容,是大家學習易語言的第一步,參考下吧。
    2018-12-12
  • 易語言輸入字比較方法

    易語言輸入字比較方法

    在本篇文章里我們給大家分享了一篇關于易語言輸入字比較方法內容,有需要的朋友們學習下。
    2019-01-01
  • 關于學習易語言的方向和心得

    關于學習易語言的方向和心得

    我們在本篇內容中給大家整理了關于學習易語言的方向和心得,指點了易語言的方向內容,需要的參考下。
    2018-12-12
  • 易語言選擇一段刻度并且顯示出來的方法

    易語言選擇一段刻度并且顯示出來的方法

    今天小編就為大家分享一篇關于易語言選擇一段刻度并且顯示出來的方法,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言制作大王派我來巡山小程序

    易語言制作大王派我來巡山小程序

    今天小編就為大家分享一篇關于易語言制作大王派我來巡山小程序,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
    2018-11-11

最新評論