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

mxsoft

896082750.zip (2.47 KB, 下载次数: 5)

2011-11-7 10:14 上传

点击文件名下载附件 这么多人参加呀，迟到了

a779863081

作业（第一次参加）.zip (1.95 KB, 下载次数: 2)

2011-11-7 11:11 上传

点击文件名下载附件

飞云新希望

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

2011-11-7 12:32 上传

点击文件名下载附件

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

仅作者显示不知道怎么设置，O了

烤鸡科技

work.rar (2.21 KB, 下载次数: 2)

2011-11-7 11:54 上传

点击文件名下载附件

英奇剑

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

英奇剑

[e].版本 2

.循环判断首 ()

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

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

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

    .如果真结束


.循环判断尾 (行数 ＜ 1000)
[/e]

偷油鼠

偷油鼠作业

渣①

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


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

自绘

本来是来学自绘的 呵呵 今天刚发现有作业这个板块 就来学习下啊  

yuanxingwuy

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