|
发表于 2010-8-30 19:16:24
|
显示全部楼层
河南省济源市
给你改好了,你看看。- .版本 2
- .程序集 窗口程序集1
- .子程序 __启动窗口_创建完毕
- 置随机数种子 ()
- .子程序 _按钮1_被单击
- .局部变量 多个数字, 文本型
- .局部变量 多个字母, 文本型
- .局部变量 随机个数, 整数型
- .局部变量 内容, 文本型
- 内容 = 编辑框1.内容
- 随机个数 = 取随机数 (1, 8)
- .计次循环首 (随机个数, )
- 多个数字 = 多个数字 + 到文本 (取随机数 (0, 9))
- .计次循环尾 ()
- 内容 = 子文本替换 (内容, “&”, 多个数字, , , 真) ' 取随机多个数字
- 编辑框2.内容 = 内容
- 随机个数 = 取随机数 (1, 8)
- .计次循环首 (随机个数, )
- 多个字母 = 多个字母 + 取文本中间 (“abcdefghijklmnopqrstuvwxyz”, 取随机数 (1, 26), 1)
- .计次循环尾 ()
- 内容 = 子文本替换 (内容, “$”, 多个字母, , , 真) ' 取随机多个字母
- 编辑框2.内容 = 内容
- 内容 = 子文本替换 (内容, “#”, 取文本中间 (“abcdefghijklmnopqrstuvwxyz”, 取随机数 (1, 26), 1), , , 真) ' 取随机一个字母
- 编辑框2.内容 = 内容
- 内容 = 子文本替换 (内容, “@”, 到文本 (取随机数 (0, 9)), , , 真) ' 取随机一个数字
- 编辑框2.内容 = 内容
复制代码 |
|