【NO.0036】超级列表框的使用及取随机数

乱世 · 发表于 2011-11-5 23:07:47

作业完成.zip (1.45 KB, 下载次数: 1)

四海铭洋 · 发表于 2011-11-5 23:25:41

作业.zip (3.06 KB, 下载次数: 1)

金满斗 · 发表于 2011-11-5 23:56:32

本帖最后由金满斗于 2011-11-6 12:08 编辑

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

botong · 发表于 2011-11-6 00:42:52

本帖最后由 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:05

老师；你好！

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

魔法奇迹 · 发表于 2011-11-6 00:56:56

终于完成了！！

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

悲伤止步 · 发表于 2011-11-6 02:08:10

作业.zip (1.98 KB, 下载次数: 2)

核动力大海 · 发表于 2011-11-6 11:07:11

{:3_228:}支持版主,呵呵

1960706777 · 发表于 2011-11-6 11:23:52

......怎么样

62651345 · 发表于 2011-11-6 11:32:18

做的不好，向大家学习。

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

		自动登录	找回密码
密码			注册

[已结束] 【NO.0036】超级列表框的使用及取随机数

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分