.版本 2 .程序集 窗口程序集1 .程序集变量 成语数组, 成语, , "0" .程序集变量 循环容器, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 成语文本集, 文本型, , "0" .局部变量 单个成语各部, 文本型, , "13" .局部变量 单个成语结构, 成语 成语文本集 ＝ 分割文本 (到文本 (读入文件 (“成语数据.txt”)), #换行符, ) ' 所有成语之间用换行符作为分隔 .计次循环首 (取数组成员数 (成语文本集), 循环容器) 单个成语各部 ＝ 分割文本 (成语文本集 [循环容器], “*”, ) ' 每个成语之间用*号为作解释的分隔 单个成语结构.成语 ＝ 单个成语各部 [1] 单个成语结构.拼音 ＝ 单个成语各部 [2] 单个成语结构.解释 ＝ 单个成语各部 [3] 单个成语结构.出处 ＝ 单个成语各部 [4] 单个成语结构.示例 ＝ 单个成语各部 [5] 单个成语结构.拼音码 ＝ 单个成语各部 [6] 单个成语结构.近义词 ＝ 单个成语各部 [7] 单个成语结构.反义词 ＝ 单个成语各部 [8] 单个成语结构.歇后语 ＝ 单个成语各部 [9] 单个成语结构.灯谜面 ＝ 单个成语各部 [10] 单个成语结构.用法 ＝ 单个成语各部 [11] 单个成语结构.英文 ＝ 单个成语各部 [12] 单个成语结构.故事 ＝ 单个成语各部 [13] 加入成员 (成语数组, 单个成语结构) .计次循环尾 () 清除数组 (成语文本集) _启动窗口.标题 ＝ “成语词典 - 共” ＋ 到文本 (取数组成员数 (成语数组)) ＋ “个成语” 关键字编辑框.获取焦点 () .子程序 _关键字编辑框_内容被改变 .局部变量 文本长度, 整数型 成语列表框.禁止 ＝ 假 成语列表框.清空 () 文本长度 ＝ 取文本长度 (关键字编辑框.内容) .如果 (文本长度 ≠ 0) .如果 (文本长度 ％ 2 ＝ 0) .计次循环首 (取数组成员数 (成语数组), 循环容器) .如果真 (寻找文本 (取文本左边 (成语数组 [循环容器].成语, 文本长度) ＋ 取文本左边 (成语数组 [循环容器].拼音码, 文本长度), 关键字编辑框.内容, , 假) ≠ -1) 成语列表框.加入项目 (成语数组 [循环容器].成语, 循环容器) .如果真结束 .计次循环尾 () .否则 .计次循环首 (取数组成员数 (成语数组), 循环容器) .如果真 (寻找文本 (取文本左边 (成语数组 [循环容器].拼音码, 文本长度), 关键字编辑框.内容, , 假) ≠ -1) 成语列表框.加入项目 (成语数组 [循环容器].成语, 循环容器) .如果真结束 .计次循环尾 () .如果结束 .否则 成语内容编辑框.内容 ＝ “” 成语接龙编辑框.内容 ＝ “” .如果结束 .如果 (成语列表框.取项目数 () ＝ 0) 成语列表框.加入项目 (“没有找到匹配的成语。”, ) 成语列表框.禁止 ＝ 真 .否则 .如果真 (成语列表框.取项目数 () ＝ 1) 成语列表框.现行选中项 ＝ 0 _成语列表框_列表项被选择 () .如果真结束 .如果结束 .子程序 _清除按钮_被单击 关键字编辑框.内容 ＝ “” 成语内容编辑框.内容 ＝ “” 成语接龙编辑框.内容 ＝ “” .子程序 _搜索按钮_被单击 .如果真 (删全部空 (关键字编辑框.内容) ＝ “”) 返回 () .如果真结束 成语列表框.禁止 ＝ 假 成语列表框.清空 () 成语内容编辑框.内容 ＝ “” .计次循环首 (取数组成员数 (成语数组), 循环容器) .如果真 (寻找文本 (成语数组 [循环容器].成语 ＋ 成语数组 [循环容器].拼音码, 关键字编辑框.内容, , 假) ≠ -1) 成语列表框.加入项目 (成语数组 [循环容器].成语, 循环容器) .如果真结束 .计次循环尾 () .子程序 _成语列表框_列表项被选择 .局部变量 成语序号, 整数型 .局部变量 显示内容, 文本型 成语序号 ＝ 成语列表框.取项目数值 (成语列表框.现行选中项) 显示内容 ＝ “【” ＋ 成语数组 [成语序号].成语 ＋ “】” ＋ #换行符 .如果真 (删全部空 (成语数组 [成语序号].拼音) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【拼音】” ＋ #换行符 ＋ 成语数组 [成语序号].拼音 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].解释) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【解释】” ＋ #换行符 ＋ 成语数组 [成语序号].解释 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].出处) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【出处】” ＋ #换行符 ＋ 成语数组 [成语序号].出处 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].示例) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【示例】” ＋ #换行符 ＋ 成语数组 [成语序号].示例 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].近义词) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【近义词】” ＋ #换行符 ＋ 成语数组 [成语序号].近义词 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].反义词) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【反义词】” ＋ #换行符 ＋ 成语数组 [成语序号].反义词 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].歇后语) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【歇后语】” ＋ #换行符 ＋ 成语数组 [成语序号].歇后语 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].灯谜面) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【灯谜面】” ＋ #换行符 ＋ 成语数组 [成语序号].灯谜面 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].用法) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【用法】” ＋ #换行符 ＋ 成语数组 [成语序号].用法 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].英文) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【英文】” ＋ #换行符 ＋ 成语数组 [成语序号].英文 .如果真结束 .如果真 (删全部空 (成语数组 [成语序号].故事) ≠ “”) 显示内容 ＝ 显示内容 ＋ #换行符 ＋ #换行符 ＋ “【故事】” ＋ #换行符 ＋ 成语数组 [成语序号].故事 .如果真结束 成语内容编辑框.内容 ＝ 显示内容 .子程序 _成语列表框_双击选择 .如果 (成语接龙编辑框.内容 ＝ “”) 成语接龙编辑框.内容 ＝ 成语列表框.取项目文本 (成语列表框.现行选中项) .否则 .如果 (取文本左边 (成语列表框.取项目文本 (成语列表框.现行选中项), 2) ＝ 取文本右边 (成语接龙编辑框.内容, 2)) 成语接龙编辑框.内容 ＝ 成语接龙编辑框.内容 ＋ “→ ” ＋ 成语列表框.取项目文本 (成语列表框.现行选中项) .否则 成语接龙编辑框.内容 ＝ 成语列表框.取项目文本 (成语列表框.现行选中项) .如果结束 .如果结束 关键字编辑框.内容 ＝ 取文本右边 (成语列表框.取项目文本 (成语列表框.现行选中项), 2)