|
发表于 2011-11-6 21:51:57
|
显示全部楼层
江苏省苏州市
- .版本 2
- .支持库 iext
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 局部_长度, 整数型
- .局部变量 局部_选择, 整数型
- .局部变量 局部_文本, 文本型
- .局部变量 局部_邮箱名, 文本型
- 编辑框1.内容 = “”
- .计次循环首 (1000, )
- 置随机数种子 ()
- 局部_长度 = 取随机数 (5, 10)
- 局部_文本 = “”
- .计次循环首 (局部_长度, )
- 局部_选择 = 取随机数 (0, 1)
- 局部_文本 = 局部_文本 + 选择 (局部_选择 = 0, 字符 (取随机数 (97, 122)), 字符 (取随机数 (48, 57)))
- .计次循环尾 ()
- 局部_邮箱名 = 局部_文本 + “@qq.com”
- 编辑框1.加入文本 (局部_邮箱名 + #换行符)
- 处理事件 ()
- .计次循环尾 ()
- 信息框 (“生成完毕”, 0, )
- ''生成时,感觉用加入文本速度似乎比其他命令快一点,不知是否这样
- .子程序 _按钮2_被单击
- .局部变量 局部_临时, 文本型, , "0"
- .局部变量 局部_位置, 整数型
- .局部变量 i, 整数型
- .局部变量 局部_临时Q号, 文本型
- 重定义数组 (局部_临时, 假, 0)
- 超级列表框1.全部删除 ()
- 局部_临时 = 分割文本 (编辑框1.内容, #换行符, )
- .计次循环首 (取数组成员数 (局部_临时), i)
- 局部_位置 = 寻找文本 (局部_临时 [i], “@”, , 假) - 1
- 局部_临时Q号 = 取文本左边 (局部_临时 [i], 局部_位置)
- 超级列表框1.插入表项 (, , , , , )
- 超级列表框1.置标题 (i - 1, 0, 局部_临时Q号)
- .计次循环尾 ()
复制代码 |
评分
-
查看全部评分
|