取随机字母[新手麻烦版] - 精易论坛

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

子程序名	返回值类型	公开	备注
_按钮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 />
调试输出 (最后生成)

子程序名	返回值类型	公开	备注
取随机字母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	特殊功能支持库

窗口程序集名	保留	保留	备注
程序集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	特殊功能支持库

子程序名	返回值类型	公开	备注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

调试输出 (取随机字母 ())
返回 (0) ' 返回值被忽略。

子程序名	返回值类型	公开	备注
取随机字母	文本型		返回一个随机字母（大写或小写）

变量名	类型	静态	数组	备注
随机数	整数型
字母	文本型

置随机数种子 ()
随机数＝取随机数 (0, 1) ' 0 或 1，决定大小写

如果 (随机数＝ 0)

字母＝字符 (取随机数 (65, 90)) ' 大写字母 A-Z 的 ASCII 码

字母＝字符 (取随机数 (97, 122)) ' 小写字母 a-z 的 ASCII 码

返回 (字母)

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