16位取随机数问题

晓东

16位取随机数 由数字0到9以及大小写字母混合组成 例如wFw21hf0mp1rRpI8 会的朋友提供下例子 希望代码简洁又有效率 多谢

笑易笑

[e]
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

编辑框1.内容 ＝ _取随机用户名 (16)

.子程序 _取随机用户名, 文本型
.参数 随机数个数, 整数型
.局部变量 str, 文本型

置随机数种子 ()
.计次循环首 (随机数个数, )
    str ＝ str ＋ 取文本中间 (“0123456789abcdefghigklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取随机数 (1, 62), 1)
.计次循环尾 ()
返回 (str)
[/e]

看看 这个怎么样？？

紅顏じ亦沉淪ジ

http://www.3600gz.cn/thread-13613849-1-1.html
这个行不行、

艾幻翔

紅顏じ亦沉淪ジ 发表于 2012-12-15 07:24
http://www.3600gz.cn/thread-13613849-1-1.html
这个行不行、

抱歉，您暂时无权查看本帖内容。
只有论坛 顶级vip 或 资源vip才能浏览本版内容。

紅顏じ亦沉淪ジ

求采纳.帖子右下角最佳答案
【脚本】(20121105)源码分享—脚本获取时间.rar (1.83 KB, 下载次数: 35)

2012-12-15 08:18 上传

点击文件名下载附件

艾幻翔

[e]
.版本 2
.支持库 spec

.局部变量 局部_随机字符, 文本型
.局部变量 局部_随机数, 整数型

置随机数种子 ()
调试输出 (取代码 (“abc”, ))
.计次循环首 (16, )
    .循环判断首 ()
        局部_随机数 ＝ 取随机数 (48, 122)
    .循环判断尾 (局部_随机数 ＞ 57 且 局部_随机数 ＜ 65 或 局部_随机数 ＞ 91 且 局部_随机数 ＜ 96)
    局部_随机字符 ＝ 局部_随机字符 ＋ 字符 (局部_随机数)
.计次循环尾 ()
调试输出 (局部_随机字符)
[/e]

笑易笑

源码在此哈

艾幻翔

修改了几个数字 重发代码
[e]
.版本 2
.支持库 spec

.局部变量 局部_随机字符, 文本型
.局部变量 局部_随机数, 整数型

置随机数种子 ()
.计次循环首 (16, )
    .循环判断首 ()
        局部_随机数 ＝ 取随机数 (48, 122)
    .循环判断尾 (局部_随机数 ＞ 57 且 局部_随机数 ＜ 65 或 局部_随机数 ＞ 90 且 局部_随机数 ＜ 97)
    局部_随机字符 ＝ 局部_随机字符 ＋ 字符 (局部_随机数)
.计次循环尾 ()
调试输出 (局部_随机字符)
[/e]

紅顏じ亦沉淪ジ

http://www.3600gz.cn/forum.php?m ... 333&pid=4135018

大姐！看地板啊

幻夜星云

置随机数种子()
编辑框1.加入内容(数组1[取随机数(1,55)])