.版本 2 .程序集 窗口程序集1 .程序集变量 Word, 文本型 .程序集变量 Text, 文本型 .子程序 _按钮1_被单击 .局部变量 n, 整数型 .局部变量 i, 整数型 .局部变量 m, 整数型 .局部变量 横线, 文本型 .局部变量 横线1, 文本型 m ＝ 编辑框1.宽度 ÷ 13 横线1 ＝ “” .计次循环首 (m, ) 横线1 ＝ 横线1 ＋ “━” .计次循环尾 () 横线 ＝ “” .计次循环首 (m, ) 横线 ＝ 横线 ＋ “─” .计次循环尾 () Text ＝ 横线1 ＋ #换行符 n ＝ 编辑框1.发送信息 (186, 0, 0) .计次循环首 (n, i) Word ＝ 取空白文本 (255) SendMessageStr (编辑框1.取窗口句柄 (), 196, i － 1, Word) Text ＝ Text ＋ #换行符 ＋ 横线 ＋ #换行符 ＋ 删尾空 (Word) .计次循环尾 () Text ＝ Text ＋ #换行符 ＋ 横线1 编辑框2.内容 ＝ Text .子程序 __启动窗口_创建完毕