易语言吧 关注:266,311贴子:1,662,952
  • 0回复贴,共1

易语言双色球选号器源码分享,自己写的!有不足的地方,希望指教

取消只看楼主收藏回复

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

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


IP属地:甘肃1楼2020-02-18 20:00回复