取随机字母[新手麻烦版]

KD飞飞

楼下，劫个色仿写一下，但是新手麻烦版

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

取随机字母 (真, 10)

子程序名	返回值类型	公开	备 注
取随机字母
参数名	类 型	参考	可空	数组	备 注
是否大小写混用	逻辑型
字母位数	整数型

变量名	类 型	静态	数组	备 注
大写字母	整数型
小写字母	整数型
随机数1	整数型		0
随机数2	整数型		0
位数	文本型
a	整数型
b	整数型
最后生成	文本型
随机到大写还是小写	整数型
随机到哪一位	整数型
汇总变量	整数型		0

位数 ＝ “1”
置随机数种子 ()
大写字母 ＝ 65
小写字母 ＝ 97
如果 (是否大小写混用 ＝ 假)
计次循环首 (字母位数, a)
加入成员 (随机数1, 取随机数 (65, 90))
最后生成 ＝ 最后生成 ＋ 字符 (随机数1 [a]) ＋ “  ”
计次循环尾 ()



计次循环首 (字母位数, a)
加入成员 (随机数1, 取随机数 (65, 90))
加入成员 (随机数2, 取随机数 (97, 122))
计次循环尾 ()
计次循环首 (字母位数, b)
随机到大写还是小写 ＝ 取随机数 (1, 2)
随机到哪一位 ＝ 取随机数 (1, 字母位数)
如果真 (随机到大写还是小写 ＝ 1)
加入成员 (汇总变量, 随机数1 [随机到哪一位])
如果真 (随机到大写还是小写 ＝ 2)
加入成员 (汇总变量, 随机数2 [随机到哪一位])
最后生成 ＝ 最后生成 ＋ 字符 (汇总变量 [b]) ＋ “  ”
计次循环尾 ()
调试输出 (最后生成)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 取随机字母 (真, 10)<br /> <br /> <br /> .子程序 取随机字母<br /> .参数 是否大小写混用, 逻辑型<br /> .参数 字母位数, 整数型<br /> .局部变量 大写字母, 整数型<br /> .局部变量 小写字母, 整数型<br /> .局部变量 随机数1, 整数型, , "0"<br /> .局部变量 随机数2, 整数型, , "0"<br /> .局部变量 位数, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 最后生成, 文本型<br /> .局部变量 随机到大写还是小写, 整数型<br /> .局部变量 随机到哪一位, 整数型<br /> .局部变量 汇总变量, 整数型, , "0"<br /> <br /> 位数 ＝ “1”<br /> 置随机数种子 ()<br /> 大写字母 ＝ 65<br /> 小写字母 ＝ 97<br /> .如果 (是否大小写混用 ＝ 假)<br />     .计次循环首 (字母位数, a)<br />         加入成员 (随机数1, 取随机数 (65, 90))<br />         最后生成 ＝ 最后生成 ＋ 字符 (随机数1 [a]) ＋ “  ”<br />     .计次循环尾 ()<br /> <br /> .否则<br /> <br />     .计次循环首 (字母位数, a)<br />         加入成员 (随机数1, 取随机数 (65, 90))<br />         加入成员 (随机数2, 取随机数 (97, 122))<br />     .计次循环尾 ()<br />     .计次循环首 (字母位数, b)<br />         随机到大写还是小写 ＝ 取随机数 (1, 2)<br />         随机到哪一位 ＝ 取随机数 (1, 字母位数)<br />         .如果真 (随机到大写还是小写 ＝ 1)<br />             加入成员 (汇总变量, 随机数1 [随机到哪一位])<br />         .如果真结束<br />         .如果真 (随机到大写还是小写 ＝ 2)<br />             加入成员 (汇总变量, 随机数2 [随机到哪一位])<br />         .如果真结束<br />         最后生成 ＝ 最后生成 ＋ 字符 (汇总变量 <strong>) ＋ “  ”<br />     .计次循环尾 ()<br /> .如果结束<br /> 调试输出 (最后生成)

KD飞飞

