易语言实现 取随机百家姓 随机起名器软件 中文姓氏姓名人名生成器源码 (返回文本型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. .程序集变量 百家姓, 文本型
   
5. .程序集变量 百家姓字节, 整数型
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 置随机数种子 ()
   
10. 
    
11. 百家姓 ＝ “赵钱孙李周吴郑王冯陈褚卫蒋沈韩杨朱秦尤许何吕施张孔曹严华金魏陶姜戚谢邹喻柏水窦章云苏潘葛奚范彭郎鲁韦昌马苗凤花方俞任袁柳酆鲍史唐费廉岑薛雷贺倪汤滕殷罗毕郝邬安常乐于时傅皮卞齐康伍余元卜顾孟平黄和穆萧尹姚邵湛汪祁毛禹狄米贝明臧计伏成戴谈宋茅庞熊纪舒屈项祝董梁杜阮蓝闵席季麻强贾路娄危江童颜郭梅盛林刁钟徐邱骆高夏蔡田樊胡凌霍虞万支柯昝管卢莫柯房裘缪干解应宗丁宣贲邓郁单杭洪包诸左石崔吉钮龚程嵇邢滑裴陆荣翁荀羊于惠甄曲家封芮羿储靳汲邴糜松井段富巫乌焦巴弓牧隗山谷车侯宓蓬全郗班仰秋仲伊宫宁仇栾暴甘钭历戎祖武符刘景詹束龙叶幸司韶郜黎蓟溥印宿白怀蒲邰从鄂索咸籍赖卓蔺屠蒙池乔阳郁胥能苍双闻莘党翟谭贡劳逄姬申扶堵冉宰郦雍却璩桑桂濮牛寿通边扈燕冀浦尚农温别庄晏柴瞿阎充慕连茹习宦艾鱼容向古易慎戈廖庾终暨居衡步都耿满弘匡国文寇广禄阙东欧殳沃利蔚越夔隆师巩厍聂晁勾敖融冷訾辛阚那简饶空曾毋沙乜养鞠须丰巢关蒯相查后荆红游竺权逮盍益桓公”
    
12. 百家姓字节 ＝ 取文本长度 (百家姓)
    
13. 
    
14. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
15. 返回 (0)  ' 可以根据您的需要返回任意数值
    
16. 
    
17. .子程序 _临时子程序
    
18. .局部变量 文本, 文本型
    
19. 
    
20. .计次循环首 (100, )
    
21.     文本 ＝ 文本 ＋ 取随机姓名 (真) ＋ “,”
    
22. .计次循环尾 ()
    
23. 信息框 (文本, 0, “随机姓名”, )
    
24. 
    
25. .子程序 取随机姓氏, 文本型, 公开
    
26. .局部变量 随机, 短整数型
    
27. 
    
28. 随机 ＝ 取随机数 (1, 百家姓字节)
    
29. .如果真 (位与 (随机, 1) ＝ 0)
    
30.     随机 ＝ 随机 － 1
    
31. .如果真结束
    
32. 返回 (取文本中间 (百家姓, 随机, 2))
    
33. 
    
34. .子程序 取随机姓名, 文本型, 公开
    
35. .参数 禁用多音字, 逻辑型, 可空, 不含姓氏
    
36. .局部变量 长度, 整数型
    
37. .局部变量 字节, 字节集
    
38. .局部变量 汉字, 文本型
    
39. .局部变量 发音, 整数型
    
40. .局部变量 姓名, 文本型
    
41. 
    
42. 长度 ＝ 取随机数 (1, 2)
    
43. 姓名 ＝ 取随机姓氏 ()
    
44. 字节 ＝ 取空白字节集 (2)
    
45. .计次循环首 (长度, )
    
46.     .循环判断首 ()
    
47.         字节 [1] ＝ 取随机数 (128, 255)
    
48.         字节 [2] ＝ 取随机数 (1, 255)
    
49.         汉字 ＝ 到文本 (字节)
    
50.         发音 ＝ 取发音数目 (汉字)
    
51.         .如果 (禁用多音字)
    
52.             .如果真 (发音 ＝ 1)
    
53.                 跳出循环 ()
    
54.             .如果真结束
    
55. 
    
56.         .否则
    
57.             .如果真 (发音 ＞ 0)
    
58.                 跳出循环 ()
    
59.             .如果真结束
    
60. 
    
61.         .如果结束
    
62. 
    
63.     .循环判断尾 (真)
    
64.     姓名 ＝ 姓名 ＋ 汉字
    
65. .计次循环尾 ()
    
66. 返回 (姓名)
    

复制代码