精易论坛

标题: 【NO.0036】超级列表框的使用及取随机数 [打印本页]
作者: 孤心人    时间: 2011-11-5 11:57
标题: 【NO.0036】超级列表框的使用及取随机数
本帖最后由 孤心人 于 2011-11-12 09:42 编辑

继续基础作业，今天的作业同样设置了仅作者可见，等作业结束再公开所有作业，让大家相互学习

作业是取随机数和超级列表框的添加

要求：已经写在空壳的程序中

条件：无条件，只要能达到输出上述内容即可，不可用模块，在达到要求的情况下命令越少越好

奖励：作业简单，只要完成，+5精币，创新者酌情加奖

时间：一星期

附件只是一个空壳，可以不下载自己写

作业已经完成，感谢大家的支持，现公开所有的作业，大家相互学习。

QQ截图20111105115406.jpg (30.53 KB, 下载次数: 3)

QQ截图20111105115406.jpg

作业.rar

1.06 KB, 下载次数: 279, 下载积分: 精币 -2 枚

作者: う网淅乄    时间: 2011-11-5 12:01
本帖最后由 似水往昔浮流年 于 2011-11-5 12:29 编辑

作业.rar (1.96 KB, 下载次数: 69)
我也来玩下
作者: 迷离    时间: 2011-11-5 12:18
交作业咯！！！{:3_244:}{:3_244:}

作业.rar

1.72 KB, 下载次数: 80, 下载积分: 精币 -2 枚

作者: a307    时间: 2011-11-5 13:22
感谢comingrain指点.rar (1.94 KB, 下载次数: 13)
作者: 提灯游魂    时间: 2011-11-5 13:27
超级列表框的使用及取随机数.rar (2.05 KB, 下载次数: 30)
作者: 天雨风    时间: 2011-11-5 13:34
作业.rar (1.82 KB, 下载次数: 9)

作者: pppploi8    时间: 2011-11-5 16:38
本帖最后由 pppploi8 于 2011-11-5 17:44 编辑

前排抢楼，做完修改回复~
已完成....感觉不算很难


精易作业.rar (3.83 KB, 下载次数: 17)
作者: oo0魇oО﹎    时间: 2011-11-5 16:56
本帖最后由 oo0魇oО﹎ 于 2011-11-5 17:09 编辑

完成了 作业.zip (2.84 KB, 下载次数: 3) {:soso_e113:}
作者: botong    时间: 2011-11-5 16:57
本帖最后由 botong 于 2011-11-5 17:58 编辑

首先说一下，本人电脑不行，所以没有按要求生成1000组，我只生成100组了。
作业.rar (1.46 KB, 下载次数: 4)
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 帐户位数, 整数型
.局部变量 帐号, 文本型
编辑框1.内容 ＝ “”
.计次循环首 (100, )
    帐号 ＝ “”
    .如果 (取随机数 (1, 2) ＝ 1)
        帐户位数 ＝ 取随机数 (5, 10)
        .计次循环首 (帐户位数, )
            帐号 ＝ 帐号 ＋ 多项选择 (取随机数 (1, 2), 字符 (取随机数 (48, 57)), 字符 (取随机数 (97, 122)))
        .计次循环尾 ()
        编辑框1.内容 ＝ 编辑框1.内容 ＋ 帐号 ＋ “@qq.com” ＋ #换行符
    .否则
        帐号 ＝ 字符 (取随机数 (49, 57))
        帐户位数 ＝ 取随机数 (5, 10)
        .计次循环首 (帐户位数 － 1, )
            帐号 ＝ 帐号 ＋ 字符 (取随机数 (48, 57))
        .计次循环尾 ()
        编辑框1.内容 ＝ 编辑框1.内容 ＋ 帐号 ＋ “@qq.com” ＋ #换行符
    .如果结束
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 ()
.子程序 _按钮2_被单击
.局部变量 帐号, 文本型, , "0"
.局部变量 行号, 整数型
帐号 ＝ 分割文本 (编辑框1.内容, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (帐号), 行号)
    超级列表框1.插入表项 (, 取文本左边 (帐号 [行号], 取文本长度 (帐号 [行号]) － 7), , , , )
.计次循环尾 ()
[/e]

作者: 不安分的情绪    时间: 2011-11-5 17:10
我不知道有没错···

超级列表框取随机数.zip

1.97 KB, 下载次数: 19, 下载积分: 精币 -2 枚

作者: 大肥    时间: 2011-11-5 17:36
{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}

作业.zip

1.81 KB, 下载次数: 3, 下载积分: 精币 -2 枚

作者: 754372967    时间: 2011-11-5 17:39
{:3_227:}用模块就很简单、不用模块我竟然不会写…… - -555！！看来我还是学习去··
作者: 小米粒    时间: 2011-11-5 18:23
菜鸟奉上{:3_244:}，希望Lz多多指点

超级列表框的使用及取随机数.rar

1.76 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 尘莫央    时间: 2011-11-5 18:37
{:3_226:}
难得头一次交作业,
很少碰随机,只能用最蠢的方法交作业了

