易語言雙色球源碼

『壹』 求易語言編程高手

我知道啊，你問問我同學，他是學這個的

『貳』 我想作一個雙色球計算軟體，只會公式不會寫，誰能用易語言幫我寫

樓主提供公式，計算編寫倒不是很難。

『叄』 易語言如何實現數字隨機變化、誰給下源碼、

.版本 2.程序集 窗口程序集1.子程序 _按鈕1_被單擊
.局部變數 紅球, 整數型, , "0"
.局部變數 籃球, 整數型, , "16"
.局部變數 c, 整數型, , "0"
.局部變數 i, 整數型
.局部變數 q, 整數型
.局部變數 w, 整數型
.局部變數 出球, 整數型
.局部變數 結果, 整數型
.局部變數 次數, 整數型編輯框1.內容 ＝ 「」
.計次循環首 (33, i)
加入成員 (紅球, i)
.計次循環尾 ()
置隨機數種子 ()
.計次循環首 (6, w)
q ＝ 取數組成員數 (紅球)
置隨機數種子 (取隨機數 (0, 1e+014))
出球 ＝ 取隨機數 (1, q)
輸出調試文本 (出球)
結果 ＝ 紅球 [出球]
' 數組排序 (紅球, )
刪除成員 (紅球, 出球, )
加入成員 (c, 結果)
數組排序 (c, 真).計次循環尾 ()
.計次循環首 (6, w)
編輯框1.內容 ＝ 編輯框1.內容 ＋ 到文本 (c [w]) ＋ 「,」
.計次循環尾 ()
編輯框2.內容 ＝ 到文本 (取隨機數 (1, 16)).子程序 _標簽3_反饋事件, 整數型
.參數 參數一, 整數型
.參數 參數二, 整數型
這是我寫的雙色球隨機取值，你自己參考著捉摸吧

『肆』 易語言雙色球

事先聲明，我只是一個新手，看了幾個視頻教程以後不知道該寫什麼，然後想嘗試你說這個，可是有很多問題，

出現了很多問題，以我現在的本事無法解釋。

1:在超級列表框2里，序號1里03和05出現了4次是對的，可是序號12里，03和06隻有8次，為什麼是9.我也不知道

2：刪除重復，刪不掉第一項，我想加在找號下，可是，刪不幹凈，無論我計次循環多少

3：看見源碼，你就知道我是什麼樣的新手了

4發現錯誤的兄弟麻煩告訴我下是那裡錯了

5剛才發現LZ有開獎日期，我沒加，（實在是沒耐性了）

.版本 2
.支持庫 iext

.子程序 _按鈕1_被單擊
.局部變數 第幾個, 整數型
.局部變數 臨時數字變數, 整數型
.局部變數 臨時次數變數, 雙精度小數型
.局部變數 找次數, 整數型
.局部變數 第幾排, 整數型
.局部變數 概率, 雙精度小數型
.局部變數 表項索引, 整數型
.局部變數 查找, 文本型
.局部變數 下一個次數變數, 整數型
.局部變數 下一個數找次數, 整數型
.局部變數 莫名其妙的變數, 文本型
.局部變數 莫名其妙的變數1, 文本型
.局部變數 a, 整數型
.局部變數 概率2, 整數型

超級列表框2.全部刪除 ()
查找 ＝ 編輯框1.內容
.計次循環首 (7, 第幾排)
.計次循環首 (超級列表框1.取表項數 (), 第幾個)
臨時次數變數 ＝ 0
.計次循環首 (超級列表框1.取表項數 (), 找次數)
.如果真 (查找 ＝ 超級列表框1.取標題 (找次數 － 1, 第幾排))
臨時次數變數 ＝ 臨時次數變數 ＋ 1
.如果真結束

