易语言抽号程序的源码

发布网友发布时间：2022-04-26 16:51

共3个回答

热心网友时间：2023-10-15 09:09

.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量中奖ID, 整数型
.局部变量随机ID, 整数型
列表框2.清空 ()
列表框1.现行选中项＝ -1
动态手机号＝全部手机号
连续赋值 (真, 按钮1.禁止, 列表框2.禁止, 列表框1.禁止)
.计次循环首 (5, )
.计次循环首 (取随机数 (20, 100), )
随机ID ＝取随机数 (1, 取数组成员数 (动态手机号))
编辑框1.内容＝取文本左边 (动态手机号 [随机ID], 3) ＋取重复文本 (4, “*”) ＋取文本右边 (动态手机号 [随机ID], 4)
' 如果想显示完整手机号，可以用下面这句
' 编辑框1.内容＝动态手机号 [随机ID]
延迟 (20)
.计次循环尾 ()
编辑框1.内容＝动态手机号 [随机ID]
信息框 (编辑框1.内容, 64, “恭喜中奖”)
列表框2.加入项目 (编辑框1.内容, )
删除成员 (动态手机号, 随机ID, 1)
.计次循环尾 ()
连续赋值 (假, 按钮1.禁止, 列表框2.禁止, 列表框1.禁止)

这是我的一个例程中的核心代码，修改一下就可以用。

热心网友时间：2023-10-15 09:09

就跟你说两个命令

置随机数种子 ()
取随机数 (, )
多看看基础教程吧大哥
我要是把这两个命令给你了你还是不会用，那我真的没办法了

热心网友时间：2023-10-15 09:10

不懂额。。