本人也是易语言爱好者，希望以后能和大家共同学习，共同进步！ 代码若有不清楚的地方可以留言哦！
软件界面

双色球选号器源码分享：
（无三方支持库，代码均为系统核心支持库）
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 红球数量, 整数型, , "0"
.局部变量 取到的红球, 整数型, , "0"
.局部变量 计次, 整数型
.局部变量 取出的球数字, 整数型
.局部变量 蓝球, 文本型
.局部变量 编辑内容, 文本型
鸣叫 ()
编辑框1.内容 ＝ “”
编辑内容 ＝ 编辑框1.内容
.计次循环首 (33, 计次)
加入成员 (红球数量, 计次)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (6, 计次)
取出的球数字 ＝ 取随机数 (1, 取数组成员数 (红球数量))
加入成员 (取到的红球, 红球数量 [取出的球数字])
删除成员 (红球数量, 取出的球数字, 1)
.计次循环尾 ()
蓝球 ＝ 到文本 (取随机数 (1, 16))
数组排序 (取到的红球, )
.计次循环首 (6, 计次)
编辑框1.加入文本 (到文本 (取到的红球 [计次]) ＋ “ ”)
编辑内容 ＝ 编辑框1.内容
.计次循环尾 ()
编辑内容 ＝ “红球：” ＋ 编辑内容 ＋ “蓝球:” ＋ 蓝球
编辑框1.内容 ＝ 编辑内容