|
12楼

楼主 |
发表于 2022-2-22 10:42:19
|
只看该作者
浙江省温州市
.版本 2
.子程序 取随机字符, 文本型, , 返回结果文本,出错返回"-1".选择混合模式时第二个参数的值必须大于1
.参数 模式, 整数型, 可空, 默认为英文,0为英文大写,1为英文小写,2为数字,3为汉字,4为前三种的混合
.参数 个数, 整数型, 可空, 默认为1位
.局部变量 文本, 文本型
.局部变量 临时, 文本型
.局部变量 原模式, 短整数型
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 由 djmall 改自 kwan 易友的源码) %%%%%%%%%%%%%%%%%%%%%%%%%%%%
置随机数种子 (取启动时间 ())
.判断开始 (个数 ≤ 0) ' 处理为空时的情况,默认为1个
个数 = 1
.判断 (模式 > 4) ' 处理客户输入错误的参数
返回 (“-1”)
.默认
' 本源码来自易语言资源网(www.eyuyan.la)
.判断结束
.计次循环首 (个数, )
处理事件 ()
' 这段代码处理在混合模式时,数量不能为1
.如果真 (模式 = 4 且 个数 = 1)
返回 (“-1”) ' 提示不能在混合模式下产生一个字符,必须多字符.
.如果真结束
.如果真 (模式 = 4 且 个数 > 1)
模式 = 取随机数 (0, 2) ' 随机取模式,除中文以外的三种模式混合
原模式 = 4 ' 记住本次用户指定的操作模式
.如果真结束
.判断开始 (模式 = 0) ' 大写模式
临时 = 字符 (取随机数 (65, 90))
.判断 (模式 = 1) ' 小写模式
临时 = 字符 (取随机数 (97, 122))
.判断 (模式 = 2) ' 数字模式
临时 = 字符 (取随机数 (48, 57))
.判断 (模式 = 3) ' 中文模式
临时 = 字符 (取随机数 (176, 247)) + 字符 (取随机数 (161, 254))
.默认
' 本源码来自易语言资源网(www.eyuyan.la)
.判断结束
文本 = 文本 + 临时 ' 结果文本
.如果真 (原模式 = 4) ' 恢复到用户指定的类型
模式 = 4
.如果真结束
' 本源码来自易语言资源网(www.eyuyan.la)
.计次循环尾 ()
返回 (文本)
|
|