无聊之作随机古诗生成器E源码开源共享

QAQ

调用了精E模块5.7版。

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 置随机数种子 ()
   
9. 编辑框1.是否允许多行 ＝ 真
   
10. 
    
11. 
    
12. .子程序 _按钮1_被单击
    
13. .局部变量 开头标题, 文本型
    
14. .局部变量 作者名, 文本型
    
15. .局部变量 正文, 文本型
    
16. .局部变量 计数, 整数型
    
17. .局部变量 字符数, 整数型
    
18. 
    
19. 开头标题 ＝ 文本_取随机汉字 (取随机数 (2, 4))
    
20. 作者名 ＝ 文本_取随机姓氏 () ＋ 文本_取随机汉字 (取随机数 (1, 2))
    
21. .如果 (取随机数 (0, 1) ＝ 0)
    
22.     字符数 ＝ 5
    
23. .否则
    
24.     字符数 ＝ 7
    
25. .如果结束
    
26. .计次循环首 (4, 计数)
    
27.     正文 ＝ 正文 ＋ 文本_取随机汉字 (字符数)
    
28.     .如果 (计数 ＝ 4)
    
29.         正文 ＝ 正文 ＋ “。” ＋ #换行符
    
30.     .否则
    
31.         正文 ＝ 正文 ＋ “，” ＋ #换行符
    
32.     .如果结束
    
33. 
    
34. .计次循环尾 ()
    
35. 
    
36. 
    
37. 编辑框1.内容 ＝ 开头标题 ＋ #换行符 ＋ 作者名 ＋ #换行符 ＋ 正文
    
38. 
    
39. 
    

复制代码

1心1亿

看看是什么方法

demon

暖（水）贴。沙发。

小清新

我也暖1帖

主人

啥算法了

星期零

这也能随机???

520

看看吧

yyy2022

看看是什么方法

lovemuou

好像刚好需要用到