神奇的读心术之易语言版 V1.0版，除核心库外不调用任何杂乱的支持库以及任何易模块。

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. .局部变量 字符, 文本型
   
8. .局部变量 文本, 文本型
   
9. .局部变量 计数, 整数型
   
10. .局部变量 固定汉字, 文本型
    
11. .局部变量 帮助文本, 文本型
    
12. 
    
13. 置随机数种子 ()
    
14. 标题 ＝ “神奇的读心术之易语言版”
    
15. 帮助文本 ＝ 取重复文本 (64, “-”) ＋ #换行符
    
16. 帮助文本 ＝ 帮助文本 ＋ “从10～99之间任意选择一个数，把这个数的十位与个位相加，” ＋ #换行符
    
17. 帮助文本 ＝ 帮助文本 ＋ “再把任意选择的数减去这个和，例如：你选的数是23，然后” ＋ #换行符
    
18. 帮助文本 ＝ 帮助文本 ＋ “2+3=5，然后23-5=18，在图表中找出与差值对应的汉字，” ＋ #换行符
    
19. 帮助文本 ＝ 帮助文本 ＋ “并把这个汉字牢记心中，然后进入下一步，你会发现：” ＋ #换行符
    
20. 帮助文本 ＝ 帮助文本 ＋ “显示出来的汉字就是你刚刚心里记下的那个汉字。” ＋ #换行符
    
21. 可视 ＝ 假
    
22. 固定汉字 ＝ 取随机汉字 (1)
    
23. .计次循环首 (10, )
    
24.     .计次循环首 (10, )
    
25.         计数 ＝ 计数 ＋ 1
    
26.         .如果 (到整数 ((计数 － 1) ÷ 9) ＝ (计数 － 1) ÷ 9 且 计数 ＞ 10 且 计数 ＜ 90)
    
27.             文本 ＝ 文本 ＋ 整数补0 (计数 － 1) ＋ “.” ＋ 固定汉字 ＋ “ ”
    
28.         .否则
    
29.             文本 ＝ 文本 ＋ 整数补0 (计数 － 1) ＋ “.” ＋ 取随机汉字 (1) ＋ “ ”
    
30.         .如果结束
    
31. 
    
32.     .计次循环尾 ()
    
33.     文本 ＝ 文本 ＋ #换行符
    
34. .计次循环尾 ()
    
35. 文本 ＝ 文本 ＋ 帮助文本
    
36. 信息框 (文本, 0, 标题, )
    
37. .如果真 (信息框 (“你心里的汉字是不是：《” ＋ 到文本 (固定汉字) ＋ “》？？？” ＋ #换行符 ＋ “按是继续游戏，按否退出游戏。”, 4, 标题, ) ＝ 5)
    
38.     __启动窗口_创建完毕 ()
    
39. .如果真结束
    
40. 
    
41. 结束 ()
    
42. 
    
43. .子程序 整数补0, 文本型
    
44. .参数 整数, 整数型
    
45. 
    
46. 
    
47. 返回 (取重复文本 (2 － 取文本长度 (到文本 (整数)), “0”) ＋ 到文本 (整数))
    
48. 
    
49. 
    
50. .子程序 取随机汉字, 文本型
    
51. .参数 个数, 整数型
    
52. .局部变量 返回值, 文本型
    
53. 
    
54. .计次循环首 (个数, )
    
55.     返回值 ＝ 返回值 ＋ 到文本 (字符 (－取随机数 (38, 80)) ＋ 字符 (－取随机数 (38, 80)))
    
56. 
    
57. .计次循环尾 ()
    
58. 返回 (返回值)
    
59. 
    
60. 
    

复制代码

CNWTEPRG

好像在哪里见过这玩意儿

demon

路过水一帖。

66大顺

那个字念啥来着
???

Cute

吃瓜群众 发表于 2017-10-20 19:30
那个字念啥来着
???

我也不清楚，随机的吧。

Tiancai

看看是怎么读的

1心1亿

最后不可能不是9的倍数