.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 局_性别, 文本型 .局部变量 局_姓名, 文本型 .局部变量 局_三字否, 逻辑型 .局部变量 局_字串, 文本型 .局部变量 局_计次, 整数型 .局部变量 局_循环次数, 整数型 置随机数种子 () 局_循环次数 ＝ 到整数 (编辑框2.内容) .计次循环首 (局_循环次数, 局_计次) 局_姓名 ＝ 取文本中间 (#单姓, 子_随机取位置 (#单姓), 2) ' 先随机取姓氏 .如果真 (局_姓名 ＝ “”) 局_姓名 ＝ “---------” .如果真结束 .如果 (取随机数 (0, 100) ＞ 75) ' 随机确定是否取三字姓名 局_三字否 ＝ 假 .否则 局_三字否 ＝ 真 .如果结束 .如果 (取随机数 (0, 100) ＞ 55) ' 取男女性别 局_性别 ＝ “女” .如果真 (局_三字否) 局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#女第二字, 子_随机取位置 (#女第二字), 2) .如果真结束 局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#女常用字, 子_随机取位置 (#女常用字), 2) .否则 局_性别 ＝ “男” .如果真 (局_三字否) 局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#男第二字, 子_随机取位置 (#男第二字), 2) .如果真结束 局_姓名 ＝ 局_姓名 ＋ 取文本中间 (#男常用字, 子_随机取位置 (#男常用字), 2) .如果结束 .如果 (局_字串 ＝ “”) 局_字串 ＝ 到文本 (局_计次) ＋ “,” ＋ 局_姓名 ＋ “,” ＋ 局_性别 ＋ #换行符 .否则 局_字串 ＝ 局_字串 ＋ 到文本 (局_计次) ＋ “,” ＋ 局_姓名 ＋ “,” ＋ 局_性别 ＋ #换行符 .如果结束 .计次循环尾 () 编辑框1.内容 ＝ 局_字串 .子程序 子_随机取位置, 整数型 .参数 参_字串, 文本型 返回 (取整 (取随机数 (1, 取文本长度 (参_字串) ÷ 2)) × 2 － 1)