易语言 实现 取随机日文() 随机生成一个或多个日本汉字 日语文字符号 (返回文本型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. .程序集变量 日文字表, 文本型, , "0"
   
5. .程序集变量 日文字数, 整数型
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. .局部变量 编码, 整数型
   
9. .局部变量 反, 短整数型
   
10. .局部变量 起, 短整数型, , "2"
    
11. .局部变量 止, 短整数型, , "2"
    
12. .局部变量 计数, 整数型
    
13. 
    
14. 置随机数种子 ()
    
15. 起 ＝ { -23391, -23135 }
    
16. 止 ＝ { -23309, -23050 }
    
17. .计次循环首 (2, 计数)
    
18.     .变量循环首 (起 [计数], 止 [计数], 1, 编码)
    
19.         加入成员 (日文字表, 到文本 (到字节集 (反转短整数字节序 (编码))))
    
20.     .变量循环尾 ()
    
21. .计次循环尾 ()
    
22. 日文字数 ＝ 取数组成员数 (日文字表)
    
23. 
    
24. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
25. 返回 (0)  ' 可以根据您的需要返回任意数值
    
26. 
    
27. .子程序 _临时子程序
    
28. 
    
29. 信息框 (取随机日文 (100), 0, , )
    
30. 
    
31. .子程序 取随机日文, 文本型, 公开
    
32. .参数 字数, 整数型
    
33. .局部变量 文件号, 整数型
    
34. .局部变量 返回值, 文本型
    
35. 
    
36. .如果真 (字数 ≤ 0)
    
37.     返回 (“”)
    
38. .如果真结束
    
39. 文件号 ＝ 打开内存文件 ()
    
40. .计次循环首 (字数, )
    
41.     写出文本 (文件号, 日文字表 [取随机数 (1, 日文字数)])
    
42. .计次循环尾 ()
    
43. 移动读写位置 (文件号, #文件首, 0)
    
44. 读入数据 (文件号, 返回值)
    
45. 关闭文件 (文件号)
    
46. 返回 (返回值)
    
47. 
    
48. .子程序 反转短整数字节序, 短整数型, , 提供十六进制整数0xABCD,反转后返回0xCDAB
    
49. .参数 待反转的短整数值, 短整数型
    
50. 
    
51. 置入代码 ({ 102, 139, 69, 8, 102, 193, 200, 8, 15, 183, 192, 201, 194, 4, 0 })
    
52. ' mov ax,[ebp+8]
    
53. ' ror ax,8
    
54. ' movzx eax,ax
    
55. ' leave
    
56. ' retn 4
    
57. 返回 (0)
    

复制代码