Question

易语言怎么随机取指定50个汉字中的几个呢

Answer 1

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 字数, 整数型

.程序集变量 取字, 整数型

.程序集变量 计次, 整数型

.程序集变量 不重复, 文本型, , "0"

.程序集变量 文本, 文本型

.子程序 __启动窗口_创建完毕

标签1.标题 ＝ “输入汉字”

标签2.标题 ＝ “取几个字”

标签3.标题 ＝ “得到的字”

编辑框1.是否允许多行 ＝ 真

编辑框3.是否允许多行 ＝ 真

置随机数种子 ()

.子程序 _按钮1_被单击

清除数组 (不重复)

编辑框3.内容 ＝ “”

字数 ＝ 取文本长度 (编辑框1.内容) ÷ 2

.计次循环首 (字数, 计次)

.如果真 (取代码 (编辑框1.内容, 计次 × 2 － 1) ＞ 0)

跳出循环 ()

.如果真结束

.计次循环尾 ()

.如果真 (计次 ＜ 字数)

信息框 (“输入的文字中有非中文”, 0, “错误!”, )

返回 ()

.如果真结束

.如果真 (到整数 (编辑框2.内容) ＞ 字数)

信息框 (“取字数超过输入字数!”, 0, , )

返回 ()

.如果真结束

随机取字 ()

.子程序 随机取字

取字 ＝ 取随机数 (1, 字数)

文本 ＝ 取文本中间 (编辑框1.内容, 取字 × 2 － 1, 2)

.计次循环首 (取数组成员数 (不重复), 计次)

.如果真 (不重复 [计次] ＝ 文本)

跳出循环 ()

.如果真结束

.计次循环尾 ()

.如果真 (计次 ≤ 取数组成员数 (不重复))

随机取字 ()

.如果真结束

加入成员 (不重复, 文本)

.如果真 (取文本长度 (编辑框3.内容) ÷ 2 ＜ 到整数 (编辑框2.内容))

编辑框3.加入文本 (文本)

随机取字 ()

.如果真结束

返回 ()

Answer 2

精易模块有