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

中国龙子

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

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

1. 
   
2. .版本 2
   
3. .程序集 窗口程序集1
   
4. .程序集变量 程序集_红球, 整数型, , "33"
   
5. .程序集变量 程序集_蓝球, 整数型, , "16"
   
6. .子程序 _按钮_选号_被单击
   
7. .局部变量 局部_篮球计次, 整数型
   
8. .局部变量 局部_红球计次, 整数型
   
9. .局部变量 局部_红球, 整数型, , "0"
   
10. .局部变量 局部_篮球, 整数型, , "0"
    
11. .局部变量 局部_随机, 整数型
    
12. ' 生成红篮球数组
    
13. .计次循环首 (33, 局部_红球计次)
    
14.     程序集_红球 [局部_红球计次] ＝ 局部_红球计次
    
15. .计次循环尾 ()
    
16. .计次循环首 (16, 局部_篮球计次)
    
17.     程序集_蓝球 [局部_篮球计次] ＝ 局部_篮球计次
    
18. .计次循环尾 ()
    
19. ' 为选红蓝球提供种子
    
20. 局部_红球计次 ＝ 0
    
21. 局部_篮球计次 ＝ 0
    
22. .计次循环首 (33, 局部_红球计次)
    
23.     重定义数组 (局部_红球, 真, 局部_红球计次)
    
24.     局部_红球 [局部_红球计次] ＝ 程序集_红球 [局部_红球计次]
    
25. .计次循环尾 ()
    
26. .计次循环首 (16, 局部_篮球计次)
    
27.     重定义数组 (局部_篮球, 真, 局部_篮球计次)
    
28.     局部_篮球 [局部_篮球计次] ＝ 程序集_蓝球 [局部_篮球计次]
    
29. .计次循环尾 ()
    
30. ' 开始选号
    
31. 局部_红球计次 ＝ 0
    
32. 局部_篮球计次 ＝ 0
    
33. 编辑框_号码.内容 ＝ “”
    
34. 置随机数种子 ()
    
35. .计次循环首 (6, 局部_红球计次)
    
36.     局部_随机 ＝ 取随机数 (1, 取数组成员数 (局部_红球))
    
37.     取文本长度 (到文本 (局部_红球 [局部_随机]))
    
38.     .如果 (取文本长度 (到文本 (局部_红球 [局部_随机])) ＜ 2)
    
39.         编辑框_号码.加入文本 (“0” ＋ 到文本 (局部_红球 [局部_随机]) ＋ “ ”)
    
40.     .否则
    
41.         编辑框_号码.加入文本 (到文本 (局部_红球 [局部_随机]) ＋ “ ”)
    
42.     .如果结束
    
43.     删除成员 (局部_红球, 局部_随机, 1)
    
44. .计次循环尾 ()
    
45. .计次循环首 (1, 局部_篮球计次)
    
46.     局部_随机 ＝ 取随机数 (1, 取数组成员数 (局部_篮球))
    
47.     取文本长度 (到文本 (局部_篮球 [局部_随机]))
    
48.     .如果 (取文本长度 (到文本 (局部_篮球 [局部_随机])) ＜ 2)
    
49.         编辑框_号码.加入文本 (“  ” ＋ “0” ＋ 到文本 (局部_篮球 [局部_随机]))
    
50.     .否则
    
51.         编辑框_号码.加入文本 (“  ” ＋ 到文本 (局部_篮球 [局部_随机]))
    
52.     .如果结束
    
53. .计次循环尾 ()
    
54. 
    

复制代码

13027859448

这个准不？

中国龙子

这个准不？
13027859448 发表于 2010-5-6 16:21

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

jq36888

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

321k

我有36选7的

（取不重复7个数）

中国龙子

我有36选7的

（取不重复7个数）

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

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

xx03759

看着头就大

bnna7111

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

丝路畅想曲

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

中国龙子

满足兄弟要求，祝您中奖，呵呵~~