想要 编辑框 随机 生成数字或字母

exit11

[e]
.版本 2

.子程序 取随机文本, 文本型, 公开, 默认取16位数字
.参数 位数, 整数型, 可空
.参数 类型, 整数型, 可空, 1大写 2小写 3大小写 4字母+数字 5数字 6小数
.局部变量 x, 整数型
.局部变量 临时文本, 文本型

.如果真 (位数 ≤ 0)
    位数 ＝ 16
.如果真结束
.如果真 (类型 ＝ 0 或 类型 ＞ 6)
    类型 ＝ 5
.如果真结束

.判断开始 (类型 ＝ 1)  ' 大写
    .计次循环首 (位数, x)
        临时文本 ＝ 临时文本 ＋ 字符 (取随机数 (65, 90))
    .计次循环尾 ()
.判断 (类型 ＝ 2)  ' 小写
    .计次循环首 (位数, x)
        临时文本 ＝ 临时文本 ＋ 字符 (取随机数 (97, 122))
    .计次循环尾 ()
.判断 (类型 ＝ 3)  ' 大小写
    .计次循环首 (位数, x)
        临时文本 ＝ 临时文本 ＋ 选择 (取随机数 (1, 2) ＝ 1, 字符 (取随机数 (65, 90)), 字符 (取随机数 (97, 122)))
    .计次循环尾 ()
.判断 (类型 ＝ 4)  ' 字母+数字
    .计次循环首 (位数, x)
        临时文本 ＝ 临时文本 ＋ 多项选择 (取随机数 (1, 3), 到文本 (取随机数 (0, 9)), 字符 (取随机数 (65, 90)), 字符 (取随机数 (97, 122)))
    .计次循环尾 ()
.判断 (类型 ＝ 5)
    .计次循环首 (位数, x)
        临时文本 ＝ 临时文本 ＋ 到文本 (取随机数 (0, 9))
    .计次循环尾 ()
.判断 (类型 ＝ 6)
    .计次循环首 (位数, x)
        临时文本 ＝ 临时文本 ＋ 到文本 (取随机数 (0, 9))
    .计次循环尾 ()
    临时文本 ＝ “0.” ＋ 临时文本
.默认

.判断结束
返回 (临时文本)
[/e]

exit11

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

.子程序 __启动窗口_创建完毕

子程序1 (16, 6)

.子程序 子程序1, 文本型, , 浓缩型
.参数 位数
.参数 方式
.局部变量 x, 整数型
.局部变量 临时文本, 文本型

.如果真 (位数 ＜ 1)
    位数 ＝ 16
.如果真结束
.如果真 (方式 ＜ 1 或 方式 ＞ 6)
    方式 ＝ 5
.如果真结束
.计次循环首 (位数, x)
    临时文本 ＝ 临时文本 ＋ 多项选择 (方式, 字符 (取随机数 (65, 90)), 字符 (取随机数 (97, 122)), 选择 (取随机数 (1, 2) ＝ 1, 字符 (取随机数 (65, 90)), 字符 (取随机数 (97, 122))), 多项选择 (取随机数 (1, 3), 到文本 (取随机数 (0, 9)), 字符 (取随机数 (65, 90)), 字符 (取随机数 (97, 122))), 到文本 (取随机数 (0, 9)), 到文本 (取随机数 (0, 9)))

.计次循环尾 ()
调试输出 (选择 (方式 ＝ 6, “0.” ＋ 临时文本, 临时文本))
返回 (选择 (方式 ＝ 6, “0.” ＋ 临时文本, 临时文本))
[/e]

陨落

不错不错 这个要看下的 ！

爱家的小懒虫

数字英文随机.rar (18.19 KB, 下载次数: 27)

2011-11-4 20:04 上传

点击文件名下载附件

初音未来丶

很简单的，我说下思路吧，例程没有用的，没有思路好，有了思路，什么程序都好做，有了例程，改一点功能就做不出来了
掷随机种子
设置成随机数
如果随机数=1
就等于a
如果随机数=2
就等于b
祝楼主早日解决问题
楼主采纳我吧！O(∩_∩)O~

woyaofxy

{:3_244:}学习了 学习。