.計次循環尾 ()
.如果真 (查找 ＝ 超級列表框1.取標題 (第幾個 － 1, 第幾排))
表項索引 ＝ 超級列表框2.插入表項 (, , , , , )
超級列表框2.置標題 (表項索引, 0, 到文本 (超級列表框2.取表項數 ()))
.如果 (第幾排 ＝ 7)
超級列表框2.置標題 (表項索引, 2, 「藍色球」)
.否則
.判斷開始 (第幾排 ＝ 1)
超級列表框2.置標題 (表項索引, 2, 「紅色球一」)
.判斷 (第幾排 ＝ 2)
超級列表框2.置標題 (表項索引, 2, 「紅色球二」)
.判斷 (第幾排 ＝ 3)
超級列表框2.置標題 (表項索引, 2, 「紅色球三」)
.判斷 (第幾排 ＝ 4)
超級列表框2.置標題 (表項索引, 2, 「紅色球四」)
.判斷 (第幾排 ＝ 5)
超級列表框2.置標題 (表項索引, 2, 「紅色球五」)
.判斷 (第幾排 ＝ 6)
超級列表框2.置標題 (表項索引, 2, 「紅色球六」)
.默認

.判斷結束

.如果結束
超級列表框2.置標題 (表項索引, 1, 查找)
超級列表框2.置標題 (表項索引, 3, 到文本 (臨時次數變數))
概率 ＝ 臨時次數變數 ÷ 超級列表框1.取表項數 () × 100
超級列表框2.置標題 (表項索引, 4, 到文本 (四捨五入 (概率, 1)) ＋ 「%」)
.如果 (超級列表框1.取標題 (第幾個 － 1, 第幾排 ＋ 1) ＝ 「」)
超級列表框2.置標題 (表項索引, 5, 「沒有了」)
.否則
超級列表框2.置標題 (表項索引, 5, 到文本 (超級列表框1.取標題 (第幾個 － 1, 第幾排 ＋ 1)))
.如果結束

.如果 (第幾排 ＝ 7)
超級列表框2.置標題 (表項索引, 6, 「沒有了」)
.否則
.判斷開始 (第幾排 ＝ 1)
超級列表框2.置標題 (表項索引, 6, 「紅色球二」)
.判斷 (第幾排 ＝ 2)
超級列表框2.置標題 (表項索引, 6, 「紅色球三」)
.判斷 (第幾排 ＝ 3)
超級列表框2.置標題 (表項索引, 6, 「紅色球四」)
.判斷 (第幾排 ＝ 4)
超級列表框2.置標題 (表項索引, 6, 「紅色球五」)
.判斷 (第幾排 ＝ 5)
超級列表框2.置標題 (表項索引, 6, 「紅色球六」)
.判斷 (第幾排 ＝ 6)
超級列表框2.置標題 (表項索引, 6, 「藍色球」)
.默認

.判斷結束

.如果結束

.如果真結束

.計次循環尾 ()
.計次循環尾 ()
.計次循環首 (超級列表框2.取表項數 (), )

.計次循環首 (超級列表框2.取表項數 (), 下一個數找次數)
.如果 (超級列表框2.取標題 (下一個數找次數 － 1, 5) ＝ 「沒有了」)
超級列表框2.置標題 (下一個數找次數 － 1, 7, 「沒有了」)
.否則
下一個次數變數 ＝ 1
.計次循環首 (超級列表框2.取表項數 (), a)
.如果 (超級列表框2.取標題 (下一個數找次數 － 1, 5) ＝ 超級列表框2.取標題 (a, 5))
下一個次數變數 ＝ 下一個次數變數 ＋ 1
.否則

.如果結束

.計次循環尾 ()
超級列表框2.置標題 (下一個數找次數 － 1, 7, 到文本 (下一個次數變數))
概率2 ＝ 下一個次數變數 ÷ 超級列表框1.取表項數 () × 100
超級列表框2.置標題 (下一個數找次數 － 1, 8, 到文本 (概率2) ＋ 「%」)
.如果結束

.計次循環尾 ()
.計次循環尾 ()