[e].版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 M, 文本型
.局部变量 A, 文本型
.局部变量 N1, 整数型
.局部变量 N2, 整数型
.局部变量 S, 文本型
.局部变量 X, 整数型, , "62"
.局部变量 临时数组, 文本型, , "1000"

置随机数种子 ()
X ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122 }
.计次循环首 (1000, N1)
    M ＝ “”
    N2 ＝ 0
    .计次循环首 (取数组成员数 (临时数组), N2)
        .如果真 (M ＝ 临时数组 [N2])
            .计次循环首 (取随机数 (5, 10), )
                S ＝ 到文本 (到字节集 (X [取随机数 (1, 62)]))
                M ＝ M ＋ S
            .计次循环尾 ()
        .如果真结束

    .计次循环尾 ()
    编辑框1.内容 ＝ M ＋ “@qq.com” ＋ #换行符 ＋ 编辑框1.内容
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (N1 － 1, 0, M ＋ “@qq.com”)
.计次循环尾 ()[/e]
作者: qq764520536    时间: 2011-11-5 18:45
作业.rar (1.98 KB, 下载次数: 2)
作者: 数据压缩    时间: 2011-11-5 19:07
例程.zip (1.45 KB, 下载次数: 6)
作者: 一棒过克    时间: 2011-11-5 19:12
本帖最后由 一棒过克 于 2011-11-5 22:31 编辑

我也来学做作业
作业：超级列表框的使用及取随机数(修改).rar (2.15 KB, 下载次数: 3)
作者: lvpb5252    时间: 2011-11-5 19:13
字数字数字

作业.rar

2.84 KB, 下载次数: 5, 下载积分: 精币 -2 枚

作者: 清清淡淡    时间: 2011-11-5 19:47
{:3_244:}我来了

作业.rar

1.74 KB, 下载次数: 3, 下载积分: 精币 -2 枚

作者: 初音未来丶    时间: 2011-11-5 20:06
本帖最后由 1467409408 于 2011-11-5 20:07 编辑

做好了，代码有点乱，请不要介意哈
作业.rar (1.58 KB, 下载次数: 2)
作者: 微凉    时间: 2011-11-5 20:06
本帖最后由 微凉 于 2011-11-5 20:08 编辑

作业.zip (2.37 KB, 下载次数: 3)

由于1000个太多了,显示慢,用100个演示,需要1000个请自行修改


补充内容 (2011-11-6 23:22):
你看清楚你作业写的内容,我是不是文盲了.你有说一定字母吗?
作者: Death Knight H    时间: 2011-11-5 20:24
作业.rar (1.54 KB, 下载次数: 2)

作者: daidwei369    时间: 2011-11-5 20:50
本帖最后由 daidwei369 于 2011-11-5 20:51 编辑

[e].版本 2
.支持库 iext

.子程序 _按钮1_被单击, , , 编辑框2和3都不可视，就是为了比较和存值
.局部变量 取值文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 欲取之文本, 文本型
.局部变量 n1, 整数型
.局部变量 文本数组1, 文本型, , "0"
.局部变量 比较文本, 文本型

