中国龙子 发表于 2010-5-6 16:08:33

易练习题---双色球选号器

本帖最后由 中国龙子 于 2010-5-6 16:14 编辑

学了就要练，练了才会用，请多多指教.

ps:对于红球没有进行排序 ：）




.版本 2
.程序集 窗口程序集1
.程序集变量 程序集_红球, 整数型, , "33"
.程序集变量 程序集_蓝球, 整数型, , "16"
.子程序 _按钮_选号_被单击
.局部变量 局部_篮球计次, 整数型
.局部变量 局部_红球计次, 整数型
.局部变量 局部_红球, 整数型, , "0"
.局部变量 局部_篮球, 整数型, , "0"
.局部变量 局部_随机, 整数型
' 生成红篮球数组
.计次循环首 (33, 局部_红球计次)
    程序集_红球 [局部_红球计次] ＝ 局部_红球计次
.计次循环尾 ()
.计次循环首 (16, 局部_篮球计次)
    程序集_蓝球 [局部_篮球计次] ＝ 局部_篮球计次
.计次循环尾 ()
' 为选红蓝球提供种子
局部_红球计次 ＝ 0
局部_篮球计次 ＝ 0
.计次循环首 (33, 局部_红球计次)
    重定义数组 (局部_红球, 真, 局部_红球计次)
    局部_红球 [局部_红球计次] ＝ 程序集_红球 [局部_红球计次]
.计次循环尾 ()
.计次循环首 (16, 局部_篮球计次)
    重定义数组 (局部_篮球, 真, 局部_篮球计次)
    局部_篮球 [局部_篮球计次] ＝ 程序集_蓝球 [局部_篮球计次]
.计次循环尾 ()
' 开始选号
局部_红球计次 ＝ 0
局部_篮球计次 ＝ 0
编辑框_号码.内容 ＝ “”
置随机数种子 ()
.计次循环首 (6, 局部_红球计次)
    局部_随机 ＝ 取随机数 (1, 取数组成员数 (局部_红球))
    取文本长度 (到文本 (局部_红球 [局部_随机]))
    .如果 (取文本长度 (到文本 (局部_红球 [局部_随机])) ＜ 2)
      编辑框_号码.加入文本 (“0” ＋ 到文本 (局部_红球 [局部_随机]) ＋ “ ”)
    .否则
      编辑框_号码.加入文本 (到文本 (局部_红球 [局部_随机]) ＋ “ ”)
    .如果结束
    删除成员 (局部_红球, 局部_随机, 1)
.计次循环尾 ()
.计次循环首 (1, 局部_篮球计次)
    局部_随机 ＝ 取随机数 (1, 取数组成员数 (局部_篮球))
    取文本长度 (到文本 (局部_篮球 [局部_随机]))
    .如果 (取文本长度 (到文本 (局部_篮球 [局部_随机])) ＜ 2)
      编辑框_号码.加入文本 (“” ＋ “0” ＋ 到文本 (局部_篮球 [局部_随机]))
    .否则
      编辑框_号码.加入文本 (“” ＋ 到文本 (局部_篮球 [局部_随机]))
    .如果结束
.计次循环尾 ()

13027859448 发表于 2010-5-6 16:21:20

这个准不？

中国龙子 发表于 2010-5-6 16:23:08

这个准不？
13027859448 发表于 2010-5-6 16:21 http://www.lsyr.net/images/common/back.gif

不准，只能随机选号，如果准的话大家记得给我红包 ^_^

jq36888 发表于 2010-5-6 16:33:29

淘宝网的彩票中心也有个随机选号的东西，不知道是不是这样编的？

321k 发表于 2010-5-6 16:35:06

我有36选7的

（取不重复7个数）

中国龙子 发表于 2010-5-6 16:45:59

我有36选7的

（取不重复7个数）

321k 发表于 2010-5-6 16:35



把35行的6改成7就可以了

xx03759 发表于 2010-5-6 17:48:39

看着头就大

bnna7111 发表于 2010-5-6 18:49:35

这样选就能成为百万富翁？！

丝路畅想曲 发表于 2010-5-6 22:06:45

有没有直接就是软件的 ，直接发一下研究一下吗？哈哈 最近我也迷上了双色球、

中国龙子 发表于 2010-5-7 09:41:40

满足兄弟要求，祝您中奖，呵呵~~
页: [1]
查看完整版本: 易练习题---双色球选号器