【一周一训练NO.0043】手机号抽奖

银河世纪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (100, i)
列表框1.插入项目 (i － 1, 文本_生成手机号 (), i － 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本_生成手机号	文本型

变量名	类 型	静态	数组	备 注
号码段	整数型		0
i	整数型
随机数	整数型
手机号	文本型

号码段 ＝ { 134, 135, 136, 137, 138, 139, 147, 150, 151, 152, 157, 158, 159, 178, 182, 183, 184, 187, 188, 130, 131, 132, 145, 155, 156, 171, 175, 176, 185, 186, 133, 149, 153, 173, 177, 180, 181, 189, 170 }
置随机数种子 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (号码段))
手机号 ＝ 到文本 (号码段 [随机数]) ＋ 文本_取随机数字 (8, )
返回 (手机号)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
随机数	整数型
ii	整数型
文本	文本型
干扰文本	文本型

连续赋值 (真, 列表框2.禁止, 列表框1.禁止, 按钮1.禁止, 编辑框1.禁止)
计次循环首 (5, i)
置随机数种子 ()
随机数 ＝ 取随机数 (1, 列表框1.取项目数 ())
如果真 (寻找文本 (干扰文本, “,” ＋ 到文本 (随机数) ＋ “,”, , 假) ≠ -1)
随机数 ＝ 取随机数 (0, 列表框1.取项目数 ())
干扰文本 ＝ 干扰文本 ＋ “,” ＋ 到文本 (随机数) ＋ “,”
计次循环首 (列表框1.取项目数 (), ii)
文本 ＝ 列表框1.取项目文本 (ii － 1)
编辑框1.内容 ＝ 取文本左边 (文本, 3) ＋ “****” ＋ 取文本右边 (文本, 4)
程序_延时 (50, )
如果真 (ii ＝ 随机数)
跳出循环 ()

计次循环尾 ()
编辑框1.内容 ＝ 文本
信息框 (文本, 0 ＋ #信息图标, “恭喜中奖”, )
列表框2.插入项目 (i － 1, 文本, 列表框1.取项目数值 (随机数 － 1))
计次循环尾 ()
连续赋值 (假, 列表框2.禁止, 列表框1.禁止, 按钮1.禁止, 编辑框1.禁止)

子程序名	返回值类型	公开	备 注
_列表框2_列表项被选择

列表框1.现行选中项 ＝ 列表框2.取项目数值 (列表框2.现行选中项)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (100, i)<br />     列表框1.插入项目 (i － 1, 文本_生成手机号 (), i － 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 文本_生成手机号, 文本型<br /> .局部变量 号码段, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 手机号, 文本型<br /> <br /> 号码段 ＝ { 134, 135, 136, 137, 138, 139, 147, 150, 151, 152, 157, 158, 159, 178, 182, 183, 184, 187, 188, 130, 131, 132, 145, 155, 156, 171, 175, 176, 185, 186, 133, 149, 153, 173, 177, 180, 181, 189, 170 }<br /> 置随机数种子 ()<br /> 随机数 ＝ 取随机数 (1, 取数组成员数 (号码段))<br /> 手机号 ＝ 到文本 (号码段 [随机数]) ＋ 文本_取随机数字 (8, )<br /> 返回 (手机号)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 干扰文本, 文本型<br /> <br /> 连续赋值 (真, 列表框2.禁止, 列表框1.禁止, 按钮1.禁止, 编辑框1.禁止)<br /> .计次循环首 (5, i)<br />     置随机数种子 ()<br />     随机数 ＝ 取随机数 (1, 列表框1.取项目数 ())<br />     .如果真 (寻找文本 (干扰文本, “,” ＋ 到文本 (随机数) ＋ “,”, , 假) ≠ -1)<br />         随机数 ＝ 取随机数 (0, 列表框1.取项目数 ())<br />     .如果真结束<br />     干扰文本 ＝ 干扰文本 ＋ “,” ＋ 到文本 (随机数) ＋ “,”<br /> <br />     .计次循环首 (列表框1.取项目数 (), ii)<br />         文本 ＝ 列表框1.取项目文本 (ii － 1)<br />         编辑框1.内容 ＝ 取文本左边 (文本, 3) ＋ “****” ＋ 取文本右边 (文本, 4)<br />         程序_延时 (50, )<br />         .如果真 (ii ＝ 随机数)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     编辑框1.内容 ＝ 文本<br />     信息框 (文本, 0 ＋ #信息图标, “恭喜中奖”, )<br />     列表框2.插入项目 (i － 1, 文本, 列表框1.取项目数值 (随机数 － 1))<br /> .计次循环尾 ()<br /> 连续赋值 (假, 列表框2.禁止, 列表框1.禁止, 按钮1.禁止, 编辑框1.禁止)<br /> <br /> .子程序 _列表框2_列表项被选择<br /> <br /> 列表框1.现行选中项 ＝ 列表框2.取项目数值 (列表框2.现行选中项)

爱你入骨

...................................

绝版ん楠楠

绝版ん楠楠 发表于 2017-3-12 16:23

没有用模块，忘记删除自加载模块了，删除即可！

绝版ん楠楠

手机号抽奖.rar (67.45 KB, 下载次数: 1)

2017-3-12 16:22 上传

点击文件名下载附件

艾鱼

前面那个号码生成不够随机。所以后面修改了下，每四位数，取一次号码。

我本善良

还行吧，能将就

新气象

到底怎么参与啊，上传到哪里啊，要代码还是要软件啊？，怎么还有成品啊，那我下载回来改一下不就行了吗。

caixiaojing77

第一次来参加，小白一个，勿喷，可能有部分的代码比较繁琐

易宪

好久没写了~

包子陈

手机抽奖