.子程序 _按鈕2_被單擊
.局部變數 縱向, 整數型
.局部變數 刪除縱向變數, 整數型

.計次循環首 (超級列表框2.取表項數 (), 縱向)
.計次循環首 (超級列表框2.取表項數 (), 刪除縱向變數)
.如果真 (超級列表框2.取標題 (縱向, 1) ＝ 超級列表框2.取標題 (縱向 ＋ 刪除縱向變數, 1))
.如果真 (超級列表框2.取標題 (縱向, 2) ＝ 超級列表框2.取標題 (縱向 ＋ 刪除縱向變數, 2))
.如果真 (超級列表框2.取標題 (縱向, 5) ＝ 超級列表框2.取標題 (縱向 ＋ 刪除縱向變數, 5))
.如果真 (超級列表框2.取標題 (縱向, 6) ＝ 超級列表框2.取標題 (縱向 ＋ 刪除縱向變數, 6))
超級列表框2.刪除表項 (縱向)
.如果真結束

.如果真結束

.如果真結束

.如果真結束

.計次循環尾 ()
.計次循環尾 ()

.子程序 _按鈕3_被單擊
.局部變數 a, 整數型
.局部變數 找最大, 整數型
.局部變數 表項索引, 整數型
.局部變數 次數, 整數型
.局部變數 號碼, 文本型
.局部變數 顏色球, 文本型
.局部變數 概率, 整數型
.局部變數 號碼2, 文本型
.局部變數 顏色球2, 文本型
.局部變數 次數2, 整數型
.局部變數 概率2, 整數型

編輯框2.內容 ＝ 「」
.計次循環首 (超級列表框1.取表項數 (), a)
找最大 ＝ 到數值 (超級列表框2.取標題 (a, 7))
.如果 (找最大 ≤ 到數值 (超級列表框2.取標題 (a ＋ 1, 7)))
找最大 ＝ 到數值 (超級列表框2.取標題 (a ＋ 1, 7))
.否則
號碼 ＝ 超級列表框2.取標題 (a, 1)
顏色球 ＝ 超級列表框2.取標題 (a, 2)
次數 ＝ 到數值 (超級列表框2.取標題 (a, 3))
概率 ＝ 到數值 (超級列表框2.取標題 (a, 4))
號碼2 ＝ 超級列表框2.取標題 (a, 5)
顏色球2 ＝ 超級列表框2.取標題 (a, 6)
次數2 ＝ 到數值 (超級列表框2.取標題 (a, 7))
概率2 ＝ 到數值 (超級列表框2.取標題 (a, 8))
編輯框2.加入文本 (號碼 ＋ 「號，」 ＋ 顏色球 ＋ 「，」 ＋ 「出現過」 ＋ 到文本 (次數) ＋ 「次，概率是」 ＋ 到文本 (概率) ＋ 「%」 ＋ 「下一個號碼」 ＋ 號碼2 ＋ 「號，」 ＋ 顏色球2 ＋ 「，」 ＋ 「這2個號碼同時出現過」 ＋ 到文本 (次數2) ＋ 「次，概率是」 ＋ 到文本 (概率2) ＋ 「%」)
.如果結束

.計次循環尾 ()

『伍』 易語言:求一個雙色球6紅的快速全組合寫法 最好能排除無效的組合。如123456。123478. 1234.6.9.之類的組合

組合的方式有很多種，而且6個號碼的組合方式就有上萬種！

『陸』 易語言做一個雙色球程序如何避免隨機數字重復

是你方法的問題。隨機取數不該這種方法，因為可能會有重復。不論是易語言還是其他，正確的流程是，一，初始化隨機種子，二定義33個的一維數組四初始化從一到33賦值，五，打亂順序 ，六，只需依次從第一個變數開始輸出即可。關鍵演算法是變數的打亂順序。這個我寫出來又比較麻煩。手機打字不容易

『柒』 易語言獲取雙色球開獎信息

給你寫了個

模塊自己網路下載精易模塊3.8