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

大肥

{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}{:3_227:}

754372967

{:3_227:}用模块就很简单、不用模块我竟然不会写…… - -555！！看来我还是学习去··

小米粒

菜鸟奉上{:3_244:}，希望Lz多多指点

尘莫央

{: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

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

2011-11-5 18:44 上传

点击文件名下载附件
下载积分: 精币 -2 枚

数据压缩

例程.zip (1.45 KB, 下载次数: 6)

2011-11-5 19:07 上传

点击文件名下载附件
下载积分: 精币 -2 枚

一棒过克

我也来学做作业
作业：超级列表框的使用及取随机数(修改).rar (2.15 KB, 下载次数: 3)

2011-11-5 22:31 上传

点击文件名下载附件
下载积分: 精币 -2 枚

lvpb5252

字数字数字

清清淡淡

{:3_244:}我来了

初音未来丶

做好了，代码有点乱，请不要介意哈
作业.rar (1.58 KB, 下载次数: 2)

2011-11-5 20:07 上传

点击文件名下载附件
下载积分: 精币 -2 枚