取值文本 ＝ “0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z”
文本数组 ＝ 分割文本 (取值文本, “,”, )
.计次循环首 (1000, )
    .计次循环首 (取随机数 (5, 10), )
        欲取之文本 ＝ 取文本中间 (子文本替换 (取值文本, “,”, “”, , , 真), 取随机数 (1, 取数组成员数 (文本数组)), 1)
        编辑框2.加入文本 (欲取之文本)
    .计次循环尾 ()
    比较文本 ＝ 编辑框2.内容
    文本数组1 ＝ 分割文本 (编辑框3.内容, #换行符, )
    .计次循环首 (取数组成员数 (文本数组1), n1)
        比较文本 ＝ 文本数组1 [n1]
        编辑框2.内容 ＝ “”
        .计次循环首 (取随机数 (5, 10), )
            欲取之文本 ＝ 取文本中间 (子文本替换 (取值文本, “,”, “”, , , 真), 取随机数 (1, 取数组成员数 (文本数组)), 1)
            编辑框2.加入文本 (欲取之文本)
        .计次循环尾 ()
    .计次循环尾 ()
    .如果 (取文本左边 (比较文本, 1) ＝ “0”)  ' 为了使0不在第一位
        编辑框2.内容 ＝ “”
        .计次循环首 (取随机数 (5, 10), )
            欲取之文本 ＝ 取文本中间 (子文本替换 (取值文本, “,”, “”, , , 真), 取随机数 (1, 取数组成员数 (文本数组)), 1)
            编辑框2.加入文本 (欲取之文本)
        .计次循环尾 ()
    .否则

    .如果结束
    编辑框3.加入文本 (编辑框2.内容 ＋ #换行符)
    编辑框1.加入文本 (编辑框2.内容 ＋ “@qq.com” ＋ #换行符)
    编辑框2.内容 ＝ “”
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数组1, 文本型, , "0"
.局部变量 n1, 整数型

文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (文本数组), n1)
    文本数组1 ＝ 分割文本 (文本数组 [n1], “@”, )
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, 文本数组1 [1])
.计次循环尾 ()
[/e]
作者: leen007    时间: 2011-11-5 21:07
新手联系.rar (1.42 KB, 下载次数: 2)


作者: 落大雨    时间: 2011-11-5 21:24
完成了..很简单呢

作业.rar

1.87 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: 那个谁    时间: 2011-11-5 21:28
留作业是干什么用的呢
作者: 吾爱编程    时间: 2011-11-5 21:39
作业.rar (1.75 KB, 下载次数: 6) {:3_244:}你在做我原来的工作哦 我没理由不捧场啊   不难 但是 有点费时间
作者: 317315458    时间: 2011-11-5 22:22
精易作业.zip (2.23 KB, 下载次数: 1) {:3_233:}
做了2个多小时。是不是笨了点。。。
作者: lk1122    时间: 2011-11-5 22:40
本帖最后由 lk1122 于 2011-11-6 09:36 编辑

蛋疼，又忘记除掉后缀，改之。
aa.rar (1.95 KB, 下载次数: 2)

aa.rar

2.31 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: 851978454    时间: 2011-11-5 22:50
我也来凑哈热闹。。{:3_244:}{:3_244:}

e.zip

1.57 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 乱世    时间: 2011-11-5 23:07
作业完成.zip (1.45 KB, 下载次数: 1)
作者: 四海铭洋    时间: 2011-11-5 23:25
作业.zip (3.06 KB, 下载次数: 1) 不知道这样的算不算完成作业...
作者: 金满斗    时间: 2011-11-5 23:56
本帖最后由 金满斗 于 2011-11-6 12:08 编辑

作业.zip (2.44 KB, 下载次数: 3) 中间用了点大牛的东西，望加分啊，抄也很辛苦的哦！多加点分啊，都这么迟了。
作者: botong    时间: 2011-11-6 00:42
本帖最后由 botong 于 2011-11-6 01:05 编辑
botong 发表于 2011-11-5 16:57
首先说一下，本人电脑不行，所以没有按要求生成1000组，我只生成100组了。


看了版主的点评心里很别扭呢，版主要求生成1000行就是为了程序判断是否重复，而我却回避了这个问题了，呵呵，“你的程序可以说是最简洁的常规答案了”这句话是说我写的太低级了还是？所以全不知道版主那句话是贬义还是褒义呢。所以特地来修改了一下，因改动很小，这次就不上传附件了。
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 帐户位数, 整数型
.局部变量 帐号, 文本型
编辑框1.内容 ＝ “”
.计次循环首 (100, )
    帐号 ＝ “”
    .如果 (取随机数 (1, 2) ＝ 1)
        帐户位数 ＝ 取随机数 (5, 10)
        .计次循环首 (帐户位数, )
            帐号 ＝ 帐号 ＋ 多项选择 (取随机数 (1, 2), 字符 (取随机数 (48, 57)), 字符 (取随机数 (97, 122)))
        .计次循环尾 ()
        .如果真 (寻找文本 (编辑框1.内容, 帐号, , 假) ＝ -1)
            编辑框1.内容 ＝ 编辑框1.内容 ＋ 帐号 ＋ “@qq.com” ＋ #换行符
        .如果真结束
    .否则
        帐号 ＝ 字符 (取随机数 (49, 57))
        帐户位数 ＝ 取随机数 (5, 10)
        .计次循环首 (帐户位数 － 1, )
            帐号 ＝ 帐号 ＋ 字符 (取随机数 (48, 57))
        .计次循环尾 ()
        .如果真 (寻找文本 (编辑框1.内容, 帐号, , 假) ＝ -1)
            编辑框1.内容 ＝ 编辑框1.内容 ＋ 帐号 ＋ “@qq.com” ＋ #换行符
        .如果真结束
    .如果结束
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 ()
.子程序 _按钮2_被单击
.局部变量 帐号, 文本型, , "0"
.局部变量 行号, 整数型
帐号 ＝ 分割文本 (编辑框1.内容, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (帐号), 行号)
    超级列表框1.插入表项 (, 取文本左边 (帐号 [行号], 取文本长度 (帐号 [行号]) － 7), , , , )
.计次循环尾 ()
[/e]
改动之后依然存在一个问题，这样就是生成的记录数就不足1000条了，我尝试了一个加两个子程序上去，依然没有解决呢？这个问题现在还没有想出来怎么解决，想好了再来，或者版本教教我吧。
作者: 勇闯天涯    时间: 2011-11-6 00:44
老师；你好！

          {:soso_e143:} 没能按你的要求完成作业，实在是基础太差了，只能写成这个样子了，还望老师多多教导；我也会努力的。{:soso__2450352069732769523_4:}

作业(超级列表框的使用及取随机数).rar

1.68 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 魔法奇迹    时间: 2011-11-6 00:56
终于完成了！！

补充内容 (2011-11-11 16:50):
我不知道怎么判断是否重复！！

作业.zip

1.75 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: 悲伤止步    时间: 2011-11-6 02:08
作业.zip (1.98 KB, 下载次数: 2)
我的作业
作者: 核动力大海    时间: 2011-11-6 11:07
{:3_228:}支持版主,呵呵
作者: 1960706777    时间: 2011-11-6 11:23
......怎么样
作者: 62651345    时间: 2011-11-6 11:32
做的不好，向大家学习。



作业.rar (2.83 KB, 下载次数: 2)
作者: 屎加豆    时间: 2011-11-6 12:49
第一次做作业，做的可能不是很好。 作业.rar (1.58 KB, 下载次数: 2)
作者: suixin    时间: 2011-11-6 13:07
本帖最后由 suixin 于 2011-11-6 13:12 编辑

完成作业{:3_234:}

作业.zip

1.85 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: hoie    时间: 2011-11-6 13:11
作业.rar (2.28 KB, 下载次数: 3)
作者: 小马过河    时间: 2011-11-6 13:51
随机生成qq号.rar (1.81 KB, 下载次数: 1)
作者: ugvnui    时间: 2011-11-6 14:12
作业做完。。望加分。嘿嘿。。。

作业.zip

780.5 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 千年    时间: 2011-11-6 15:27
作业.zip (2.25 KB, 下载次数: 10)

作者: 仙子有毒    时间: 2011-11-6 15:38
本帖最后由 仙子有毒 于 2011-11-7 20:44 编辑

11.rar (1.43 KB, 下载次数: 1)
刚学易，就先做了个全是数字的，还请版主加加分。
发现了点问题，改了下。但首位为０的问题还没解决。
11_修改.rar (1.43 KB, 下载次数: 0)

数字字母混合.rar (1.48 KB, 下载次数: 4)
作者: qq420345437    时间: 2011-11-6 15:43
这个那么简单....{:3_244:}
作者: weilai911    时间: 2011-11-6 16:53
早上下了作业就没弄 出门了 回家才弄 交迟了{:3_233:}

作业.rar

1.69 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: 爱过你的傻瓜    时间: 2011-11-6 18:25
我学易语言没多少时间，这是第一次做作业，呵呵，做的不好不用拿鸡蛋砸我呀

作业2.rar

2.34 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 306028258    时间: 2011-11-6 20:15
本帖最后由 306028258 于 2011-11-6 20:15 编辑

[attach]70505[/attach] 作业.rar (1.92 KB, 下载次数: 2)
作者: 不精则易    时间: 2011-11-6 20:20
不好意思用了18行源码，生成数据不会有重复，试试玩一下。

作业.rar

2.36 KB, 阅读权限: 180, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 梦，人生    时间: 2011-11-6 20:21
邮箱账号生成器.rar (4.24 KB, 下载次数: 3) 还是上回那个问题。。。。。怎么设置只能楼主看见？？？？？

交作业、、、
作者: donly    时间: 2011-11-6 20:46
作业.zip (2.18 KB, 下载次数: 2)
哈哈 交作业
作者: pretend    时间: 2011-11-6 21:25
{:3_227:}费了好长时间弄对的{:3_232:} 作业.rar (1.25 KB, 下载次数: 2)
作者: 萧萧黄叶    时间: 2011-11-6 21:48
作业.rar (1.93 KB, 下载次数: 3)
作者: 柳叶飞    时间: 2011-11-6 21:51
  1. .版本 2
  2. .支持库 iext

  4. .程序集 窗口程序集1

  6. .子程序 _按钮1_被单击
  7. .局部变量 局部_长度, 整数型
  8. .局部变量 局部_选择, 整数型
  9. .局部变量 局部_文本, 文本型
  10. .局部变量 局部_邮箱名, 文本型

  12. 编辑框1.内容 ＝ “”
  13. .计次循环首 (1000, )
  14.     置随机数种子 ()
  15.     局部_长度 ＝ 取随机数 (5, 10)
  16.     局部_文本 ＝ “”
  17.     .计次循环首 (局部_长度, )
  18.         局部_选择 ＝ 取随机数 (0, 1)
  19.         局部_文本 ＝ 局部_文本 ＋ 选择 (局部_选择 ＝ 0, 字符 (取随机数 (97, 122)), 字符 (取随机数 (48, 57)))
  20.     .计次循环尾 ()
  21.     局部_邮箱名 ＝ 局部_文本 ＋ “@qq.com”
  22.     编辑框1.加入文本 (局部_邮箱名 ＋ #换行符)
  23.     处理事件 ()
  24. .计次循环尾 ()
  25. 信息框 (“生成完毕”, 0, )
  26. ''生成时，感觉用加入文本速度似乎比其他命令快一点，不知是否这样

  28. .子程序 _按钮2_被单击
  29. .局部变量 局部_临时, 文本型, , "0"
  30. .局部变量 局部_位置, 整数型
  31. .局部变量 i, 整数型
  32. .局部变量 局部_临时Q号, 文本型

  34. 重定义数组 (局部_临时, 假, 0)
  35. 超级列表框1.全部删除 ()
  36. 局部_临时 ＝ 分割文本 (编辑框1.内容, #换行符, )
  37. .计次循环首 (取数组成员数 (局部_临时), i)
  38.     局部_位置 ＝ 寻找文本 (局部_临时 [i], “@”, , 假) － 1
  39.     局部_临时Q号 ＝ 取文本左边 (局部_临时 [i], 局部_位置)
  40.     超级列表框1.插入表项 (, , , , , )
  41.     超级列表框1.置标题 (i － 1, 0, 局部_临时Q号)
  42. .计次循环尾 ()
复制代码
作者: 爱家的小懒虫    时间: 2011-11-6 22:46
超级列表框的使用及取随机数.rar (2.68 KB, 下载次数: 18)
作者: 虚心进步    时间: 2011-11-7 00:02
本帖最后由 虚心进步 于 2011-11-7 00:11 编辑

作业.rar (1.91 KB, 下载次数: 2)

交作业来了.不知道来晚了吗
作者: 刘瑜    时间: 2011-11-7 09:34
请老师指导下

作业.rar

1.6 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: mxsoft    时间: 2011-11-7 10:14
896082750.zip (2.47 KB, 下载次数: 5) 这么多人参加呀，迟到了
作者: a779863081    时间: 2011-11-7 11:12
作业（第一次参加）.zip (1.95 KB, 下载次数: 2)

作者: 飞云新希望    时间: 2011-11-7 11:41
本帖最后由 飞云新希望 于 2011-11-7 12:32 编辑

随机数.zip (2.08 KB, 下载次数: 5)

第一次交作业，希望能过关

仅作者显示不知道怎么设置，O了
作者: 烤鸡科技    时间: 2011-11-7 11:54
work.rar (2.21 KB, 下载次数: 2)
作者: 英奇剑    时间: 2011-11-7 12:11
本帖最后由 英奇剑 于 2011-11-7 12:16 编辑



[e]
.版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 常用字符数组, 文本型, , "64"

.子程序 __启动窗口_创建完毕

置随机数种子 ()
常用字符数组 ＝ { “A”, “a”, “B”, “b”, “C”, “c”, “D”, “d”, “E”, “e”, “F”, “f”, “G”, “g”, “H”, “h”, “I”, “i”, “J”, “j”, “K”, “k”, “L”, “l”, “M”, “m”, “N”, “n”, “O”, “o”, “P”, “p”, “Q”, “q”, “R”, “r”, “S”, “s”, “T”, “t”, “U”, “u”, “V”, “v”, “W”, “w”, “X”, “x”, “Y”, “y”, “Z”, “z”, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “_”, “.” }

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 本次字符串位数, 整数型
.局部变量 帐号前缀, 文本型
.局部变量 行数, 整数型

编辑框1.内容 ＝ “”


.循环判断首 ()

    本次字符串位数 ＝ 取随机数 (5, 10)
    帐号前缀 ＝ 判断生成模式返回不同的文本 ()

    .如果真 (帐号前缀 ≠ “0” 且 帐号前缀 ≠ “_” 且 帐号前缀 ≠ “.”)  ' 排除“【0】，【_】，【.】三个符号开头的情况”

        .判断循环首 (取文本长度 (帐号前缀) ＜ 本次字符串位数)
            帐号前缀 ＝ 帐号前缀 ＋ 判断生成模式返回不同的文本 ()
        .判断循环尾 ()
        编辑框1.加入文本 (帐号前缀 ＋ “@qq.com” ＋ #换行符)
        行数 ＝ 行数 ＋ 1

    .如果真结束


.循环判断尾 (行数 ＜ 1000)





.子程序 判断生成模式返回不同的文本, 文本型

.判断开始 (英数混合.选中 ＝ 真)
    返回 (常用字符数组 [取随机数 (1, 64)])
.判断 (全数字.选中 ＝ 真)
    返回 (常用字符数组 [取随机数 (53, 62)])
.判断 (全字母.选中 ＝ 真)
    返回 (常用字符数组 [取随机数 (1, 52)])
.默认
    返回 (“0”)
.判断结束


.子程序 _按钮2_被单击
.局部变量 分割邮箱数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 帐号, 文本型, , "0"

超级列表框1.全部删除 ()

分割邮箱数组 ＝ 分割文本 (编辑框1.内容, #换行符, )


.计次循环首 (取数组成员数 (分割邮箱数组), i)
    帐号 ＝ 分割文本 (分割邮箱数组 [e], “@”, )

    超级列表框1.插入表项 (0, 帐号 [1], , , , )



.计次循环尾 ()
[/e]

未命名.JPG (32.96 KB, 下载次数: 2)

未命名.JPG

tanker作业(随机生成QQ邮箱).rar

2.43 KB, 下载次数: 3, 下载积分: 精币 -2 枚

作者: 英奇剑    时间: 2011-11-7 12:14
[e].版本 2

.循环判断首 ()

    本次字符串位数 ＝ 取随机数 (5, 10)
    帐号前缀 ＝ 判断生成模式返回不同的文本 ()

    .如果真 (帐号前缀 ≠ “0” 且 帐号前缀 ≠ “_” 且 帐号前缀 ≠ “.”)  ' 排除“【0】，【_】，【.】三个符号开头的情况”

        .判断循环首 (取文本长度 (帐号前缀) ＜ 本次字符串位数)
            帐号前缀 ＝ 帐号前缀 ＋ 判断生成模式返回不同的文本 ()
        .判断循环尾 ()
        编辑框1.加入文本 (帐号前缀 ＋ “@qq.com” ＋ #换行符)
        行数 ＝ 行数 ＋ 1

    .如果真结束


.循环判断尾 (行数 ＜ 1000)
[/e]
作者: 偷油鼠    时间: 2011-11-7 14:57
偷油鼠作业

偷油鼠作业.rar

1.83 KB, 下载次数: 5, 下载积分: 精币 -2 枚

偷油鼠作业
作者: 渣①    时间: 2011-11-7 22:20
本帖最后由 渣① 于 2011-11-7 22:21 编辑

   做出来了  里边都有注释的。。。
列表框取值是在别人帮助下完成的
但是之后都明白了。。。


另外 希望以后 有作业 也能发个通知什么的 我第一次做作业。。。

随机生成邮箱，取邮箱前缀.rar

336.2 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作业。。。
作者: 自绘    时间: 2011-11-7 23:56
本来是来学自绘的 呵呵 今天刚发现有作业这个板块 就来学习下啊  

超级列表框的使用及取随机数.rar

2.44 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: yuanxingwuy    时间: 2011-11-8 00:39
本帖最后由 yuanxingwuy 于 2011-11-8 00:45 编辑

[e].版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 数组, 文本型, , "0"

编辑框1.内容 ＝ “”
.计次循环首 (1000, a)
    .如果 (寻找文本 (编辑框1.内容, 子程序1 (), , 假) ＝ -1)
        编辑框1.加入文本 (子程序1 () ＋ “@qq.com” ＋ #换行符)
    .否则
        .如果 (寻找文本 (编辑框1.内容, 子程序1 (), , 假) ＝ -1)
            编辑框1.加入文本 (子程序1 () ＋ “@qq.com” ＋ #换行符)
        .否则

        .如果结束

    .如果结束

.计次循环尾 ()
数组 ＝ 分割文本 (编辑框1.内容, #换行符, )

.子程序 子程序1, 文本型
.局部变量 全部字符, 文本型
.局部变量 文本1, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 i, 整数型

全部字符 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz”




取文本长度 (全部字符)
' 调试输出 (取文本长度 (全部字符))
置随机数种子 ()
.计次循环首 (取随机数 (5, 10), i)
    文本1 ＝ 文本1 ＋ 取文本中间 (全部字符, 取随机数 (1, 取文本长度 (全部字符)), 1)
    .如果 (取文本长度 (文本1) ＞ 4 且 取文本长度 (文本1) ＜ 11)
        加入成员 (数组, 文本1)
    .否则

    .如果结束

.计次循环尾 ()
返回 (数组 [取随机数 (1, 取数组成员数 (数组))])

.子程序 _按钮2_被单击
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 i, 整数型

数组1 ＝ 分割文本 (编辑框1.内容, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (数组1), i)

    数组2 ＝ 分割文本 (数组1 , “@”, )
    超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (i － 1, 0, 数组2 [1])

.计次循环尾 ()
调试输出 (超级列表框1.取表项数 ())
[/e]

超级列表框的使用及取随机数.rar

2.79 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: evop    时间: 2011-11-8 11:39
作业完成,{:3_244:}{:3_245:}

超级列表框的使用及取随机数.zip

1.9 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 小马过河    时间: 2011-11-8 12:48
小马过河 发表于 2011-11-6 13:51

账号确实没有10位，也没混排，没看仔细，下回注意。但不会有重复
作者: yeguke    时间: 2011-11-8 16:03
没有添加过符件上传~也不知道有没有上传成功~

作业1.zip

1.8 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: linjianping513    时间: 2011-11-9 00:25
本帖最后由 linjianping513 于 2011-11-9 01:02 编辑

做了一个简单的，交下任务


[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _生成按钮_被单击
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型


.计次循环首 (1000, i)
    置随机数种子 ()
    c ＝ 取随机数 (1, 9)
    置随机数种子 ()
    a ＝ 取随机数 (4, 9)
    .计次循环首 (a, b)
        置随机数种子 ()
        c ＝ 取随机数 (0, 9) ＋ c × 10
    .计次循环尾 ()
    编辑框1.加入文本 (到文本 (取绝对值 (c)) ＋ “@qq.com” ＋ #换行符)
.计次循环尾 ()
.子程序 _提取按钮_被单击
.局部变量 a, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 b, 整数型
a ＝ 分割文本 (编辑框1.内容, “@qq.com”, )
b ＝ 取数组成员数 (a) ＋ 1
.计次循环首 (取数组成员数 (a), i)
    b ＝ b － 1
    超级列表框1.插入表项 (0, a , , , , )
.计次循环尾 ()
[/e]

随机数.zip

1.42 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: 易霸    时间: 2011-11-9 13:08
看看，刚学习的
作者: xgb88555    时间: 2011-11-9 13:28
不知道好不好 。不过已经达到目的了

作业.rar

1.94 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 三千    时间: 2011-11-9 13:58
本帖最后由 三千 于 2011-11-9 14:26 编辑

不知道这样行不行{:3_244:}

作业.rar

1.31 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: 柳叶飞    时间: 2011-11-9 18:56
本帖最后由 柳叶飞 于 2011-11-9 21:10 编辑

感谢孤心点评，下面是重做的作业，增加了生成账号时的判断

  2. .版本 2
  3. .支持库 iext
  4. .程序集 窗口程序集1
  5. .子程序 _按钮1_被单击
  6. .局部变量 局部_长度, 整数型
  7. .局部变量 局部_选择, 整数型
  8. .局部变量 局部_文本, 文本型
  9. .局部变量 局部_文本2, 文本型, , "0"
  10. .局部变量 局部_邮箱名, 文本型
  11. .局部变量 i, 整数型
  12. .局部变量 局部_是否重复, 逻辑型
  13. 编辑框1.内容 ＝ “”
  14. .循环判断首 ()
  15.     置随机数种子 ()
  16.     局部_长度 ＝ 取随机数 (5, 10)
  17.     局部_是否重复 ＝ 假
  18.     局部_文本 ＝ “”
  19.     .计次循环首 (局部_长度, )
  20.         局部_选择 ＝ 取随机数 (0, 1)
  21.         局部_文本 ＝ 局部_文本 ＋ 选择 (局部_选择 ＝ 0, 字符 (取随机数 (97, 122)), 字符 (取随机数 (48, 57)))
  22.     .计次循环尾 ()
  23.     加入成员 (局部_文本2, 局部_文本)
  24.     .如果 (取数组成员数 (局部_文本2) ＝ 1)
  25.         局部_邮箱名 ＝ 局部_文本 ＋ “@qq.com”
  26.         编辑框1.加入文本 (局部_邮箱名 ＋ #换行符)
  27.     .否则
  28.         .计次循环首 (取数组成员数 (局部_文本2) － 1, i)
  29.             .如果真 (局部_文本2 [i] ＝ 局部_文本)
  30.                 删除成员 (局部_文本2, 取数组成员数 (局部_文本2), )
  31.                 局部_是否重复 ＝ 真
  32.                 跳出循环 ()
  33.             .如果真结束
  34.         .计次循环尾 ()
  35.         .如果真 (局部_是否重复 ＝ 假)
  36.             局部_邮箱名 ＝ 局部_文本 ＋ “@qq.com”
  37.             编辑框1.加入文本 (局部_邮箱名 ＋ #换行符)
  38.         .如果真结束
  39.     .如果结束
  40.     处理事件 ()
  41. .循环判断尾 (取数组成员数 (局部_文本2) ≠ 1000)
  42. 输出调试文本 (到文本 (取数组成员数 (局部_文本2)))
  43. 信息框 (“生成完毕”, 0, )
  44. ' '生成时，感觉用加入文本速度似乎比其他命令快一点，不知是否这样
  45. .子程序 _按钮2_被单击
  46. .局部变量 局部_临时, 文本型, , "0"
  47. .局部变量 局部_位置, 整数型
  48. .局部变量 i, 整数型
  49. .局部变量 局部_临时Q号, 文本型
  50. .局部变量 k, 整数型
  51. .局部变量 局部_判断, 文本型
  52. 重定义数组 (局部_临时, 假, 0)
  53. 超级列表框1.全部删除 ()
  54. 局部_临时 ＝ 分割文本 (编辑框1.内容, #换行符, )
  55. .计次循环首 (取数组成员数 (局部_临时), i)
  56.     局部_位置 ＝ 寻找文本 (局部_临时 [i], “@”, , 假) － 1
  57.     局部_临时Q号 ＝ 取文本左边 (局部_临时 [i], 局部_位置)
  58.     超级列表框1.插入表项 (, , , , , )
  59.     超级列表框1.置标题 (i － 1, 0, 局部_临时Q号)
  60. .计次循环尾 ()
  61. .子程序 _按钮3_被单击

复制代码

作者: wdqq1210    时间: 2011-11-9 20:12
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 邮箱前缀, 文本型
.局部变量 取几位数, 整数型
置随机数种子 ()
.计次循环首 (1000, )
    取几位数 ＝ 取随机数 (5, 10)
    .计次循环首 (取几位数, )
        邮箱前缀 ＝ 邮箱前缀 ＋ 多项选择 (取随机数 (1, 3), 字符 (取随机数 (48, 57)), 字符 (取随机数 (65, 65 ＋ 25)), 字符 (取随机数 (97, 97 ＋ 25)))
    .计次循环尾 ()
    编辑框1.加入文本 (邮箱前缀 ＋ “@qq.com” ＋ #换行符)
    邮箱前缀 ＝ “”
.计次循环尾 ()
.子程序 _按钮2_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 n, 整数型
文本数组 ＝ 分割文本 (编辑框1.内容, “@qq.com”, )
.计次循环首 (1000, n)
    超级列表框1.插入表项 (, 文本数组 [n], , , , )
.计次循环尾 ()

作者: wdqq1210    时间: 2011-11-9 20:32
.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 邮箱前缀, 文本型
.局部变量 取几位数, 整数型

置随机数种子 ()
.计次循环首 (1000, )
    取几位数 ＝ 取随机数 (5, 10)
    .计次循环首 (取几位数, )
        邮箱前缀 ＝ 邮箱前缀 ＋ 多项选择 (取随机数 (1, 3), 字符 (取随机数 (48, 57)), 字符 (取随机数 (65, 65 ＋ 25)), 字符 (取随机数 (97, 97 ＋ 25)))
    .计次循环尾 ()
    编辑框1.加入文本 (邮箱前缀 ＋ “@qq.com” ＋ #换行符)
    邮箱前缀 ＝ “”
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 n, 整数型

超级列表框1.表项 ＝ {  }
文本数组 ＝ 分割文本 (编辑框1.内容, “@qq.com”, )
.计次循环首 (取数组成员数 (文本数组), n)
    超级列表框1.插入表项 (, 文本数组 [n], , , , )
.计次循环尾 ()




’发现刚才作业程序不怎么完善，又补充做了一下，重发一次，请版主见谅
作者: 梦，人生    时间: 2011-11-9 21:50
梦，人生 发表于 2011-11-6 20:21
还是上回那个问题。。。。。怎么设置只能楼主看见？？？？？

交作业、、、

额、、、、、、、、sorry、、没看到、、、、呵呵、、、、我有罪、、、、
作者: 易语言初级学习    时间: 2011-11-10 13:14
好了，也分享给我一下。
作者: 自问自答    时间: 2011-11-10 13:53
第2次咯,看过的视频教程少,我感觉用的都是笨方法呢,写出来太不容易了,遇到好多的困难{:3_228:}

[作业]随即生成QQ邮箱.rar

2.14 KB, 下载次数: 2, 下载积分: 精币 -2 枚

作者: wxh73    时间: 2011-11-10 17:10
{:3_244:}交作业。
作者: 逆风啊    时间: 2011-11-10 17:24
2011-11-7（取随机数）.zip (2.25 KB, 下载次数: 1)
作者: diesrolls    时间: 2011-11-10 21:40
超级列表框的使用及取随机数.rar (2.22 KB, 下载次数: 2)
作者: mexu    时间: 2011-11-11 00:27
作业.rar (1.45 KB, 下载次数: 2)
作者: loilih    时间: 2011-11-11 11:58
源码有点长,不知道符不符合要求
桌面.rar (3.21 KB, 下载次数: 2)
作者: fkueyyriu    时间: 2011-11-11 20:50
我的付件怎么上传不上来哦
作者: fkueyyriu    时间: 2011-11-11 20:52
老师您好,我自学易语言有一个月的时间了,第一次做作业.看我写得怎么样,写得不好的,还请老师指教批评!

精易论坛作业.rar

6.47 KB, 下载次数: 2, 下载积分: 精币 -2 枚

布置的作业
作者: yxzyxz001    时间: 2011-11-11 23:11
谢谢拉
生成QQ邮箱.rar (1.71 KB, 下载次数: 12)
作者: gaodiao2011    时间: 2011-11-11 23:33
本帖最后由 孤心人 于 2011-11-12 08:21 编辑

{:3_228:}完成了！老大请检查！

补充下！老大  我刚虎了应该用判断循环的   



===========================
不好意思，没地方写回复，只要在这修改你的原帖，请你见谅：

可以使用“循环判断首”命令来跳转
.版本 2
    .循环判断首 ()
        前缀 ＝ 子程序_生成前缀 () ＋ “@qq.com”
    .循环判断尾 (寻找文本 (编辑框1.内容, 前缀, , 假) ≠ -1)

你看这样改是否更好点？
============================

作业.rar

271.56 KB, 下载次数: 2, 下载积分: 精币 -2 枚

生成1000个邮箱取其前缀
作者: 一抹红晕    时间: 2011-11-12 02:10
务实且不浮躁的管理人员,必须支持!

0101.rar

1.56 KB, 下载次数: 16, 下载积分: 精币 -2 枚

作者: mexu    时间: 2011-11-12 04:20
谢谢版主在87楼的指正，重做了一个，麻烦版主指点不足。谢谢~

作业1.rar

1.46 KB, 下载次数: 1, 下载积分: 精币 -2 枚

作者: yxzyxz001    时间: 2011-11-12 09:01
yxzyxz001 发表于 2011-11-11 23:11
谢谢拉

谢谢版主点评
作者: 樱桃小王子    时间: 2011-11-12 18:38
回复一下看一下~
作者: 都不知道    时间: 2011-11-13 12:08
学习下学习下学习下学习下
作者: 素颜也是y1种美    时间: 2011-11-22 13:28
{:3_244:}作业啊 ~~~~~~~~~
作者: 水常流    时间: 2011-11-25 17:18
我是超级菜鸟，！！！！！！！！！！！！
作者: 水常流    时间: 2011-11-25 17:21
没有下载点啊




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4