对了，少个小写随机，自己写一下相信你们都会的

梦幻1096

感觉不用这么麻烦啊   直接数组全部列出来取随机数，或者直接判断字符就行了啊

KD飞飞

梦幻1096 发表于 2024-11-7 15:58
感觉不用这么麻烦啊   直接数组全部列出来取随机数，或者直接判断字符就行了啊 ...

傻瓜版

梦幻1096

KD飞飞 发表于 2024-11-7 16:07
傻瓜版

  

子程序名	返回值类型	公开	备 注
取随机字母1	文本型
参数名	类 型	参考	可空	数组	备 注
大小写	整数型				1=大写，2=小写，其他=大小写混用
位数	整数型

变量名	类 型	静态	数组	备 注
字母	文本型		0
结果	文本型
i	整数型

字母 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
置随机数种子 ()
计次循环首 (位数, i)
判断 (大小写 ＝ 1)
结果 ＝ 结果 ＋ 字母 [取随机数 (1, 26)]
判断 (大小写 ＝ 2)
结果 ＝ 结果 ＋ 字母 [取随机数 (27, 52)]
结果 ＝ 结果 ＋ 字母 [取随机数 (1, 52)]

计次循环尾 ()
调试输出 (结果)
返回 (结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取随机字母1, 文本型<br /> .参数 大小写, 整数型, , 1=大写，2=小写，其他=大小写混用<br /> .参数 位数, 整数型<br /> .局部变量 字母, 文本型, , "0"<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 字母 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }<br /> 置随机数种子 ()<br /> .计次循环首 (位数, i)<br />     .判断开始 (大小写 ＝ 1)<br />         结果 ＝ 结果 ＋ 字母 [取随机数 (1, 26)]<br />     .判断 (大小写 ＝ 2)<br />         结果 ＝ 结果 ＋ 字母 [取随机数 (27, 52)]<br />     .默认<br />         结果 ＝ 结果 ＋ 字母 [取随机数 (1, 52)]<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (结果)<br /> 返回 (结果)

这样不是更傻瓜，就几行代码

KD飞飞

梦幻1096 发表于 2024-11-7 16:12
[e=1].版本 2
.支持库 spec

挖草，你这也太傻瓜了
无敌瓜

GawrGura

感谢分享啊啊

路过的猴子

感谢分享

木小果

我也发一个

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
time	整数型

time ＝ 取启动时间 ()
调试输出 (getRandomLetters (10000, 3))
调试输出 (“耗时”, 取启动时间 () － time)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
getRandomLetters	文本型
参数名	类 型	参考	可空	数组	备 注
number	整数型				欲取字母数量
format	整数型				1/大写 2/小写 3/混合

变量名	类 型	静态	数组	备 注
i	整数型
let	文本型
val	文本型

计次循环首 (number, i)
置随机数种子 ()
let ＝ 多项选择 (取随机数 (1, 26), “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”)
val ＝ val ＋ 多项选择 (format, 到大写 (let), let, 选择 (取随机数 (1, 2) ＝ 1, 到大写 (let), let))
计次循环尾 ()
返回 (val)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 time, 整数型<br /> <br /> time ＝ 取启动时间 ()<br /> 调试输出 (getRandomLetters (10000, 3))<br /> 调试输出 (“耗时”, 取启动时间 () － time)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 getRandomLetters, 文本型<br /> .参数 number, 整数型, , 欲取字母数量<br /> .参数 format, 整数型, , 1/大写 2/小写 3/混合<br /> .局部变量 i, 整数型<br /> .局部变量 let, 文本型<br /> .局部变量 val, 文本型<br /> <br /> .计次循环首 (number, i)<br />     置随机数种子 ()<br />     let ＝ 多项选择 (取随机数 (1, 26), “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”)<br />     val ＝ val ＋ 多项选择 (format, 到大写 (let), let, 选择 (取随机数 (1, 2) ＝ 1, 到大写 (let), let))<br /> .计次循环尾 ()<br /> 返回 (val)

b0y