易语言 无需数组查表 实现快速取随机汉字 随机生成指定数量中文汉字文字 (返回文本型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 置随机数种子 ()
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. 信息框 (取随机汉字_快速 (256), 0, , )
    
15. 
    
16. 
    
17. .子程序 取随机汉字_快速, 文本型, 公开, 在使用本命令取一系列取随机汉字之前，应该先使用“置随机数种子”命令为随机数生成器初始化一个种子值。
    
18. .参数 汉字数量, 整数型
    
19. .局部变量 字节数, 整数型, , , ebp-4
    
20. .局部变量 返回值, 字节集, , , ebp-8
    
21. .局部变量 计数, 整数型, , , ebp-12
    
22. .局部变量 地址, 整数型, , , ebp-16
    
23. 
    
24. .如果真 (汉字数量 ≤ 0)
    
25.     返回 (“”)
    
26. .如果真结束
    
27. 字节数 ＝ 左移 (汉字数量, 1)
    
28. 返回值 ＝ 取空白字节集 (字节数 ＋ 1)
    
29. .变量循环首 (1, 字节数, 2, 计数)
    
30.     返回值 [计数] ＝ 取随机数 (176, 247)
    
31.     返回值 [计数 ＋ 1] ＝ 取随机数 (161, 254)
    
32. .变量循环尾 ()
    
33. 返回值 [字节数 ＋ 1] ＝ 0
    
34. 置入代码 ({ 139, 69, 248, 131, 192, 8, 201, 194, 4, 0 })
    
35. ' mov eax,[ebp-8]
    
36. ' add eax,8
    
37. ' leave
    
38. ' retn 4
    
39. 返回 (“”)
    

复制代码