取随机文本型字符串/随机密码2.0版 优化执行效率 (可指定:数字/大写/小写/符号/空格)

QAQ

1. 
   
2. 
   
3. .版本 2
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 置随机数种子 ()
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 时间, 整数型
    
15. .局部变量 文本, 文本型
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. 时间 ＝ 取启动时间 ()
    
19. 
    
20. 文本 ＝ 取随机文本 (100000, 真, 真, 真, 真, )
    
21. 
    
22. 输出调试文本 (取启动时间 () － 时间)
    
23. 输出调试文本 (取随机文本 (1000, 真, 真, 真, 真, ))
    
24. 
    
25. .子程序 取随机文本, 文本型, 公开
    
26. .参数 长度, 整数型
    
27. .参数 允许数字, 逻辑型, 可空
    
28. .参数 允许大写, 逻辑型, 可空
    
29. .参数 允许小写, 逻辑型, 可空
    
30. .参数 允许符号, 逻辑型, 可空
    
31. .参数 允许空格, 逻辑型, 可空
    
32. .局部变量 返回值, 字节型, , "0"
    
33. .局部变量 类型, 字节型
    
34. .局部变量 字符码, 字节型
    
35. 
    
36. .如果真 (长度 ＜ 1 或 允许数字 ＝ 假 且 允许大写 ＝ 假 且 允许小写 ＝ 假 且 允许符号 ＝ 假 且 允许空格 ＝ 假)
    
37.     返回 (“”)
    
38. .如果真结束
    
39. .循环判断首 ()
    
40.     类型 ＝ 取随机数 (0, 4)
    
41.     .判断开始 (类型 ＝ 0)
    
42.         .如果 (允许数字)
    
43.             字符码 ＝ 取随机数 (48, 57)
    
44.         .否则
    
45.             到循环尾 ()
    
46.         .如果结束
    
47. 
    
48.     .判断 (类型 ＝ 1)
    
49.         .如果 (允许大写)
    
50.             字符码 ＝ 取随机数 (65, 90)
    
51.         .否则
    
52.             到循环尾 ()
    
53.         .如果结束
    
54. 
    
55.     .判断 (类型 ＝ 2)
    
56.         .如果 (允许小写)
    
57.             字符码 ＝ 取随机数 (97, 122)
    
58.         .否则
    
59.             到循环尾 ()
    
60.         .如果结束
    
61. 
    
62.     .判断 (类型 ＝ 3)
    
63.         .如果 (允许符号)
    
64.             类型 ＝ 取随机数 (0, 3)
    
65.             .判断开始 (类型 ＝ 0)
    
66.                 字符码 ＝ 取随机数 (33, 47)
    
67.             .判断 (类型 ＝ 1)
    
68.                 字符码 ＝ 取随机数 (58, 64)
    
69.             .判断 (类型 ＝ 2)
    
70.                 字符码 ＝ 取随机数 (91, 96)
    
71.             .判断 (类型 ＝ 3)
    
72.                 字符码 ＝ 取随机数 (123, 126)
    
73.             .默认
    
74. 
    
75.             .判断结束
    
76. 
    
77.         .否则
    
78.             到循环尾 ()
    
79.         .如果结束
    
80. 
    
81.     .判断 (类型 ＝ 4)
    
82.         .如果 (允许空格)
    
83.             字符码 ＝ 32
    
84.         .否则
    
85.             到循环尾 ()
    
86.         .如果结束
    
87. 
    
88.     .默认
    
89. 
    
90.     .判断结束
    
91.     加入成员 (返回值, 字符码)
    
92. .循环判断尾 (取数组成员数 (返回值) ＜ 长度)
    
93. 返回 (到文本 (返回值))
    
94. 
    
95. 
    
96. 
    

复制代码

Orange

沙发

朵朵

板凳

笔芯

地板

小莉今年7岁

4楼