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

evop

作业完成,{:3_244:}{:3_245:}

小马过河

小马过河 发表于 2011-11-6 13:51

账号确实没有10位，也没混排，没看仔细，下回注意。但不会有重复

yeguke

没有添加过符件上传~也不知道有没有上传成功~

linjianping513

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


[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]

易霸

看看，刚学习的

xgb88555

不知道好不好 。不过已经达到目的了

三千

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

柳叶飞

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

1. 
   
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_被单击
    
62. 
    

复制代码

wdqq1210

.版本 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

.版本 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], , , , )
.计次循环尾 ()




’发现刚才作业程序不怎么完善，又补充做了一下，重发一次，请版主见谅