可以通过计次循环得到一串字符串，达到你想要的结果。 以下提供的代码具有通用性。 代码如下： .版本 2 .子程序 取随机长度文本, 文本型 .参数 取汉字的文本, 文本型 .参数 取出的数目, 整数型 .局部变量 Temp, 整数型 .局部变量 取出的文本, 文本型 置随机数种子 () .计次循环首 (取出的数目, ) 取出的文本 ＝ 取出的文本 ＋ 取文本中间 (取汉字的文本, 取随机数 (1, 取文本长度 (取汉字的文本) ÷ 2) × 2 － 1, 2) .计次循环尾 () 返回 (取出的文本) 调用代码如下（实例）： 编辑框_输出结果.内容 ＝ 取随机长度文本 (编辑框_姓.内容, 到整数 (编辑框_姓长度.内容)) ＋ 取随机长度文本 (编辑框_名.内容, 到整数 (编辑框_名长度.内容)) 在我的演示程序中，演示结果如下： 如果你不想让字重复，请使用以下代码，此代码同样具有通用性： .版本 2 .子程序 取随机长度文本, 文本型 .参数 取汉字的文本, 文本型 .参数 取出的数目, 整数型 .局部变量 Temp, 整数型 .局部变量 临时文本, 文本型 .局部变量 随机文本, 文本型 .局部变量 取出的文本, 文本型 置随机数种子 () 临时文本 ＝ 取汉字的文本 .计次循环首 (取出的数目, ) 随机文本 ＝ 取文本中间 (临时文本, 取随机数 (1, 取文本长度 (临时文本) ÷ 2) × 2 － 1, 2) 取出的文本 ＝ 取出的文本 ＋ 随机文本 临时文本 ＝ 子文本替换 (临时文本, 随机文本, “”, , , 真) .计次循环尾 () 返回 (取出的文本) 此代码即符合你的要求。 如有疑问请追问。
