![](http://tb2.bdstatic.com/tb/editor/images/face/i_f01.png?t=20140803)
![](http://tb2.bdstatic.com/tb/editor/images/face/i_f05.png?t=20140803)
软件界面
![](http://tiebapic.baidu.com/forum/w%3D580/sign=222c927b24fa828bd1239debcd1f41cd/95d732d3d539b600a4e119c9fe50352ac65cb7be.jpg?tbpicau=2024-09-19-05_07672188d635a5b8acf08dd441e9bdaf)
双色球选号器源码分享:
![](http://tb2.bdstatic.com/tb/editor/images/face/i_f01.png?t=20140803)
![](http://tb2.bdstatic.com/tb/editor/images/face/i_f05.png?t=20140803)
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 红球数量, 整数型, , "0"
.局部变量 取到的红球, 整数型, , "0"
.局部变量 计次, 整数型
.局部变量 取出的球数字, 整数型
.局部变量 蓝球, 文本型
.局部变量 编辑内容, 文本型
鸣叫 ()
编辑框1.内容 = “”
编辑内容 = 编辑框1.内容
.计次循环首 (33, 计次)
加入成员 (红球数量, 计次)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (6, 计次)
取出的球数字 = 取随机数 (1, 取数组成员数 (红球数量))
加入成员 (取到的红球, 红球数量 [取出的球数字])
删除成员 (红球数量, 取出的球数字, 1)
.计次循环尾 ()
蓝球 = 到文本 (取随机数 (1, 16))
数组排序 (取到的红球, )
.计次循环首 (6, 计次)
编辑框1.加入文本 (到文本 (取到的红球 [计次]) + “ ”)
编辑内容 = 编辑框1.内容
.计次循环尾 ()
编辑内容 = “红球:” + 编辑内容 + “蓝球:” + 蓝球
编辑框1.内容 = 编辑内容